Jul 14
#!/usr/bin/perl
$cimek=1;
while (<>) {
if (/[\w.-]+\@(?:[\w-]+\.)+\w+/) {
print “$cimek: $&\n”;
$cimek=$cimek+1;
}
}
print “Total $cimek.\n”;
Leave a Reply
You must be logged in to post a comment.
#!/usr/bin/perl
$cimek=1;
while (<>) {
if (/[\w.-]+\@(?:[\w-]+\.)+\w+/) {
print “$cimek: $&\n”;
$cimek=$cimek+1;
}
}
print “Total $cimek.\n”;
You must be logged in to post a comment.
Recent Comments