_ [perl] 文字数でソート
hoge.txtを文字数の少ない行順でならびかえるスクリプト。コーパスのリストから短い文を選びたかったから作った。
#! /usr/bin/perl -w
@list=();
@list_sort=();
$file = $ARGV[0];
open(IN,$file);
@list=＜IN＞;
@list_sort=sort {
length($a) <=> length($b)
}@list;
foreach $i (@list_sort) {print "$i"}
_ わかばやし [お疲れ様です。 一通り、作業はおわったから差作業をいっしょにやったメンバー全員で落ち着いたら串揚げ食い放題逝きましょ..]
_ さかや [がんばれー！]
_ やす [>>わかばやしさん 本当にお疲れ様でした。串揚げいいですねぇーー。 >>さかや ありがとー]