Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    # for ( 0 .. 255 ) {
    #    printf "%c : %u\n", $_, $seen[$_] if $seen[$_];
    # }
    
  2. or download this
    use MCE::Shared 1.002;
    
    mce_open my $IN, "<:gzip", "wat.paths.gz" or die "open error: $!";
    mce_open my $OUT, ">", \*STDOUT or die "open error: $!";