perlquestion
Anonymous Monk
I am busy converting a perl script into a CGI.. this snippet of perl code works fine;
<code>
open (FILE, $ARGV[0]) or die "unable to open file $!";
my $data = do {local $/; <FILE>; };
print $data;
</code>
So why doesn't this CGI alternative snippet not work??
<code>
$file_contents = $query->param('file');
$file_contents =~ m/^.*(\\|/\)(.*)/;
my $name = $2;
open (FILE, ">$name") or die $!;
my $data = do {local $/; <FILE>; };
print STDOUT $data;
</code>
thanks monks
4