|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Roman Dolgov 2:5012/2.278 15 Feb 2005 00:35:00 To : Alexander V. Gaiduk Subject : Hа: Вопрос начинающего --------------------------------------------------------------------------------
14 февраля 2005 16:42, Alexander V. Gaiduk писал Roman Dolgov:
#!/usr/bin/perl
open (PASS, "sort -n -t : +3 -4 +0 /etc/passwd|") || die "File not found";
while(<PASS>)
{
($login, $pass, $uid, $gin, $name, $home_dir, $shell)=split(':');
write();
}
close(PASS);
exit 0;
format STDOUT =
User: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
--------------------------------------------------------------------
Login: @<<<<<<<<< Uid: @<<<<<< Gid: @<<<<<<< Home dir: @<<<<<<<
$login, $uid, $gid, $home_dir
--------------------------------------------------------------------
[ALTER @ ALTER lessons]# ./4.pl
Format not terminated at ./4.pl line 20, at end of line syntax error at ./4.pl
line 20, at EOF
Execution of ./4.pl aborted due to compilation errors.
Вот такая хрень вылазит, модет я конечно что - то не туда написал, но вроде бы
все так.
_Hу, бывай_ Alexander!
... Dolgov Roman aka ALTER
--- [rstation@mail.ru] ---
* Origin: Карлсон залетел и ждет Малыша! (2:5012/2.278)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/33704210f15d.html, оценка из 5, голосов 10
|