文字列から

Question

をメールでお知らせします。可能性の重複：
How to extract email address from a string using perl?

私はこのような文字列があるとしましょう：

博士はX大学の名前どこピートに@ school.edu Blah blah 3 one niner

どうすれば電子メールをそこから取り出すことができますか？

Answer 1

あなたは言葉を言うことはありませんが、この方法で使用できます。

http://www.codeproject.com/KB/vb/extractemail.aspx http://www.webdeveloper.com/forum/showthread.php?t=200875

をし、多くがありましたGoogleの他のユーザー（違反行為ではなく、私があなたを助けて見たもの）

Answer 2

Email::Findを試すことができます。

#!/usr/bin/perl 

use strict; use warnings; 
use YAML; 
use Email::Find; 

my $finder = Email::Find->new(\&print_email); 

while (my $data = <DATA>) { 
    $finder->find(\$data); 
} 

sub print_email { 
    print Dump \@_; 
} 

__DATA__ 
Say I have a string like this: 

Dr. X University of School name in nowhere pete@school.edu Blah blah 3 one niner 

How would I get the email out of there? 

出力：

--- 
- !!perl/array:Mail::Address 
    - '' 
    - pete@school.edu 
- pete@school.edu