Поиск мыльников в дампах таблиц.

нужен скрипт который бы выдёргивал мыльники из дамп таблиц =\\

------------------------------------
Еще раз. Читай правила. Название топика должно отображать суть темы\вопроса.
Модератор Gh0s7

 

именно скрипт или прога?

 

можно прогу

 

Не забываем проверять на вирусы.

 

как вариант можно дамп импортировать в тот же phpMyAdmin и там с ним уже работать

 

}{0TT@БЬ)Ч
Импортировать в mysql и работать через phpmyadmin.

 

Вообще все зависит от формата дампа. Но для большинста подойдет такой скрипт:

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;

 

[ cash ] спс помагло ...

 

[ cash ] - что-то да боли знакомые Скрипты=)))

 

жуть... базу экспортировать а потом 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, колонки разбиваются автоматически

 

А sed и awk по твоему с чем работают? Эту колонку также можно с помощью sed вырезать.