Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
20.05.2010, 08:35
|
|
Новичок
Регистрация: 29.01.2010
Сообщений: 10
Провел на форуме:
64797
Репутация:
0
|
|
Код:
#!/usr/bin/perl
use LWP::UserAgent;
$ua=LWP::UserAgent->new;
$ua->timeout(10);
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
$url='http://www.digitalcybersoft.com/ProxyList/fresh-proxy-list.shtml?CONNECT';
$page=$ua->get($url);
open(LOAD,">./proxy.txt");
while($page->content=~m/(\d+\.\d+\.\d+\.\d+)\:(\d+)/)
{
print LOAD $1.":".$2."\n";
print $1.":".$2."\n";
}
мне нужно что бы скрипт грабил все прокси с опреденной страницы, а скрипт записывает в файл один прокси много раз |
|
|
20.05.2010, 08:46
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Модификатор g
|
|
|
|
20.05.2010, 09:31
|
|
Новичок
Регистрация: 29.01.2010
Сообщений: 10
Провел на форуме:
64797
Репутация:
0
|
|
Сообщение от krypt3r
Модификатор g
я пробовал и с ним и без него все равно... кто нибудь исправьте ошибку в скрипте ))
|
|
|
|
20.05.2010, 09:36
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
$page->content помести перед while, например, так:
$page=$ua->get($url)->content;
........
while($page =~ .....
|
|
|
|
20.05.2010, 09:41
|
|
Новичок
Регистрация: 29.01.2010
Сообщений: 10
Провел на форуме:
64797
Репутация:
0
|
|
Сообщение от Kaimi
$page->content помести перед while, например, так:
$page=$ua->get($url)->content;
........
while($page =~ .....
все сделал как ты сказал, заработало...спс
|
|
|
|
20.05.2010, 18:44
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.04.2009
Сообщений: 231
Провел на форуме:
3363660
Репутация:
1148
|
|
Научите меня куки устанавливать с ресурса правильно...
И посылать их каждый раз при последующих запросах.
Используя Libwww. Мб участки кода  СПС |
|
|
|
21.05.2010, 07:31
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Код:
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
my $cookie_jar = HTTP::Cookies->new ('file' => 'cookie.txt', 'autosave' => 1);
my $ua = LWP::UserAgent->new;
$ua->cookie_jar ($cookie_jar);
либо
Код:
$ua->cookie_jar (HTTP::Cookies->new ('file' => 'cookie.txt', 'autosave' => 1));
|
|
|
|
27.05.2010, 23:16
|
|
Участник форума
Регистрация: 01.01.2009
Сообщений: 138
Провел на форуме:
817404
Репутация:
82
|
|
как мне сделать?
переменная = 0;
Потом запускаю функцию в несколько потоков и в функции к переменной прибавляем число
Переменная должна увеличиваться тоесть какбе быть глобально
чтобы было понятно
надо получить не 22222 а 2345678
PHP код:
use Threads;
use Threads::shared;
my $a = 1;
my $threads = 10;
for(1..$threads) { $thread[$_] = threads->create(\&b);}
for(1..$threads) { $thread[$_]->join; }
sub b {
$a = $a + 1;
print $a."\n";
}
sleep 123;
Последний раз редактировалось Vlad&slav; 27.05.2010 в 23:36..
|
|
|
|
28.05.2010, 01:46
|
|
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337
Репутация:
3486
|
|
my $a : shared = 1;
|
|
|
|
02.06.2010, 10:54
|
|
Новичок
Регистрация: 29.01.2010
Сообщений: 10
Провел на форуме:
64797
Репутация:
0
|
|
не как не врублюсь в многопоточность вот я запустил скрипт который сверху 10 потоков прошло и скрипт вырубился можно показать на скрипте сверху как брать логины из txt файла login;password и подключаться к например к сайту как бы сделать авторизацию
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
