Всем привет. Помогите в спамере по одноклассникам от Каими сделать что б он спамил по онлайн пользователям только с Украины, России и Казахстана. Вот сам скрипт: http://kaimi.ru/wp-content/uploads/2009/01/pack.rar
Помогите плиз $smth =~/title"\svalue\="(.*)">/ У меня в переменной $smth много есть участков, которые удовлетворяют вышенаписанному условию. Но как сделать, чтобы перл присваивал переменной $1 значение из последнего совпавшего участка текста в переменной $smth?
Можно например так сделать: Code: $text = "value=1 value=2 value=3 value=4"; $m = ( $text =~ /=(\d+)/g )[-1]; print $m;
Всем привет. Помогите в спамере по одноклассникам от Каими сделать что б он спамил по онлайн пользователям только с Украины, России и Казахстана. Вот сам скрипт: http://kaimi.ru/wp-content/uploads/2009/01/pack.rar
Kaimi, спасибо. Вот хочу я, чтобы ко всем новостям сайта (двиг - ДЛЕ 7.3) были сделаны ключевые слова и описание. В ДЛЕ есть генератор этот находится в http://domain/engine/ajax/keywords.php Делаю туда пост запрос аналогично браузеру, а он мне возвращает только слова на английском(те, что латиницей). Очень странно. Когда я жму на кнопку "Сгенерировать ключевые слова" в одминке через браузер - генерирются, к примеру, слова А результат пост запроса, сделанный через LWP таков: Никак не могу понять в чем проблема. Какие у Вас возникают мыслишки по этому поводу? Мне что то не понять - почему такое происходит((?
eLWAux, Что там показывать то?? обычный скрипт с LWP::UserAgent Code: $url="ссылко"; $start=LWP::UserAgent->new or die; if($proxy) { $start->proxy('http',"http://".$proxy."/"); print "## Using proxy ".$proxy."\n"; } $browse = $start->get($url) or die ; $cont = "контент"; if (index($browse->content,$cont)>-1) { print "Next proxy!"; } и вот когда нашёл $cont надо перейти на другую проксю и опять его искать.))
ph1l1ster, вызови еще раз метод proxy(), только с другими параметрами! Только сам поиск надо в цикл запихнуть.
есть скрипт: Code: open(PASS,"pass.txt") $pass=<PASS> $url="ссылка".$pass."ссылка"; $br = LWP::UserAgent->new( ) or die; $a = $br->get($url); if (index($a->content,$index)>-1) { print $pass; } как реализовать многопоточность, чтобы в каждом новом потоке бралась новая строчка из $pass
Можно заморочиться с POE и событийной машиной, но вот с thread-ми завязываться не советую. Я однажды реализовывал что-то подобное (чтение из файла и запись в файл) и проблема у меня была с тем, что в процессе чтения из файла происходило переключение контекста! Это приводило к тому что строка считывалась не полностью сразу двумя процессами. Блокировки на файл мне не помогли. Может я конечно что-то не так делал, но с тех пор решил с потоками не связываться.
ph1l1ster пример.. дальше сам Code: #!/usr/bin/perl -w use LWP::UserAgent; use threads; ############## $threads = 5; ############## open(PASS,"pass.txt"); @pass=<PASS>; sub brut( $ ) { my $c = $_[0]; for(my $i=$c;$i<scalar(@pass);$i+=$threads) { my $url = "ссылка".$pass[$i]."ссылка"; my $br = LWP::UserAgent->new( ) or die; my $a = $br->get($url); if (index($a->content,$index)>-1) { print $pass[$i]; } } } my @threadz; for my $i (0..($threads-1)) { push @threadz, threads->create(\&brut, $i); sleep(1); } for(@threadz) { $_->join(); }
помогите пожалуйста написать скрипт на shell, извините что не в тему пишу другого места не нашел, Удаление всех файлов с указанным суффиксом, к которым не было обращений указанное число дней. с меня плюс и вечная благодарность
Всем привет. Помогите в спамере по одноклассникам от Каими сделать что б он спамил по онлайн пользователям только с Украины, России и Казахстана. Вот сам скрипт: http://kaimi.ru/wp-content/uploads/2009/01/pack.rar
Ребят, привет всем! У меня такой вопрос, пытаюсь авторизироваться на сайте отправив методом POST логин и пароль, ничего не получается (хотя на некоторых других - все ОК!). Собсно ошибка: Как я понимаю проблема с SSL сертификатом. Без SSL авторизация не удается Собсно сам код:
Подскажите как можно оптимизировать данный скрипт? Скрипт открывает файл,далее выдирает значение после точки запятой и пихает в массив,далее необходимо удлаить повторяющиеся значения и посчиттаь кол-во уников...дело в том что размер файла около 4Гб PHP: #!/usr/bin/perl my @res= (); use strict; use warnings; open my $FILE, '<', 'file.txt' or die "Open error: $!\n"; my @f = <$FILE>; chomp @f; close $FILE; while (@f) { my ($a, $b,$c,$d) = split(/;/, shift(@f)); push(@res, $d); } @res= grep{!$_{$_}++} @res; print "Unique numbers is:".scalar(@res); З.ы. за кривость не бейте )
