my $t = Mojo::Client->new;
$t->max_redirects( 1 );
+my $stats;
+
foreach my $c ( sort {
my $at = $1 if $a =~ m/(\d+\.\d+)/;
my $bt = $1 if $b =~ m/(\d+\.\d+)/;
warn "# hash ",dump($hash);
my $tx = $t->post_form( $url => $hash );
- if ( my $res = $tx->success) { print $res->body }
- else {
+ if ( my $res = $tx->success) {
+ my $code = $res->code;
+ $stats->{$code}++;
+ print $code, ' ', $res->body
+ } else {
my ($code, $message) = $tx->error;
die "Error: $message";
}
# last if $max-- == 0;
}
+
+warn "# stats ",dump($stats);