Help for this page

Select Code to Download


  1. or download this
    $ time perl -MMail::Box::Manager -le '
    $m=Mail::Box::Manager->new;
...
real    0m8.222s
user    0m7.928s
sys     0m0.200s
  2. or download this
    $ time ./mbox_scan Mail/-default 
 3549 Mail/-default
...
real    0m0.492s
user    0m0.408s
sys     0m0.080s
  3. or download this
    #!/usr/bin/perl
use warnings;
...
    close $fh;
    printf "%5d %s\n", $count, $file;
}