%PDF- %PDF-
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";