my $input = join ('', <>);Or, if you prefer named arguments:
my $input = open (IN, $ARGV[0]) && join ('', <IN>);Don't forget that it's @ARGV and not @argv.
use CGI;
In reply to Re^2: Lazy Coder
by tadman
in thread Join a file piped to a perl script
by tradez
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |