Perlコーディング初心者質問スレ Part 61

[0526 nobodyさん 2010/10/06(水) 11:41:28 ID:???]

こんな感じに書き換えればおｋ

foreach $Key(shuffle keys %P){
$Value = $p{$Key};
@VS_VALUES = split(/\s/,$Value);