Help for this page

Select Code to Download


  1. or download this
    perl -MData::Dump=pp -nle"push @{ $h{ $_ } }, $ARGV }{ pp\%h" 30.txt 4
+0.txt
{
...
  X0049 => ["40.txt"],
  X0050 => ["30.txt", "40.txt"],
}
  2. or download this
    perl -nlE"push@{$h{$_}},$ARGV}{say qq[@{$h{$_}}:$_] for keys%h" 30.txt
+ 40.txt | sort
30.txt 40.txt:X0001
...
40.txt:X0046
40.txt:X0048
40.txt:X0049