Hi Nanda,
Thanks for your reply.
>
> system("perl mycode.pl -email \"$receipt_email\" -type $sometype -unit
> $some_unit");
>
>
But it still cannot work.
What I have in mycode.pl looks like this:
__BEGIN__
use strict;
use Data::Dumper;
use Getopt::Long;
print Dumper [EMAIL PROTECTED] ;
my $type = 'bar';
my $no_unit = 1;
my $help = 0;
my $tg_email = '';
if ( @ARGV == 0 ) {
&usage();
exit(1);
}
my $res = GetOptions ( "type=s"=>\$type,
"unit=i"=>\$no_unit,
"email=s"=>\$tg_email,
"help"=>\$help,);
if ($res) {
print "$tg_email\n" # show nothing here.
# and do some other thing
}
__END__
And my actuall system call is this::
__BEGIN__
use Acme::Spork;
my $req_id = spork( sub { system("perl compute_price.pl -eml \"$uemail\"
-type $ct -unit $nu"); } )
or die qq {Could not fork for spork: $!};
__END__
Any idea?
--
Regards,
Edward WIJAYA
------------ Institute For Infocomm Research - Disclaimer -------------
This email is confidential and may be privileged. If you are not the intended
recipient, please delete it and notify us immediately. Please do not copy or
use it for any purpose, or disclose its contents to any other person. Thank you.
--------------------------------------------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
