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