sub readfile { my $OP ; open FS, $_[0] ; while (<FS>) {$OP .= $_} close FS ; return $OP ; }
sub readlines { open FS, $_[0] ; my (@OP) = <FS> ; close FS ; return (@OP) ; }
In reply to Return the contents of a file by jamescohen
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |