perlスクリプト

質問

perlの勉強をしているものです。人様の作ったスクリプトを解析しています。以下のスクリプトについて質問があります。

while(chomp($in = <STDIN>)){
last if ($in eq "\cD");
print "$in";
}

このスクリプトに出てきている、"\cD"の意味と、ifの前に出てきているlastの働きが分かりません。またこのスクリプトは全体としてどのような仕事をするのでしょうか？？

分かる方いらっしゃいましたら、ご教授いただけると幸いです。よろしくお願いします。

回答No.1

SE-1

￥ｃD は Control-D のエスケープのようです。なぜそれがそこに入っているのかはスクリプトのほかの部分を見ないとわかりませんが。それから last は while ループを抜けだすために記述されています。

ですので、標準入力から入ってきた各行について、最後の改行を除いて、のこりの文字列が￥ｃD ならwhile ループを抜け、そうでなければその行を表示してループを繰り返す、というのが示された部分の意図するところだと思います。

お礼

回答ありがとうございました！参考になりました。