16 lines
455 B
Perl
16 lines
455 B
Perl
|
#Format: each(ASSOC_ARRAY)
|
||
|
|
|
||
|
|
#! /usr/bin/perl
|
||
|
|
# The each function retrieves both keys and values from a hash
|
||
|
|
%weekday=(
|
||
|
|
'Mon' => 'Monday',
|
||
|
|
'Tue' => 'Tuesday',
|
||
|
|
'Wed' => 'Wednesday',
|
||
|
|
'Thu' => 'Thursday',
|
||
|
|
'Fri' => 'Friday',
|
||
|
|
'Sat' => 'Saturday',
|
||
|
|
'Sun' => 'Sunday',
|
||
|
|
);
|
||
|
|
while(($key,$value)=each(%weekday)){
|
||
|
|
print "$key = $value\n";
|
||
|
|
}
|