anyevent

Perl AnyEvent::HTTP request using Proxy fails

由 ￣綄美尐妖づ 提交于 2019-12-21 22:18:19
问题 I tried using the perl module AnyEvent::HTTP to make asynchronous HTTP requests by following this post: http://www.windley.com/archives/2012/03/asynchronous_http_requests_in_perl_using_anyevent.shtml However, I'm not able to get it working through proxies... my $request; my $host = '<userid>:<pswd>@<proxyip>'; my $port = '<proxyport>'; my $headers = { ... 'Accept-Language'=> 'en-us,en;q=0.5', 'Accept-Charset'=> 'ISO-8859-1,utf-8;q=0.7,*;q=0.7', 'Keep-Alive' => 300, }; $request = http_request(

Multiple telnet clients/commands under AnyEvent

由 不想你离开。 提交于 2019-12-13 19:37:40
问题 If I'm reading multiple $_->{thand}->cmd($cmd) commands through same telnet connection, I've got disconnects. This manifests as multiple calls to ae_connect() . How to properly send and fetch data under AnyEvent ? use strict; use warnings; use Data::Dumper; use AnyEvent::Socket; use AnyEvent; use Net::Telnet; $| = 1; my $arr = [ { username => "user+ct", passwd => "1234", Host => "92.242.254.8", Port => 1094 }, { username => "user+ct", passwd => "1234", Host => "92.242.254.8", Port => 1095 },

Creating A Single Threaded Server with AnyEvent (Perl)

由 你说的曾经没有我的故事 提交于 2019-12-07 09:28:31
问题 I'm working on creating a local service to listen on localhost and provide a basic call and response type interface. What I'd like to start with is a baby server that you can connect to over telnet and echoes what it receives. I've heard AnyEvent is great for this, but the documentation for AnyEvent::Socket does not give a very good example how to do this. I'd like to build this with AnyEvent, AnyEvent::Socket and AnyEvent::Handle. Right now the little server code looks like this: #!/usr/bin

how to use AnyEvent::Handler with socket that has port reuse

由 。_饼干妹妹 提交于 2019-12-07 09:23:07
问题 Recently I ran into a great perl module "AnyEvent", which allows user to do asynchronous/event-driven programing. Created the following snippet which works fine. The problem I have is that after it opens and closes lots sockets, it quickly exhausted all the client ports ("netstat -ant" shows 20,000+ sockets are in TIME_WAIT state). $hdl = new AnyEvent::Handle ( connect => [$ip, $port], on_connect=> sub { my ($handle, $host, $port, $tmp) = @_; #print "connect routine for $handle->{ue}\r\n";

Creating A Single Threaded Server with AnyEvent (Perl)

由 生来就可爱ヽ(ⅴ＜●) 提交于 2019-12-05 11:55:14
I'm working on creating a local service to listen on localhost and provide a basic call and response type interface. What I'd like to start with is a baby server that you can connect to over telnet and echoes what it receives. I've heard AnyEvent is great for this, but the documentation for AnyEvent::Socket does not give a very good example how to do this. I'd like to build this with AnyEvent, AnyEvent::Socket and AnyEvent::Handle. Right now the little server code looks like this: #!/usr/bin/env perl use AnyEvent; use AnyEvent::Handle; use AnyEvent::Socket; my $cv = AnyEvent->condvar; my $host

Perl AnyEvent::HTTP request using Proxy fails

由 流过昼夜 提交于 2019-12-04 17:17:48
I tried using the perl module AnyEvent::HTTP to make asynchronous HTTP requests by following this post: http://www.windley.com/archives/2012/03/asynchronous_http_requests_in_perl_using_anyevent.shtml However, I'm not able to get it working through proxies... my $request; my $host = '<userid>:<pswd>@<proxyip>'; my $port = '<proxyport>'; my $headers = { ... 'Accept-Language'=> 'en-us,en;q=0.5', 'Accept-Charset'=> 'ISO-8859-1,utf-8;q=0.7,*;q=0.7', 'Keep-Alive' => 300, }; $request = http_request( GET => $url, timeout => 120, # seconds headers => $headers, proxy => [$host, $port], mymethod ); $cv-
订阅 anyevent