Connie Chan wrote at Tue, 20 Aug 2002 09:10:41 +0200:
>> 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`;
> ...
>
> 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
Or just quite shorter:
chomp( my @statistics = `myapp` );
my %data = map {split /= /} @statistics;
or still shorter:
my %data = map {chomp; split /= /} `myapp`;
Best Wishes,
Janek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
