regex - Perl：文字列操作-単語を文字「@」で囲む

Question

txtファイルからメールアドレスを抽出しようとしています。'@'文字を含む周囲の単語について考えました。誰かがそれをするための表現を知っていますか？

Answer 1

Perlでかなり一般的なマッチングの問題を解決する必要があるときはいつでも、最初Regexp::CommonにCPANでファミリをチェックする必要があります。この場合：Regexp::Common::Email::Address。PODシノプシスから：

  use Regexp::Common qw[Email::Address];
  use Email::Address;

  while (<>) {
      my (@found) = /($RE{Email}{Address})/g;
      my (@addrs) = map $_->address, Email::Address->parse("@found");
      print "X-Addresses: ", join(", ", @addrs), "\n";
  }

Answer 2

@これは非常に速くて汚い正規表現で、 ：の両側の空白以外の文字と一致します。

/\S+@\S+/

これは、のjohn.smith@example.comと一致します

いくつかのゴミのテキストjohn.smith@example.comもっとゴミのテキスト

お役に立てれば。