Vadim Kutchin wrote:
> Hi!
Hello,
> I have some function, such as:
>
> ===========================================
> sub func1 {
> my (%rez);
>
> $rez{one} = 'one';
> $rez{two} = 'two';
> $rez{seven} = 'seven';
>
> return %rez;
> }
> ===========================================
>
> and I have such piece of code:
>
> ===========================================
> %rez = func1;
> $val = $rez{two};
>
> print $val;
> ===========================================
>
> I want to avoid using %rez in second piece of code, parse output of func1 in
> one
> step.
>
> How?
$ perl -le'
use warnings;
use strict;
sub func1 {
my %rez = (
one => q/one/,
two => q/two/,
seven => q/seven/,
);
return %rez;
}
my $val = ${ { func1 } }{ two };
print $val;
'
two
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
