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

Цитата:

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

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

ага, тока перенос строки надо бы добавить..

Код:

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

Цитата:

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

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

и все же гораздо универсальнее использовать регулярки для подобных дел.. и колонки считать не надо )..