Mini Shell
Mini Shell
| Direktori : /proc/self/root/scripts2/ |
| Current File : //proc/self/root/scripts2/extract_email_from_log.pl |
#!/usr/bin/perl
use strict;
my $email_count;
while (my $line = <>) { #read from file or STDIN
foreach my $email (split /\s+/, $line) {
if ( $email =~ /^[-\w.]+@([a-z0-9][a-z-0-9]+\.)+[a-z]{2,4}$/i ) {
print $email . "\n";
$email_count++;
}
}
}
print "Emails Extracted: $email_count\n";