Как сделать свой сайт самому бесплатно
 

 

 

 

Введение в Perl

Основной особенностью языка считаются его богатые возможности для работы с текстом, реализованные при помощи регулярных выражений.

Perl — платформа устойчивого, перспективного языка программирования. Он используется для массы проектов в публичных и частных секторах и широко используется к приложениям сетевых программ всех потребностей.

#!/usr/local/bin/perl

        Данная строка должна быть первой в любой Пел-программе.
Она указыванет системному интерпретатору что данный файл - это  Пел-программа.
 
# Содержимое файла test1.pl
        Эта строка называется комментарием. Она всегда начинается
символом '#' и заканчивается таким  объяснением что как говорил
великий  Ходжа Насреддин "это тонкий филосовский
вопрос", а говоря простым языком здесь можно писать все что угодно.
Даже пожелание  руководству. Уж здесь оно точно до него не
дойдет.
 
print "Наше Вам с кисточкой!\n";
        Самая последняя ну и конечно главная. Она просто выводит
на экран надпись "Наше Вам с кисточкой!".
 
Здесь слово print - это команда "вывести". Все что в кавычках - это символы,
\n - перевод строки и ';' - признак конца команды. Он обязателен.
В одной строке может быть несколько команд и все они должны завершаться
символом ';'. После него может быть символ '#' - это значит остаток
строки считается комментарием.
 
Над этой строкой автору
пришлось больше всего поломать голову так как в нее постоянно
лезли какие то странные "hello", "hello all", "Построемся и спасемся",
"Строй наше спасение" и т.д и т.п.
 
Если вы никогда не работали с Пел, то бъюсь на спор в 10$, что данная
программа сразу у вас не заработает!
Не потому что она не верна, а потому что "Нельзя объять необъятное".
Сразу, потом можно, да и то частями.
Сначало сделайте ваш файл test1.pl исполняемым. Для этого введите
команду:
 
        chmod +x test1.pl
 
Затем проверьте где у вас Пел. Для этого введите:
 
        which perl
 
Система вам выдаст что то вроде: /usr/bin/perl
 
Если: perl: Command not found.
 
То тогда закройте книжку и ложитесь спать. У вас просто нет Пел или
он не установлен. А мне остается послать вас к системному администратору
или к man (для переводчиков- man сокращение от manual а не то что вы подумали).
 
Теперь проверьте что бы строка 01 содержала то что выдала команда which.
Если совпало то введите:
 
        test1.pl
 
и бъсь на 50$ что и теперь программа не заработает, так как правильней
ввести:
 
        ./test1.pl
 
Если я проиграл, то не радуйтесь. Да же если вам удалось запустить программу
как test1.pl это значит, что у вас будут неприятности в будущем.
 
Пример 2 Данная программа выводит на экран все ваши секреты. А именно файл /etc/passwd.
 
        #!/usr/local/bin/perl
        open(PASS, "</etc/passwd") || die "Файл не найден!";
        while(<PASS>)
            {
            print;
            }
        close(PASS);
 
Пояснения:
 
open(PASS, "</etc/passwd") || die "Файл не найден!";
        "Открыть" файл т.е. создать указатель файла PASS и
в случае ошибки выдать "Файл не найден!" и закончить программу.
 
while(<PASS>)
        Читать по одной строке файла в переменную по умолчанию $_.
 
  {
        Открыть блок операторов.
 
  print;
        Вывести на экран переменную по умолчанию $_
 
   }
        Конец блока.
 
close(PASS);
        Закрыть файл. Этого можно и не делать так-как файл автоматически
закроется после окончания программы.
 
Результат работы этой программы тот же что и команды cat /etc/passwd.
По экрану пробежали непонятные строки но зато теперь перед вами
открыты горизонты Пел программирования!
Все последующие примеры будут развитием этой программы и она
превратится из гадкого утенка в прекрасного лебедя (не генерала).
 
Пример 3 Разделенеие полей.
 
      #!/usr/local/bin/perl
      open(PASS, "</etc/passwd") || die "Файл не найден!";
      while(<PASS>)
          {
            ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
            print "$login \t $name\n";
          }
      close(PASS);
 
Пояснение:
 
($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
        Присвоить указанным переменным поля входной строки, считая разделителем символ ':'.
 
print "$login \t $name\n";
        Вывести login - имя пользователя и его описание. Поля разделены символом '\t' - табуляции.
 
 
Пример 4 Вывести имена пользователей отсортированных по группам.
 
        #!/usr/local/bin/perl
        open(PASS, "sort -n -t : +3 -4 +0 /etc/passwd|") || die "Файл не найден!";
        while(<PASS>)
            {
            ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
            print "$login \t $gid \t $name\n";
            }
        close(PASS);
 
Поеснения:
 
open(PASS, "sort -n -t : +3 -4 +0 /etc/passwd|") || die "Файл не найден!";
        В данной строке весь фокус! Входным файлом для нашей программы
стал выход команды sort которая и отсортирует входные данные.
 
 
Форматированный вывод.
 
Ну а теперь напечатаем на экране все наши данные в удобной форме.
 
 
#!/usr/local/bin/perl
 
open(PASS, "sort -n -t : +3 -4 +0 /etc/passwd|") || die "Файл не найден!";
while(<PASS>)
    {
    ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
    write();   # Форматированный ывод данных.
    }
close(PASS);
exit 0;        # Завершение программы

 

Скачать >>>


Распродажа доменов! Домены РФ за 99, RU за 200 рублей

Бесплатные программы для создания и продвижения сайтов:
CatsHtml v2.1  HtmlPad FisherMan v1.9  Css Magic v1.8.77  Free S.D.Y.PAIK 1.0  Site-Auditor  FreePromote  IFBoards 7  DizsubmitFree
Бесплатные учебники по созданию сайтов: HTML для чайников. Краткий учебник HTML HTML в примерах. Описание команд HTML Учебник PHP Учебник JavaScript Учебник HTML, DHTML, CSS Язык HTML, JavaScript и WWW Каскадные таблицы стилей, или CSS для начинающих Язык програмирования Perl Введение в Perl Уроки Macromedia, Flash, Анимация Самоучитель Macromedia,Flash Справочник MySQL
  основы