Select Code to Download

Select or download this

# LeadingDistinct.pm                                        15jun15waw

...
    }

1;

Select or download this

# LeadingDistinct.t       test LeadingDistinct.pm           15jun15waw

...
is_deeply { LeadingDistinct::extract(TOKENS, WEIRD_TOKENS) },
          { TOKENS_AND_UNIQUE, WEIRD_TOKENS_AND_UNIQUE },
    "normal chars and some metacharacters";

Select or download this

c:\@Work\Perl\monks\gator456>perl LeadingDistinct.t
ok 1 - use LeadingDistinct;
...
ok 3 - normal chars and some metacharacters
ok 4 - no warnings
1..4

Select or download this

# extract_min_uniq_2.pl                                     15jun15waw

...

rea foo.bar
Info: reading file foo.bar

Select or download this

c:\@Work\Perl\monks\gator456>perl extract_min_uniq_2.pl
report_t
...
res
report_time
rea

Select or download this

sub diff {
    ($_[0] ^ $_[1]) =~ m{ \A \x00* }xms;
    return $+[0];
    }