Help for this page

Select Code to Download


  1. or download this
    @union = ((SDT,`1781183799.44927\',-----),
  2. or download this
    @union = (['SDT','1781183799.44927\','-----'],
          ['BN','1781183799.44972\','-----'],
          ['BNN','1781183799.46753\','-----']);
  3. or download this
    my @diff;
my @inter
...
  push @{ $count2{$element}{COUNT} > 1 ? \@inter : \@diff }, $count2{$
+element}{ELEMENT};
};
print Dumper(@diff),"\n";