Go4Expert - View Single Post - Using CAT command in Perl-CGI script

pradeep

Here's the code

Code: Perl

#!/usr/bin/perl
 
 use CGI;
 
 my $q = new CGI;
 
 $file = $q->param('file') || $ARGV[0];
 
 if(-f $file)
 {
     $txt = qx(cat $file);
 }
 else
 {
     $txt = "File doesn't not exist!";
 }
 
 print $q->header,$txt;

pradeep Team Leader
2Mar2007,16:56
	Here's the code Code: Perl #!/usr/bin/perl use CGI; my $q = new CGI; $file = $q->param('file') \|\| $ARGV[0]; if(-f $file) { $txt = qx(cat $file); } else { $txt = "File doesn't not exist!"; } print $q->header,$txt;