シェルというか、sortコマンドで
sort +1 でできますよ。
ただ、区切り文字がデフォルトだとタブだったかな？
sort -d" " +1 とかしないといけないかも。

回答ありがとうございました。

こんばんは、

date.txtの中身をリードしているのは
どの部分でしょうか？
(file open しなくても 
 ファイルをリードできているのが
 不思議に思います)

>>BLUEPIXY
perlでと言われて素直にこうかなと思いましたが
# perl -e 'print sort {(split / /,$a)[1] <=> (split / /,$b)[1]} <>' data
そんな方法が。

恥ずかしながらsplitが引数なしでそんな動作するとは知りませんでした。めちゃめちゃ便利ですねぇ。

>ソートの比較手続きで、その度にキーを取り出すような操作がムダなので、
なるほどです。

>>1,2
今使ってるmacのsort(5.93)でも+2だとだめで、
# sort --key=2 data.txt
か
#sort -k 2 data.txt
でいけました。


あとスレ主さん、1,2の方法だと文字列としてソートですが4,7だと数値でソートなので必要があれば考慮しといてください。
4と10をソートする時に文字列で比較するのと数値で比較するのでは順序が変わりますので。
・シェルのソート
デフォルト：文字列
-nオプションつき：数値

perlの比較関数中で使ってる演算子は
<=>演算子：数値比較
cmp演算子：文字列比較
です。

10>右から左に処理されるのでしょうか？
全体として「右から左に処理される」と考えて良いです。

10>「 ，」 の役割は，何でしょうか？
map の構文として
map 評価すべき式, 適用すべきリスト
なので、そのための「,」です。

map $_->[0], sort{ $a->[1] <=> $b->[1] } map [$_, (split)[1]],<> 
は、
式：$_->[0]
リスト：sort{ $a->[1] <=> $b->[1] } map [$_, (split)[1]],<>

map [$_, (split)[1]],<>
は、
式：[$_, (split)[1]]
リスト(無名配列として読み込んだファイル全体)：<>
と言う風になっています。
式の引数の評価順としてそうなります。
（そのために、便宜上右から左に思える）
つまり
map(式, map(式, リスト))
のように呼び出しがネストしているということ。

10>「，」は，どのような役割でしょうか？
[ ] は、無名配列のリファレンス(を返す？)の構文です。
@array = ( 要素１, 要素２ )
のような意味で
$arrayr = [ 要素１, 要素２ ]
と書きます。
要するに、配列の要素を区切るためのカンマです。

配列のリファレンスへのアクセスは
$$arrayr[0]; #要素１
$arrayr->[1]; #このようにも書ける、要素２
の様にします。

「シュワルツ変換より高速なソート手法」というのを使って、こんな風にも書けるようです。

% perl -e 'my @data = <>; my @idx = map {(split)[1]} @data; print @data[ sort { $idx[$a] <=> $idx[$b] } 0 .. $#idx ];' data.txt

15>(split)[1]とはどのように動作するのでしょうか？
split は、split [/区切りパターン/ [, 処理文字列]]
の様に書いて（上記の[] は省略できることを表します）
処理文字列を区切りパターンで分割したリストを返します。
パターンを省略した時には、コメント８で言及しているパターンで
処理文字列を省略した時には、$_ を処理します。
つまり、処理文字列が
"AA 55 AA AA"
の時
("AA", "55", "AA", "AA")
のようなリストを作ります。
リストは、ほぼ配列と同じと考えて良いので
("AA", "55", "AA", "AA")[1]
は、"55" を取り出すことになります。
つまり「入力したデータ行それぞれから２列(カラム)目を取り出す。」ということです。

#テスト用プログラム
$pos = tell(DATA);

while(<DATA>){
	$result = (split)[1];
	print "$result\n";
}
print "\n";

seek(DATA, $pos, 0);#巻き戻し

print "test:('AA', '55', 'AA', 'AA')[1]\t";
$result = ('AA', '55', 'AA', 'AA')[1];
print "$result\n\n";

while(<DATA>){
	@list = split(/[\s\t\n]+/, $_);
	print "(" . join(",", @list) . ")\n";
	print "@list[1]\t$list[1]\n";
}

__DATA__
AA 55 AA AA 
BB 44 BB BB 
CC 33 CC CC 
DD 22 DD DD 
EE 11 EE EE