Введение в Perl :: Маслов Владимир Викторович
Страница: 2 из 31 | |||
| ||||||||||||||
| ||||||||||||||
КАТЕГОРИИ КНИГПОСЛЕДНИЕ ОТЗЫВЫ О КНИГАХМихаил (19.04.2017 - 06:11:11) Антихрист666 (18.04.2017 - 21:05:58) Ладно, теперь поспешили вы... (18.04.2017 - 20:50:34) Роман (18.04.2017 - 18:12:26) АНДРЕЙ (18.04.2017 - 16:42:55) СЛУЧАЙНОЕ ПРОИЗВЕДЕНИЕЗеленоглазая, холодная, седая... 13.05.10 - 05:18 Хотите чтобы ваше произведение или ваш любимый стишок появились здесь? добавьте его! |
while( Читать по одной строке файла в переменную по умолчанию $ _. { Открыть блок операторов . print; Вывести на экран переменную по умолчанию $_ } Конец блока. close(PASS); Закрыть файл. Этого можно и не делать так-как файл автоматически закроется после окончания программы. Результат работы этой программы тот же что и команды cat /etc/passwd . По экрану пробежали непонятные строки но зато теперь перед вами открыты горизонты Перл программирования! Все последующие примеры будут развитием этой программы и она превратится из гадкого утенка в прекрасного лебедя (не генерала). Пример 3 Разделение полей. #!/usr/local/bin/perl open(PASS, « while( { ($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( { ($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( { ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':'); write(); # Форматированный ывод данных. } close(PASS); exit 0; # Завершение программы ############ Описание формы вывода ################## format STDOUT = Пользователь: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $name ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $name ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $name Login:@<<<<<<<< Uid:@<<< Gid:@<<< Home dir:@<<<<<<<<<<<<<<<<<<<<< $login, $uid, $gid, $home_dir . # Это последняя строка программы Фрагмент результата: Пользователь: Калужский ликеро-водочный завод. Лучшие водки и настойки. Звонить только перед праздником Кострикову Анатолию т. 2-23-06,,, Login:uucryst Uid:1055 Gid:66 Home dir:/var/spool/uucppublic/ Пользователь: Торговый Дом Дилен,,, Login:uudilen Uid:1075 Gid:66 Home dir:/var/spool/uucppublic Если вам интересно узнать как работает эта программа, то переверните страницу и начините свое путешествие в мире Перл. Желаю удачи! Запуск интерпретатора Перл Синтаксис: perl [ключи] файл аргументы Перед стартом Перл ищет скрипт (программу) в следующем порядке: 1. В командной строке если указан ключ ' -e ' 2. Содержимое файла указанного в командной строке. В первой строке можно указывать #!/usr/bin/perl для «автоматического» запуска скрипта. 3. Стандартный ввод/вывод если не указан файл или аргументы содержащие имя файла. Для передачи аргументов скрипту из стандартного потока имя файла в командной строке обозначается символом ' - '. В методах 1 и 2 Перл сканирует строки начиная с первой если не указан ключ ' -x ', в противном случае началом программы считается строка с символами ' #! ' в начале и содержащая слово ' perl '. Концом программы считается строка ' __END__ '. В строке с ' #! ' можно указывать и ключи. Например ' #!/bin/perl -d ' для отладки программ. После «обнаружения» скрипта Перл компилирует его целиком во внутреннее представление. Если обнаруживаются ошибки то выполнение прекращается. Если ошибок нет он выполняется. Если скрипт заканчивается без команд exit() или die() то по умолчанию выполняется команда exit(0) обозначающая нормальное завершение программы. Ключи: -Oцифры Код символа-разделителя записей. По умолчанию \0 . -a Включает режим автоматического разделения ( split ) переменной $_ в массив $F . |
ИНТЕРЕСНОЕ О ЛИТЕРАТУРЕ
ТОП 20 КНИГ
ТОП 20 АВТОРОВ
| ||||||||||||
|