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"}
Similar Posts:
- None Found
