in reply to More efficient return of values from sub
sub routine_A { my ($name) = getinfo('name'); print $name; } sub routine_B { my ($address) = getinfo('address'); print $address; } sub getinfo { my %data; $data{name} = "Sam"; $data{address} = "123 Main St"; return @data{ @_ }; } routine_A; routine_B; print getinfo( 'name', 'address' );
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: More efficient return of values from sub
by bradcathey (Prior) on Mar 26, 2005 at 14:08 UTC |
In Section
Seekers of Perl Wisdom