- 644 名前：nobodyさん mailto:sage [2005/05/12(木) 03:39:38 ID:???]
- >>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;
}
|
 |
