フォームメールからの文字列の切り出しについて

質問

Perl初心者です。
いわゆるフォームメールで受け取った文字列で、
$bodyに以下のような文字列が入っています。

住所:住所１
姓:姓１
名:名１
メールアドレス:メールアドレス１
会社名:会社名１

ここからメールアドレス１を$mailに代入したいのですが、どのようにしたらよいのでしょうか？
なお、住所１、姓１、名１、会社名１は固定ではなく何らかの文字列が入っているか、または何も入っていない場合もあります。
お詳しい方、よろしくお願いします。

回答No.1

BLUEPIXY · ベストアンサー

$body =~ /^\Qメールアドレス\E:(.*)$/m;
$mail=$1;
でいいと思います。

お礼

ありがとうございます。
明日試してみます。

補足

やってみました。
しかし、$mailには何も入ってませんでした。

回答No.3

BLUEPIXY

>：の左側を半角英数字にすると、
>$mailに文字列が入るようです。
>何がいけないのでしょうか？
全角文字列でうまくマッチングできない場合は、utf8を使うと良いようです。
utf8を使う場合には、\Q\Eは必要ないです（多分）。

参考URL：

http://okweb.jp/kotaeru.php3?qid=1336934

お礼

お返事遅くなって申し訳ございません。
utf8に変更はちょっと難しいので、とりあえず半角英数字のマッチングになるよう、フォームメールを変更したいと思います。
この度は大変助かりました。
ありがとうございます。

回答No.2

noname#191236

こんばんわ。

$bodyの内容ですが一字一句間違いはありませんか？
（改行、全角/半角等）
No,1の方の通り、以下のようにしてやると問題なく出来ましたよ。

#!/usr/bin/perl

$body = '
住所:住所１
姓:姓１
名:名１
メールアドレス:メールアドレス１
会社名:会社名１';

$body =~ /^\Qメールアドレス\E:(.*)$/m;
$mail = $1;

print "Content-type: text/html\n\n";
print $mail;

お礼

ありがとうございます。
No1のところに書くことができなくなっているので、
こちらに書きますが、

メールアドレス:メールアドレス１
ではなく、
mailto:メールアドレス１
のように：の左側を半角英数字にすると、
$mailに文字列が入るようです。
何がいけないのでしょうか？
私もNo1の方のやりかたでOKだと思うのですが。。。