テキストファイルを検索して有効なメールアドレスを見つけようとしています。このような何かをしているIm:テキストファイルから電子メールアドレスを検証しますか?
#!/usr/bin/perl -w
my $infile = 'emails.txt';
open IN, "< $infile" or die "Can't open $infile : $!";
while(<IN>)
{
if ($infile =~ /^[A-Z0-9._%+-][email protected][A-Z0-9.-]+\.[A-Z]{2,6}$/)
{
print "Valid \n";
}
}
close IN;
しかし、何か助けてくれませんか?
有効な文字がないため、RFC 5322(http://tools.ietf.org/html/rfc5322)をお読みください – Benoit
電子メールアドレスはどのように埋め込まれていますか? 1行に1つの完全なアドレス?他のデータに散在していますか? 1行に複数のアドレスを入れることはできますか?メールアドレスを複数の行に分割することはできますか? – Narveson