The easy approach is to read the documentation of AnyEvent::HTTP again. It documents your error situation and the remedy in detail because it's a very common error. Also, mixing Coro and AnyEvent makes very little sense in your case. Your code is IO/network-bound and won't benefit from the additional paralelization possibility that Coro opens up for you.

Also note that writing a password cracker is not really a great use of your and our time, and might even be illegal depending on your jurisdiction.

Mixing Coro and AnyEvent makes very little sense in your case.

I have no idea why you say that.

Making a fixed number of HTTP requests in parallel:

use AE             qw( );
use AnyEvent::HTTP qw( http_get );
use Coro           qw( async );
use Coro::Channel  qw( );

sub make_request {
   my ($url, $cb) = @_;
   
   http_get($url,
      ...,
      sub {
         ...
         $cb->();
      },
   );
}

my $num_workers = 10;

my $q = Coro::Channel->new();

my @threads;
for (1..$num_workers) {
   push @threads, async {
      while (my $url = $q->get()) {
         my $cv = AE::cv();
         make_request($url, $cv);
         $cv->recv();
      }
   }
}

while (my $url = get_next_url()) {
   $q->put($url);
}

$q->shutdown();
$_->join() for @threads;
[download]

Sure, you can do it without Coro too.

use AE             qw( );
use AnyEvent::HTTP qw( http_get );

sub make_request {
   my ($url, $cb) = @_;
   
   http_get($url,
      ...,
      sub {
         ...
         $cb->();
      },
   );
}

my $max_requests = 10;
my $active_requests = 0;

my $cv = AE::cv();
while (my $url = get_next_url()) {
   while ($active_requests == $max_requests) {
      $cv->recv();
      $cv = AE::cv();
   }

   ++$active_requests;
   make_request($url, sub {
      --$active_requests;
      $cv->send();
   });
}

while ($active_requests) {
   $cv->recv();
   $cv = AE::cv();
}
[download]

Whatever floats your boat.

not work

Ah, the ever so detailed error descriptions. The only one who is NOT working here is you. Show some effort by at least posting the error messages, preferably also add returned output and expected output. Please edit your posting now, and mark the update.

Alexander

Compare:

my $ua=LWP::UserAgent->new(agent=>'Mozilla/5.0 (Windows NT 10.0; rv:46.0) Gecko/20100101 Firefox/46.0',timeout=>10);

'User-Agent'=>'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0',

Hello , afoken , Corion , hippo : AnyEvent::HTTP cannot work ,the reason is that http_post login HTML information only,but could not simulate the login website same as LWP example . I know the pass parameters method of LWP POST ,such as UserName ,PassWord , LoginButton . But I do not know AnyEvent::HTTP is how to transfer the information to the website. I created headers from HttpFox . Could you help to make a simple AnyEvent::HTTP transfer example for reference ? Even though I am a novice,I like Perl very much ! Thanks a lot ~

I'm guessing you want to make web requests in parallel.

If you want to continue using Coro and/or AnyEvent, you'll find using LWP::Protocol::AnyEvent::http simpler.

use Coro                          qw( async );
use Coro::Channel                 qw( );
use LWP::Protocol::AnyEvent::http qw( );
use LWP::UserAgent                qw( );

my $num_workers = 10;

my $q = Coro::Channel->new();

my @threads;
for (1..$num_workers) {
   push @threads, async {
      my $ua = LWP::UserAgent->new();
      $ua->protocols_allowed([qw( http https )]);
      while (my $url = $q->get()) {
         my $response = $ua->get($url);
         ...
      }
   }
}

while (my $url = get_next_url()) {
   $q->put($url);
}

$q->shutdown();
$_->join() for @threads;
[download]

However, I'd personally use Net::Curl::Multi (on unix systems).