« 2005年05月 | メイン

2005年10月05日

リスト値をハッシュに変換する


my ($v, %h);
foreach (@_) {
if (! $v) {$h{"$_"} = ""; $v = $_;}
else {$h{"$v"} = $_; $v = "";}
}

投稿者 mkomu : 09:27 | コメント (0)