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

[Peter Vereshagin]

посмейся.
===
sub cgi2uri{
  my %h; ( my $p, my $u ) = ( shift @_, shift @_ );
  #join( ':',%$p);
  while( ( my $key, my $val )= each %$p ){
    print "P $key:$val\n";
    $h{$key}=${$p}{$key};
  }
  while( ( my $key, my $val )= each %$u ){
    print "U $key:$val\n";
    $h{$key}=${$u}{$key};
  }
  return enurl \%h;
}
===

убираем диез --- вуаля сапожники!

Mon, Feb 09, 2004 at 06:04:03PM +0400 Копыл Юрий Валериевич To 'samara-pm на mail.pm.org'
КЮВ> приведи полный код
КЮВ> "Peter Vereshagin" <petr999 на mail.ru> сообщил/сообщила в новостях следующее:
КЮВ> news:<20040209135719.GA32418 на least.beast>...
КЮВ> > each() не работает, если перед ним не вставить, например, join(). 
КЮВ> > Видимо, в хеше есть какой-то вгутри указатель на текущий ключ? Как бы 
КЮВ> > этот указатель сбросить? === #join( ':', %h ); while( ( my $key, my 
КЮВ> > $val ) = each %h ){} ===
КЮВ> > так примерно не работает

-- 
http://raigra.km.ru