Extract emails from files

gistfile1.sh

#!/usr/bin/env bash

function email_extract {
  if [ -z "$1" -o -z "$2" ]; then
    echo usage: email_extract path file
    echo example: email_extract . *.php
    return 1
  fi

  find $1 -iname $2 -exec perl -wne'while(/[\w\.]+@[\w\.\-]+\w+/g){print "$&\n"}' {} \;
}

email_extract $1 $2
#vim: set ft=sh

Actually don't use this, use ack ack -i '[\w\.]+@[\w\.\-]+[a-z]{2,3}+' -o --no-filename | sort | uniq or rewrite it and make it ignore comments.