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

Это ты конечно неплохо написал, проги на перле с окнами, держи плюс, но я сомневаюсь что оконный интерфейс, это то-что надо для отаки на сервер, хотя смотря что ты подразумеваешь под словом "залезли".

Цитата:

скопируете код в новый файл и заливайте шелл

Не проще ли скопировать шэл, вместо этой качалки

.
А насчёт выдерания мэилов, так думаю будет проще, + повторяющиеся отсеяться.

Код:

#!/usr/bin/perl

if (@ARGV < 1) { print "Usage: script.pl source.txt destination.txt\n"; exit; }

($src, $dest) = @ARGV;

open(IN, $src) || die "Can't read $src\n";
read(IN, $buf, -s$src);
close(IN);

while($buf =~ /\b([\w\d]+\@[\w\d]+\.[\w\d\.]+)\b/g) { $list{"$1"} = ""; }

open(OUT, ">$dest") || die "Can't write $dest\n";
$, = ';';
print OUT keys %list;
close(OUT);