15 lines
414 B
Perl
15 lines
414 B
Perl
|
#Format:
|
||
|
|
#values(ASSOC_ARRAY)
|
||
|
|
#values ASSOC_ARRAY
|
||
|
|
|
||
|
|
# The values function returns the values in a hash
|
||
|
|
%weekday= ( '1'=>'Monday',
|
||
|
|
'2'=>'Tuesday',
|
||
|
|
'3'=>'Wednesday',
|
||
|
|
'4'=>'Thursday',
|
||
|
|
'5'=>'Friday',
|
||
|
|
'6'=>'Saturday',
|
||
|
|
'7'=>'Sunday',
|
||
|
|
);
|
||
|
|
foreach $value ( values(%weekday)){print "$value";}
|
||
|
|
print "\n";
|