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"}
About Keiichi Yasu
音声・音響・聴覚情報処理に興味がある研究者。現在は吃音についての研究を行っている。Linuxを1998年より嗜む。
- Web |
- More Posts (2626)