ファイルの行の並びかえ

No.1<>あいうえお<>4
No.2<>かきくけこ<>1
No.3<>さしすせそ<>3
No.4<>たちつてと<>2

上のようなテキストファイルを下のよう並べかえるにはどうすればいいのでしょうか？

No.2<>かきくけこ<>1
No.4<>たちつてと<>2
No.3<>さしすせそ<>3
No.1<>あいうえお<>4


つまり一番右の数字でソートする（？）ような感じです。（すいません、うまくいえません・・・）

No.2 ベストアンサー 回答者： karumakaruma 回答日時： 2005/09/27 11:09

#1の方と同じシュワルツ変換ですが

コマンドラインからはされないですよね？（＾＾；；

#表示する場合
open(TEST, テキストファイル);
print map {$_->[0]} sort {$a->[3] <=> $b->[3]} map {[$_, split /<>/]} <TEST>;
close(TEST);

#配列に入れる場合
open(TEST, テキストファイル);
@List = map {$_->[0]} sort {$a->[3] <=> $b->[3]} map {[$_, split /<>/]} <TEST>;
close(TEST);

あとUNIX系環境なら

#表示する場合
system("sort -t '>' -n -k 3,3 テキストファイル);
#配列に入れる場合
@List = `sort -t '>' -n -k 3,3 テキストファイル`;

という手もありますが、ソースを見た人の
笑いを取れるというくらいしか効果がありません(苦笑)

この回答へのお礼

いろいろと詳しくありがとうございました。

お礼日時：2005/09/27 23:05

No.1 回答者： osamuy 回答日時： 2005/09/26 23:37

1行で書くとこんな感じ：

perl -e 'print map{$_->[0]}sort{$a->[1]<=>$b->[1]}map{[$_,(split("<>",$_))[2]]}<>' テキストファイル

いわゆるシュワルツ変換ですが。

参考URL：http://en.wikipedia.org/wiki/Schwartzian_transform

この回答へのお礼

解決しました！
ありがとうございました。。。

お礼日時：2005/09/27 23:04