perl 使用全局变量逐行读取

Question

我有一个 perl 脚本-

#!/usr/bin/perl;
my $email = '[a-zA-Z0-9._]+@[a-zA-Z0-9._]+.[a-zA-Z0-9._]{2,4}';
open(FILE,'emails');
while (<FILE>) { 
    my $emails_not_found = 1;
    if ( m/$email/ ) { 
        print($_); 
        my $emails_not_found = 0; 
    } 
    if ( $emails_not_found ) {
        print "no emails\n";
    }
}  
close FILE;

文件emails是：

sdfasd@asd 
asdf

所以，如您所见，脚本不会将正则表达式与任何行匹配。但是，它会输出这个-

no emails
no emails

如果它根本不匹配正则表达式模式，我希望它一次输出“无电子邮件”。如果它只匹配正则表达式模式一次，它将打印该行并为另一行输出“无电子邮件” line :( 我只是希望它只输出带有电子邮件的行，或者输出 1 行显示“没有电子邮件”。提前致谢。

Answer 1

考虑使用一个模块，例如Regexp::Common::Email::Address，“...以匹配 RFC 2822 定义的电子邮件地址”：

use strict;
use warnings;
use Regexp::Common qw/Email::Address/;

my $emailFound = 0;
open my $fh, '<', 'emails' or die $!;

while (<$fh>) {
    if (/$RE{Email}{Address}/) {
        print;
        $emailFound = 1;
    }
}

close $fh;

print "no emails\n" if !$emailFound;

希望这会有所帮助！

Answer 2

试试这个，我更改了电子邮件文件名以便在我的机器上测试：

#!/usr/bin/perl

#output either JUST the lines with emails
# or
#1 line that says 'no emails'
use strict;
use warnings;

my $email = '[a-z0-9\._]+@[a-z0-9\._]+\.[a-z0-9\._]{2,4}';
open(FILE,'./email.txt');
my $emails_not_found = 1;
while (<FILE>) {
    if ( m/$email/i ) {
        print($_);
        $emails_not_found = 0;
    }
}

if ( $emails_not_found == 1) {
    print "no emails\n";
}
close FILE;

测试文件

sdfasd@asd
asdf
aaa@aaa.com
AAA@AAA.COM

输出

aaa@aaa.com
AAA@AAA.COM