Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • So, how MUCH faster? :)

    • Sorry, no fancy graphs.

      I wrote a deliberately simple program to count select_read() events per second. I ran it five times for each version of POE, averaged the results, and calculated the improvement using (new_rate/old_rate-1). Standard deviation for the sample sets were about 1%, if that matters.

      #!/usr/bin/env perl

      use warnings;
      use strict;

      use POE;

      my $limit = 10_000;
      my @start_times;
      my @end_times;
      my $count = 0;

      my $filehandle;

      POE::Session->create(
        inline_states => {
          _star