E
ed
I'm having a bit of trouble sending hash elements to sub routines and
back.
Any help appreciated!
sub entry {
my $l = shift;
my %h = %_;
while( ( my $k, my $v ) = each ( %h ) ) {
print( "K: $k V: $v\n" );
}
return(%h);
}
$h{'stuff'} = "hello";
%h = entry( "1", \%h );
When run %h becomes empty in entry.
--
Regards, Ed :: http://www.s5h.net
proud unix hacker
Mr. T cannot be pitied. Mr. T is most often envied, admired or
feared. Once, Mr. T was even ignored. That fool has since been
nothing but pitied.
back.
Any help appreciated!
sub entry {
my $l = shift;
my %h = %_;
while( ( my $k, my $v ) = each ( %h ) ) {
print( "K: $k V: $v\n" );
}
return(%h);
}
$h{'stuff'} = "hello";
%h = entry( "1", \%h );
When run %h becomes empty in entry.
--
Regards, Ed :: http://www.s5h.net
proud unix hacker
Mr. T cannot be pitied. Mr. T is most often envied, admired or
feared. Once, Mr. T was even ignored. That fool has since been
nothing but pitied.