Shinji Kuwayama

I occasionally have to search log files for email addresses. Here’s the command I use to extract them all out quickly into another file.
perl -wne’while(/[\w\.\-]+@[\w\.\-]+\w+/g){print “$&\n”}’ original.txt | sort -u > extracted_emails.txt
There’s probably room for improvement here—any ideas, please comment!