handle_message

• Let's try doing those things manually instead

        sub handle_message {
          my $message = join "", @{$_[0]};
          my $frompat = qr/^From:\s+.*\n        # initial line
                              (?:\s+.*\n)*     # continuation lines
                          /xim;

          $count++;
          $total_size += length $message;
          letter_histogram( $message );
          from_histogram( $message =~ /($frompat)/ );
        }

• The results:

        Before                  After

        real    0m8.356s        real    0m1.259s
        user    0m6.770s        user    0m1.230s
        sys     0m0.030s        sys     0m0.020s

• Well how about that?

  • An 81% speedup

Next

Copyright © 2003 M. J. Dominus