perlで先頭の数値をみて昇順にならびかえたい。

perlで先頭の数値をみて昇順にならびかえたい。
以下のようなデータの先頭の二桁の数値をみて、昇順に行ごと並び替えをしたいです。
sort を使えば簡単にできるのでしょうか？

perlをはじめたばかりでよくわかりません。
ぜひ詳しく教えてください。お願いします

No.4 回答者： tatsu99 回答日時： 2014/04/04 23:08

windowsの環境という前提で回答します。

以下のようなスクリプトを作成してください。（1行です）
------------------------
print sort(<>);
------------------------
これをデータファイルが存在するディレクトリと同じ所に保存してください。
ファイル名は、sort.plとします。（名前は任意です。他の名前でもかまいません）
データファイル名をdata.txtすると、
コマンドプロンプトで、そのディレクトリに移動し、
perl sort.pl data.txt
と入力してください。画面にソートされた結果が表示されます。
ファイルに出力したい場合は、それをリダイレクトして下さい。
以下のようにします。
perl sort.pl data.txt > out.txt
と入力してください。
out.txtに結果が格納されます。

No.3 回答者： Tacosan 回答日時： 2014/04/04 11:05

このデータで「先頭の二桁の数値をみて、昇順に行ごと並び替えをしたい」なら sort でいい.

No.2 回答者： ORUKA1951 回答日時： 2014/04/04 09:32

perlでデータにページ数を付加したい。

- Perl - 教えて！goo( http://oshiete.goo.ne.jp/qa/8540888.html )
との一連の処理でしたら、配列のハッシュに入れてkeyでソートし、配列の要素数でページを付ければ良いです。
　Perlが最も得意とする処理です。
12パンダ
25ペンギン
12コアラ
11ライオン
27レッサーパンダ
10象
11トラ
11キリン
31カンガルー
27ヒョウ
があったとすると、
$animals{'12'}=(パンダ,コアラ)
$animals{'25'}=(ペンギン)
$animals{'11'}=(ライオン,トラ,キリン)
と言う風に、後はkeyでソートして、適当にフォーマットして出力すれば良いです。

No.1 回答者： kmee 回答日時： 2014/04/04 08:06

> sort を使えば簡単にできるのでしょうか？

はい。
sort関数は、比較方法を関数とし指定することができます。
詳しくはマニュアルを。
http://perldoc.jp/func/sort