perlで改行以降を削除

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

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

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

No.1 ベストアンサー 回答者： lowrider_2005 回答日時： 2013/08/07 13:56

$message2 = $message;

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

とか？

この回答へのお礼

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

お礼日時：2013/08/07 14:45

No.2 回答者： ralf124c 回答日時： 2013/08/07 13:59

いろんな書き方があると思いますが

単純にこんなのでいいでしょうか？

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