#!/usr/bin/perl -w use strict; my %email_owners; %email_owners = ( 'mike@foo.net' => 'Mike Foo', 'jwtheis@smic.net' => 'Jim Theis', 'happy@bobbarker.net' => 'Happy Gilmore' ); my ($owner, $addy); while ( ($addy, $owner) = each %email_owners) { print "Owner: $owner\nEmail: $addy\n"; }
Arjen
In reply to Re: First time using hashes
by Aragorn
in thread First time using hashes
by IPstacks
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |