Perlの<STDIN>にて複数行(改行を含んだ)入力の受け取り方

Question

ってズバリどのように処理すれば良いんでしょう
具体的にはメッセージを受け取りたいと考えてます

あなたの自己紹介をしてください

のような<STDIN>に対し入力をするわけですが、

my $msg = <STDIN>;
chomp($msg);

のように受け取っても一行だけしか受け取れ無いのは当たり前で

教えて欲しいっす....

Answer 1

これでも良いでしょうか？
while (my $msg = <STDIN>) {
chomp($msg);
print $msg ."\n";
}

Comments

[hogehoge123456]

解答ありがとうございます
このコードで入力を終えて一度whileを終了させて次の<STDIN>に移動したい時ってどうしますか？

調べによるとWindowsのCMDではctrl+Zでループを中断出来るとのことですが無理でした、、質問外なのでご存知ではないならばよろしいのですが

[A.Ichi]

stdinに関してredirectは調べましたが出来ない様です。コンソールからの入力の視点からすると戻りは出来ない様な気がします。

CTRL-Cの割り込みはシグナルを追加する事で可能になります。
$SIG{INT} = sub {
warn "割り込み";
};

Answer 2

複数行をまとめて1変数に入れたい（改行文字を無視したい）ということであれば、

$/ = "";
my $msg = <STDIN>; 

です。$/が区切り文字を表します。

そうじゃなくて、1行ずつ順番に処理したいと言うことなら、whileを使います。

Comments

[hogehoge123456]

解答ありがとうございます
区切り文字は知りませんでした。調べようと思います