- 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; }
|

|