Форум АНТИЧАТ - Показать сообщение отдельно - Поиск мыльников в дампах таблиц.

Цитата:

Сообщение от KSURi

Код:

# perl -e "open(IN, 'base.sql'); open(OUT, '>', 'mail.txt'); while(<IN>) { print OUT $1 if /([-_.\d\w\s]+@[-_.\d\w]+)/ }"

Вродь должно сработать

И всё равно вот это проще и короче:

Код:

cat dump.sql | awk '{ $<номер колонки с мылом> }' > spambase.txt

UPD: а если ещё кавычки надо удалить, то делаем вот так:

Код:

cat dump.sql | awk '{ $<номер колонки с мылом> }' | sed s/\'//g > spambase.txt