Сообщения

61

Perl / Подскажите где можно чего почитать

« : 25 Апреля 2006, 09:46:33 »

http://forums.webscript.ru/showthread.php?s=&postid=140817#post140817

62

Perl / perl и proxy сервера?

« : 25 Апреля 2006, 09:41:11 »

А если без модуля LWP то можно так:

use IO::Socket::INET;
my $sock = IO::Socket::INET->new(PeerAddr => "proxyhost:port", Timeout => 1);
send($sock,"GET http://www.google.ru/ HTTP/1.0\\r\\n\\r\\n",0);
print while <$sock>;
close $sock;

63

Perl / парсинг html

« : 25 Апреля 2006, 09:33:45 »

@all_name_links = $content =~ m%(.+?)%ig;

64

Perl / Что за сессии за такие?

« : 02 Марта 2006, 13:31:51 »

А что если смотреть перменные окружения, которые остаются неизменными для каждого конкретного браузера при неоднократном заходе на сайт?
Например, возьмем переменные окружения:
HTTP_ACCEPT_ENCODING
HTTP_CONNECTION
REQUEST_METHOD
HTTP_ACCEPT
HTTP_ACCEPT_CHARSET
QUERY_STRING
REMOTE_PORT
HTTP_USER_AGENT
HTTP_CACHE_CONTROL
HTTP_ACCEPT_LANGUAGE
HTTP_COOKIE
REMOTE_ADDR
HTTP_KEEP_ALIVE
SERVER_PROTOCOL
HTTP_X_FORWARDED_FOR
GATEWAY_INTERFACE
DOCUMENT_ROOT
HTTP_VIA
HTTP_HOST

оставим только те которые неизменны на период сессии, к примеру(чем больше тем лучше):
HTTP_VIA
SERVER_PROTOCOL
HTTP_X_FORWARDED_FOR
GATEWAY_INTERFACE
REMOTE_ADDR
(еще можно какие нибудь, чем больше тем лучше)

Вскрипте получаем все эти данные, на основе какого либо алгоритма получаем уникальный ключ, этот ключ и бдует идентификатором сессии.

Данная система не будет работать только если взять два  компьютера, поставить одинаковые ОС и браузеры, под ними заходить на сайт через elit proxy (прокси которые ни в одном из заголовков не остовляют следов о том что это прокси). Но наверное таких практически нет.