> C++ program's output looks like this:
>
> A= 20
> B= 30
> C= 70
> AVG= 40
> MIN= 30
> MAX= 70
> TIME= 0.0037
>
> If I call this in Perl:
>
> #!/usr/bin/perl -w
> my $result = `myapp`;
replace as :
my @results = `myapp`;
> exit;
>
> there is output myapp saved in $result
>
> How to move values from $result to my variables, like
Then :
my %data = ();
for (@results)
{ my ($key, $value) = split /= /, $_, 2;
chomp ($value);
$data{$key} = $value;
}
print $data{valA}; # you got 20
print $data{valB}; # you got 30
Rgds,
Connie
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
