2005年10月05日
リスト値をハッシュに変換する
my ($v, %h);
foreach (@_) {
if (! $v) {$h{"$_"} = ""; $v = $_;}
else {$h{"$v"} = $_; $v = "";}
}
投稿者 mkomu : 2005年10月05日 09:27
my ($v, %h);
foreach (@_) {
if (! $v) {$h{"$_"} = ""; $v = $_;}
else {$h{"$v"} = $_; $v = "";}
}
投稿者 mkomu : 2005年10月05日 09:27