Think about Loose Coupling | |
PerlMonks |
./whatever /etc/shadow /etc/passwd master.passwd.inby jhebert (Initiate) |
on Apr 20, 2000 at 21:40 UTC ( [id://8214]=perlcraft: print w/replies, xml ) | Need Help?? |
1: #!/usr/bin/perl 2: while ((@_=split ':',($_=<>))&&($_=$_[0])) {$e?(print join 3: ':',$_,$h{$_},($_[2])x2,'',0,0,@_[4..$#_]):($h{$_}=$_[1]); $e||=eof;}
Back to
Craft
|
|