Help for this page

Select Code to Download


  1. or download this
    $ cat pm_1071030_file1.txt
COMPANY      ABCD 764200 E  2013,12,13   2013,12,19
...
COMPANY      BCYX 165230 L  2013,12,13   2013,12,17
COMPANY      BCYX 156095 L  2013,11,30   2013,12,08
COMPANY      BCYX 156095 L  2013,11,30   2013,12,08
  2. or download this
    #!/usr/bin/env perl

...
print "Records with this time spread:\n";
my %seen;
print for grep { ! $seen{$_}++ } @{$wanted_record_data[1]};
  3. or download this
    Greatest time spread = 8 days.
Records with this time spread:
COMPANY      BCYX 156095 L  2013,11,29   2013,12,07
COMPANY      BCYX 156095 L  2013,11,30   2013,12,08