#!/usr/bin/perl -w use strict; $|++; $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/ +sbin"; use CGI qw(:all delete_all escapeHTML); print header(), start_html(-title => "Traceroute Results"); print h1("Traceroute Results"); #open STDERR, ">&=1"; exec '/usr/bin/perl', '-T', 'child.pl', 'number=4' or die "Cannot exec +ute : $!"; print end_html;
I then call this with my browser and get -Content-Type: text/html; charset=ISO-8859-1 <?xml version="1.0" encoding="iso-8859-1"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-U +S"><head><title>Traceroute Results</title> </head><body><h1>Traceroute Results</h1>param: 4 Command line reporter Called with 1 parameters which was 1: number=4 * *
Traceroute Results param: Command line reporter Called with 1 parameters which was 1: num +ber=4 * *
Traceroute Results Use of uninitialized value in concatenation (.) or string at child.pl +line 10. param: Command line reporter Called with 1 parameters which +was 1: number=4 * *
In reply to Re^3: Passing Args via Exec
by Anonymous Monk
in thread Passing Args via Exec
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |