perlで改行以降を削除

質問

$messageの中に○○○○<br>△△△△<br>□□□□の文字列が入っています。

最初の<br>以降を削除して○○○○だけを取り出すにはどうしたらよいですか?

$message2 = "$messageの改行以降を消す"
の方法を教えてください!

回答No.1

lowrider_2005 · ベストアンサー

$message2 = $message;
$message2 =~ s/<br>.*//g;

とか？

お礼

ありがとうございます!
無事できました!!

回答No.2

ralf124c

いろんな書き方があると思いますが
単純にこんなのでいいでしょうか？

$message = "○○○○<br>△△△△<br>□□□□";
print $message."\n";
$message =~ s/<br>.*//; ## この一行で消えると思います
print $message;