TechDays

_ [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"}