05/05/12 03:39:38
>>640
######## $d_spliを指定したらログをデリファでソート
if($d_spli == 5){$d_spli = qq{$d_spli};
@sorted = #名前を変える
map { $_->[0] } #最初のキーを持ってくる
sort { $a->[1] <=> $b->[1] } #数値で昇順ソート
map { [$_, (split /,/)[$d_spli]] } @demilog3; #$d_spliで切り離して$_でもつ
}
elsif($d_spli){$d_spli = qq{$d_spli};
@sorted = #名前を変える
map { $_->[0] } #最初のキーを持ってくる
sort { $b->[1] cmp $a->[1] } #文字列で降順ソート
map { [$_, (split /,/)[$d_spli]] } @demilog3; #$d_spliで切り離して$_でもつ
}
else{$d_spli = q{0};
@sorted = @demilog3;
}