Richard Lee wrote:
why does below not work?while ( my ($key,$value) = each( %{$oj_s} ) ) { print "$key and $value\n"; } assuming that oj_s contains $VAR1 = { 'abc' => '10.0.0.1_1035', 'cde' => '192.168.1.1_1037', 'fgh' => '192.168.100.1_10', }
What makes you believe it doesn't? Please post a short but _complete_ program to show us the issue.
-- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
