($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
Присвоить указанным переменным поля входной строки, считая разделителем символ ':'.
print «$login $name »;
Вывести login – имя пользователя и его описание. Поля разделены символом ' ' – табуляции.
#!/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 $gid $name »;
}
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; # Завершение программы
############ Описание формы вывода ##################
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цифры
Код символа-разделителя записей. По умолчанию .
-a
Включает режим автоматического разделения (
-c
Выполняется синтаксическая проверка скрипта и выход без запуска.
-d
Запуск в режиме интерактивной отладки.
-Dчисло или Dсписок
Установить флаги отладки Перл. Например -d14 проследить как Перл исполняет вашу программу.
