Changeset d6dd05b in lab.git for misc

Timestamp:

Nov 2, 2013 11:58:01 PM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

257952a

Parents:

512faed

Message:

fix: repeat loops in child processes

• '$pm->finish and then $pm->start' loop costs more CPU time

File:

• misc/httpbench.pl (modified) (1 diff)

misc/httpbench.pl

@@ -35 +35 @@
 
 my $pm = Parallel::ForkManager->new($concurrency);
-for (my $i = 0; $i < $loops; $i++) {
-    for (my $child = 0; $child < $concurrency; $child++) {
-        $pm->start and next;
+for (my $child = 0; $child < $concurrency; $child++) {
+    if ($pm->start) {
+        warn "forks $child/$concurrency child ...\n";
+        next;
+    }
+        for (my $i = 0; $i < $loops; $i++) {
+            print STDERR "processing $i/$loops loop\r";
             foreach my $url (@urls) {
                 get($url) or warn "fail: $url\n";
                 sleep($wait);
             }
-        $pm->finish;
-    }
-    print STDERR " ... ", $num * $concurrency * ($i + 1), " requesting\r";
+        }
+    $pm->finish;
 }
 $pm->wait_all_children;