Lesson 7

---

練習問題Ａ

１．　sort1.pl を参考にして，英文テキストに現れる単語を次の順番で並べ替えるスクリプトを書きなさい。

元のsort1.pl

----- -----

while (<>) {

push (@words, split);

}

foreach $i (sort {$a cmp $b} @words) {

print $i . "\n";

}

exit;

----- -----

ａ．　大文字小文字を区別せずにアルファベット順でソート

while (<>) {

push (@wds, split);

}

foreach $i (sort {lc $a cmp lc $b} @wds) {

print $i . "\n";

}

exit;

ｂ．　ａ．の逆順 (Z/z → A/a) でソート

while (<>) {

push (@wds, split);

}

foreach $i (sort {lc $b cmp lc $a} @wds) {

print $i . "\n";

}

exit;

ｃ．　単語を語尾から比較し，アルファベット順でソート　(-a で終わる単語が -b で終わる単語よりも先に来る。)

while (<>) {

push (@wds, split);

}

foreach $i (sort {lc (reverse $a) cmp lc (reverse $b)} @wds) {

print $i . "\n";

}

exit;

ｄ．　各単語の文字数でソート

while (<>) {

push (@wds, split);

}

foreach $i (sort {length $a <=> length $b} @wds) {

print $i . "\n";

}

exit;

２．　longleg.txt に含まれる文を，文字数の大きいものから小さいものへと並べ替えなさい。以前作成した１行１文に整形したテキストを利用すること。

       while (<>) {

next if (/^\s*$/);

s/^\s+//;

                           s/\s+$//;
push (@sentences, split (/\n+/, $_));

}

foreach $i (sort {length $b <=> length $a} @sentences) {

print $i . "\n";

}

exit;

> perl script/sort1-5.pl sentenceslongleg.txt

３．　適当なファイルを対象に sort2.pl と wordfreq1.pl を実行しなさい。出力結果を確認し，なぜそうなるのか，スクリプトの内容を確認しなさい。

                       sort2.pl

                       -----     -----

                       #テキスト中の単語を大文字・小文字別でアルファベット順にソートする。
                       #何回も出てくる単語は１回のみ表示

                       while (<>) {

                            #スペースを区切りに切り分け、@wordsという配列に入れる
                            push (@words, split);
                       }

                       #アルファベット順にソート（大文字・小文字別）
                       foreach $i (sort {$a cmp $b} @words) {

                            #前の語と異なれば改行つきで表示し、$prevに次の語を入れる
                            if ($prev ne $i) {
                                  print $i . "\n";

                                  $prev = $i;
                            }
                       }
                       exit;

                       -----     -----

                       wordfreq1.pl

                       -----     -----

                       #テキスト中の単語を大文字・小文字別でアルファベット順にソートする。

                       #何回も出てくる単語は１回のみ表示
                       #出現回数も数えて表示

                       while (<>) {
                              push (@words, split);
                        }
                        foreach $i (sort {$a cmp $b} @words) {

                              #前の語と同じなら$countの数を１つずつ大きくする
                              if ($i eq $prev) {
                                    $count++;
                              }

                              #異なる語が出てきたら頻度とともに単語を表示し、$prevに次の語を入れ、$countを１に戻す
                              else {
                                     print "$count\t$prev\n";
                                     $prev = $i;
                                     $count = 1;
                              }
                         }
                         print "$count\t$prev\n";
                         exit;
                         -----     -----