Extracting Email Addresses From File (via CLI)

perl -n -e 'if (/\s*([\w._-]+@[\w._-]+)\s*.*/) { print "$1\n"; } elsif (grep(/@/,$_)) { print "MISSED $_"; }' .delmenow

Leave a Reply

Your email address will not be published.