Обыскал весь инет, нигде не нашёл конкретного ответа на вопрос. Как соксофицировать перл скрипты? 1)Например я запускаю скрипт через командную строку, добавляю ком. строку в freecap-не работает. Скрипт не запускается. 2)Добавляю файл с:/webservers/usr/bin/perl.exe работает, но не через сокс. Конечно проще просто прописать в самом скрипте использование сокса. Но и на этот вопрос конкретного ответа я не нашёл. Если кто-нибудь ответит хоть на один вопрос буду благодарен. Вот простейший пример: PHP: #!/usr/bin/perl use LWP::UserAgent; use HTTP::Cookies; my $ua = LWP::UserAgent->new; $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19"); my $cookie = HTTP::Cookies->new(); $ua->cookie_jar($cookie); my $search = $ua->get('http://google.com')->content; open(OUT, ">> 1.html"); print OUT "$search\r\n"; close(OUT);
Под никсами канает http://proxychains.sourceforge.net/ , в том числе для перл-скриптов. Для LWP::UserAgent, судя по perldoc, напрямую можно использовать только http-прокси PHP: $ua->proxy($scheme, $proxy_url) #Set/retrieve proxy URL for a scheme: $ua->proxy(['http', 'ftp'], 'http://proxy.sn.no:8001/'); $ua->proxy('gopher', 'http://proxy.sn.no:8001/'); На цпане есть модуль для цепочки Net::SC и производный от него LWP:rotocol::http::SocksChain, после его установки LWP можно юзать через сокс/цепочку. ЗЫ. Писать на перле под винду - изврат
