Dear Jupiter,
> a) does it "do the job" by itself:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> my $ue = 'whatever';
> my $con_type = 'whatever';
> my $nb_un = 'whatever';
> print "Running: perl compute_price.pl -email $ue -type $con_type -
> unit
> $nb_un\n";
> system "perl compute_price.pl -email $ue -type $con_type -unit
> $nb_un";
After following your suggestion (a) below.
It seems that the problem is with Acme::Spork.
But then again I may be wrong.
__BEGIN__
use strict;
use Data::Dumper;
use CGI::Carp qw( fatalsToBrowser );
use Acme::Spork;
my $uemail = '[EMAIL PROTECTED]';
my $code_core = 'compute_price.pl';
my $ct = 'sugar';
my $nu = 10;
print "Running: perl compute_price.pl -email $uemail -type $ct -unit $nu\n";
system "perl compute_price.pl -email $uemail -type $ct -unit $nu";
__END__
This script above _DOES_ gives the desired output:
Ouput:
Running: perl compute_price.pl -email [EMAIL PROTECTED] -type sugar -unit 10
$VAR1 = [
'-email',
'[EMAIL PROTECTED]',
'-type',
'sugar',
'-unit',
'10'
];
TOTAL: 1000 - [EMAIL PROTECTED]
__END OUTPUT__
Hope to hear from you again.
--
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>
