This works:
#!/usr/bin/perl -w
use strict;
my @CmdList = ('/tmp/hello.pl', ' -p ', '"this is my parm"', ' -m ',
'"this is my message"', ' -o ', '"this is my option"', " data1 data2 data3
data4 data5");
print "cmd: ", @CmdList, "\n";
exec "@CmdList";
#!/usr/bin/perl -w
use vars qw($opt_m $opt_o $opt_p);
use Getopt::Long;
GetOptions ( "p=s" => \$opt_p, "m=s" => \$opt_m, "o=s" => \$opt_o,);
print "prog name <$0>, opt_p <$opt_p>, opt_m <$opt_m>, opt_o <$opt_o>,
\ncmdline: <" . join(",",@ARGV) .">\n";
Why, I dunno.
a
Andy Bach, Sys. Mangler
Internet: [EMAIL PROTECTED]
VOICE: (608) 261-5738 FAX 264-5030
" ... even if you're mediocre/decent at perl [the cmecf] code is pretty
confusing in certain areas ..." CB
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
