|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Roman Dolgov 2:5012/2.278 14 Feb 2005 18:32:58
To : All
Subject : Вопрос начинающего
--------------------------------------------------------------------------------
#!/usr/bin/perl
# Вывести имена пользователей, отсортированных по группам.
open (PASS, "sort -n -t : +3 -4 +0 /etc/passwd|") || die "File not found!!";
while (<PASS>)
{
($login,$pass,$uid,$gid,$name,$home_dir,$shell)=split(':');
write(); # форматированный вывод данных.
}
close(PASS);
exit 0; # завершение программы.
В чем проблема, почему не работает ??
_Hу, бывай_ All!
... Dolgov Roman aka ALTER
--- [rstation@mail.ru] ---
* Origin: Карлсон залетел и ждет Малыша! (2:5012/2.278)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
