Загрузка...
Поддержи Openmeetings

четверг, 15 марта 2012 г.

find: что бы это значило?

find . -name '*.eml' -exec perl -e '
  undef $/;
  $_ = <>;

  s/\r\n\r\n.*//;
  my $mails = "";

  while (s/\r\n(?:From|To|CC):(\s[^\r\n]*(?:\r\n\s[^\r\n]*)*)//gi) {
    $mails .= $1;
  }
  while ($mails =~ /([A-Z0-9._+-]+@[A-Z0-9.-]+\.[A-Z]{2,5})/gi) {
    print "$1\n";
  }
' {} \;  | sort -fu | tee ../list

Комментариев нет :

Отправить комментарий