AI时代，找源码已成为过去式，纪念我过去的十年0(回)
75天前
还有人吗2(回)
93天前会python真的可以为所欲为0(回)
573天前
这里还有人吗2(回)
758天前这里还有人吗0(回)
758天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
983天前#----------------------------- |
while(($key, $value) = each(%HASH)) { |
# do something with $key and $value |
} |
#----------------------------- |
foreach $key (keys %HASH) { |
$value = $HASH{$key}; |
# do something with $key and $value |
} |
#----------------------------- |
# %food_color per the introduction |
while(($food, $color) = each(%food_color)) { |
print "$food is $color.\n"; |
} |
# Banana is yellow. |
# |
# Apple is red. |
# |
# Carrot is orange. |
# |
# Lemon is yellow. |
foreach $food (keys %food_color) { |
my $color = $food_color{$food}; |
print "$food is $color.\n"; |
} |
# Banana is yellow. |
# |
# Apple is red. |
# |
# Carrot is orange. |
# |
# Lemon is yellow. |
#----------------------------- |
print |
|
"$food |
|
is |
|
$food_color{$food}.\n" |
|
#----------------------------- |
foreach $food (sort keys %food_color) { |
print "$food is $food_color{$food}.\n"; |
} |
# Apple is red. |
# |
# Banana is yellow. |
# |
# Carrot is orange. |
# |
# Lemon is yellow. |
#----------------------------- |
while ( ($k,$v) = each %food_color ) { |
print "Processing $k\n"; |
keys %food_color; # goes back to the start of %food_color |
} |
#----------------------------- |
# download the following standalone program |
#!/usr/bin/perl |
# countfrom - count number of messages from each sender |
$filename = $ARGV[0] || "-"; |
open(FILE, "<$filename") or die "Can't open $filename : $!"; |
while(<FILE>) { |
if (/^From: (.*)/) { $from{$1}++ } |
} |
foreach $person (sort keys %from) { |
print "$person: $from{$person}\n"; |
} |
#----------------------------- |
