perl 標準入力STDIN

#標準入力からの入力を受け、それをそのまま表示する。（エコーバック）実行後、文字列を入力してEnterキーを押すと画面にその文字列を表示した後、また入力を待つ。QUITを含む文字列を入力するとスクリプトを終了する。

#入力をそのままエコーする
#echo.pl

do{
    #標準入力から取り込む
    $string = <STDIN>;
    #表示する
    print $string;
    #QUITを含む文字列が入ると終了する
}until ($string =~ /QUIT/);

#実行結果
# hello
# hello
# world
# world
# QUIT
# QUIT