OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

Perlで メールアドレスを削除する方法

  • 困ってます
  • 質問No.156914
  • 閲覧数70
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 40% (100/250)

PerlでCGIを組んでいます。

textareaで入力され送信された内容から
メールアドレスを削除したいのです。


例えば、
***@xxx.yy.zz のような文字列があったら 自動的にそれを削除するには、
どんな方法が一番簡単に記述できるでしょうか?


もっと砕けていえば、
「@ を検索して、その前後5文字ずつを消す。」
とかそんなイメージのことでも構いません。


つまり、メールアドレスを不完全な形でもいいから自動的に削除したいのです。

何かアイデアがありましたら教えてください。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル8

ベストアンサー率 27% (8/29)

こんにちは。正規表現を使った置換を行えばできます。

$buff = 'はなもげら hana@mogera.com もげもげ';
$buff =~ s/\s.*@.*\s//g;
print $buff;

こうすると、メールアドレスだけ削除できますが、
この場合メールアドレスの前後に空白が入っていないといけません。

@ の前後5文字を削除というのであれば、

$buff =~ s/.{5}@.{5}//g;

とします。

$buff = 'はなもげらhana@mogera.comもげもげ';
$buff =~ s/\s*[a-zA-Z0-9_\-\.]*@[a-zA-Z0-9_\-\.]*\s*//g;
print $buff;

すると、前後がであれば空白が無くても削除します。
お礼コメント
u16

お礼率 40% (100/250)

お礼が遅くなってすいません。

どうもありがとうございます

大変参考になりました!
投稿日時 - 2001-11-07 21:18:44
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ