2004年07月15日
ループ制御
LOOP: foreach $k (sort {$a <=> $b} keys (%DATA)) {
for $i (0..(@sdata - 1)) {
if ($DATA{"$k"} !~ /$sdata[$i]/) {next LOOP;}
}
# ヒットしたものだけ表示
print "$k => $DATA{$k}";
}
}
投稿者 mkomu : 2004年07月15日 00:00
トラックバック
このエントリーのトラックバックURL:
http://mkomu.sakura.ne.jp/mt/mt-tb.cgi/7
このリストは、次のエントリーを参照しています: ループ制御:
» Lactose Intolerance Diet from Lactose Intolerance Symptoms
Well, at least I found someone who thinks similar way. [続きを読む]
トラックバック時刻: 2010年08月26日 16:08