нужен скрипт который бы выдёргивал мыльники из дамп таблиц =\\ ------------------------------------ Еще раз. Читай правила. Название топика должно отображать суть темы\вопроса. Модератор Gh0s7
Вообще все зависит от формата дампа. Но для большинста подойдет такой скрипт: Code: #!/usr/bin/perl -w use strict; use warnings; my $file = $ARGV[0]; open (IN, "<$file) or warn "usage: $0 FILE\n" and exit(1); while(<IN>) { print $& . "\n" if /[-_.\d\w]{1,32}@[-_.\d\w]{1,64}/; } close IN;
жуть... базу экспортировать а потом grep | awk пройтись нельзя чтоли? ИМХО так проще. Хватит велосипеды изобретать =)
Code: # perl -e "open(IN, 'base.sql'); open(OUT, '>', 'mail.txt'); while(<IN>) { print OUT $1 if /([-_.\d\w\s]+@[-_.\d\w]+)/ }" Вродь должно сработать
И всё равно вот это проще и короче: Code: cat dump.sql | awk '{ $<номер колонки с мылом> }' > spambase.txt UPD: а если ещё кавычки надо удалить, то делаем вот так: Code: cat dump.sql | awk '{ $<номер колонки с мылом> }' | sed s/\'//g > spambase.txt
ага, тока перенос строки надо бы добавить.. Code: perl -e "open IN,'file.sql';open OUT,'>mail.txt';while(<IN>){print OUT \"$1\n\" if /([-_.\d\w\s]+@[-_.\d\w]+)/}" и все же гораздо универсальнее использовать регулярки для подобных дел.. и колонки считать не надо )..
Если база отображается в html (привет космочату) То можно просто скопировать весь текст со страницы и вставить в Excel, колонки разбиваются автоматически