Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wl
use CGI;
...
my $cmdOut = qx[$cmd];

print "$hdr cmdOut = <br>$cmdOut<br>";
  2. or download this
    #!/usr/bin/perl -wl
use CGI;
...

print "$hdr from param() v2=$v2<br>";
print "$hdr my cmd line args: @ARGV<br>";
  3. or download this
    $ ./a1.cgi v1=box
Content-Type: text/html; charset=ISO-8859-1
...
I am a1.cgi: cmdOut = <br>&nbsp;&nbsp;I am a2.cgi: from param() v2=dog
+<br>
&nbsp;&nbsp;I am a2.cgi: my cmd line args: v2=dog<br>
<br>
  4. or download this
    $ ./a2.cgi v2=dog 2>&1
&nbsp;&nbsp;I am a2.cgi: from param() v2=dog<br>
&nbsp;&nbsp;I am a2.cgi: my cmd line args: v2=dog<br>
  5. or download this
    I am a1.cgi: v1=box
I am a1.cgi: cmd = ./a2.cgi v2=dog 2>&1
I am a1.cgi: cmdOut = 
  I am a2.cgi: from param() v2=
  I am a2.cgi: my cmd line args: v2=dog