Re: [dummy] обресетить хеш перед each?

[Andrew Khmelev]

Hello, Peter!
You wrote  on Mon, 9 Feb 2004 14:19:52 +0000 (UTC):


 PV> посмейся.
 PV> ===

ужоз.

 PV> sub cgi2uri{
 PV>   my %h; ( my $p, my $u ) = ( shift @_, shift @_ );

%h = (%$p, %$u);

остальное - в утиль.

 PV>   #join( ':',%$p);
 PV>   while( ( my $key, my $val )= each %$p ){
 PV>     print "P $key:$val\n";
 PV>     $h{$key}=${$p}{$key};
 PV>   }
 PV>   while( ( my $key, my $val )= each %$u ){
 PV>     print "U $key:$val\n";
 PV>     $h{$key}=${$u}{$key};
 PV>   }
 PV>   return enurl \%h;
 PV> }
 PV> ===



Sincerely,
Andrew Khmelev