Lesson 8

---

練習問題Ａ

１．　サブルーチンを含むスクリプトを書きなさい。

#Lesson 7の２．を１行１文に整形するところから行うスクリプトのつもり。
#あまり自信はないが。少し難しい事を考えすぎたか？


while (<>) {

    &ll2ss (@ARGV);

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

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

}

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

    print $i . "\n";

}

exit;


sub ll2ss {

    $/ = "";

    s/ *\n */ /g;

    s/^\s+//;
    s/\s+$//;

    s/([.\?\!]\W*) +(\W*[A-Z])/$1\n$2/g;
    s/(Mr|Mrs)\. *\n/$1\. /g;

}