1: #!/usr/bin/perl
2: while ((@_=split ':',($_=<>))&&($_=$_[0])) {$e?(print join
3: ':',$_,$h{$_},($_[2])x2,'',0,0,@_[4..$#_]):($h{$_}=$_[1]); $e||=eof;}
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
RE: ./whatever /etc/shadow /etc/passwd master.passwd.in
by kryten (Scribe) on Apr 26, 2000 at 12:27 UTC | |
by ZZamboni (Curate) on Apr 27, 2000 at 22:21 UTC |