Help for this page

Select Code to Download


  1. or download this
    
@union = ((SDT,`1781183799.44927\',-----),
...

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