Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - _apple_

Страницы: [1]
1
Perl / Мультипроцессовый LWP
« : 08 Апреля 2005, 17:53:35 »
хммм, а что за запросы? запросы запросам рознь.  Если можно покажите кусочек кода. может и хост один был?

Знаете историю про секретаршу, которая делала 3000 знаков в минуту?

2
Perl / Мультипроцессовый LWP
« : 08 Апреля 2005, 01:11:11 »
там есть узкое место системный коннект, я вообще не понимаю, что это за параллельный процесс, который не создает свои экземпляры.

я проверял на 3.500 хостах. Перл начинает разочаровывать!

3
Perl / Timeout IO::Socket::INET
« : 06 Апреля 2005, 17:50:14 »
Так а зачем этот таймаут, если в IO::Socket его все равное прибивают?
${*$sock}{\'io_socket_timeout\'} = delete $arg{Timeout};

или у меня под виндой только так тормозит? Люди, у кого реально пашет таймаут? Здесь же черным по белому написано.
The requests is aborted if no activity on the connection ... у меня на все кроме 200 OK ответ около 10 сек.

4
Perl / Timeout IO::Socket::INET
« : 06 Апреля 2005, 01:56:40 »
Всем привет,
вот тут проблема,
сижу под виндой, нужно быстрое открытие сокета и его закрытие при неудаче.

my $sock = IO::Socket::INET->new(PeerAddr => $host,
              PeerPort => $port,
              Proto    => \'tcp\',
              Timeout  => 2,
              $self->_extra_sock_opts($host, $port),
             );

так, вот сколько Timeout не ставь все равно томозит более 10 секунд.

как бы так сделать, что бы если в две секунды не был получен ответ, закрыть сокет и не тратить драгоценное время?

5
Perl / количество вхождений
« : 30 Марта 2005, 02:30:16 »
Парни, что то я туплю.
есть строка, нужно узнать количество вхождений определенного набора символов в эту строку.
например есть строка
$a = "дрл1лор3лор53лориь353";
нужно узнать сколько в ней букв [л|р]


спасибо

6
Perl / латиница
« : 30 Марта 2005, 02:26:26 »
я по другом сделал. перегнал все в юникод, а там уде просто достать. но все равно спасибо.

7
Perl / Определить Redirect
« : 23 Марта 2005, 02:02:07 »
$ua = LWP::UserAgent->new;
$request = HTTP::Request->new(\'GET\', \'http://foo.com\');
$response = $ua->request($request);

// как вот отсюда выдрать массив URL?
$requests = $response->previous;

8
Perl / Определить Redirect
« : 23 Марта 2005, 01:13:55 »
Ясно, а как получить массив всех пройденных хостов при редиректе?

допустим их три, 1 ссылаеться на 2-ой, а второй на 3-ий
все через Location.

9
Perl / Определить Redirect
« : 22 Марта 2005, 23:44:43 »
и что это? по какому коду?
header(\'Location: ...\'); ловит и так отлично.

а вот как реально отловить такие вещи?



или
JavaScript
document.location = "http://foo.home";

можно примерчик или идею?

10
Perl / Определить Redirect
« : 22 Марта 2005, 21:15:31 »
Привет,
вот над такой проблемой сижу.

обращаясь к странице через LWP::UserAgent, хочу узнать, был ли редирект. т.е. я знаю что он был, но как мне программно об этом узнать?

туда, куда послал запрос - status_line = 200OK, но на самом деле отображается совсем другая страница, на которую был с этой первой редирект.

-- begin first.html --
...

...
-- end first.html --

как на Perl это детектить и можно ли это вообще сделать?

Страницы: [1]