#!/usr/bin/perl

# Usage: dm5dm6 VERS FILE
#    VERS  = 5, 6, 6o
#    FILE  = file containing a list of dates

use warnings;
use strict;

use Time::HiRes  		qw / gettimeofday tv_interval /;

my ($vers,$file) = @ARGV;

my @dates = `cat $file`;
chomp(@dates);

my $obj;
if ($vers eq '5') {
   require Date::Manip::DM5;
   Date::Manip::DM5->import(qw(ParseDate));
} elsif ($vers eq '6') {
   require Date::Manip::DM6;
   Date::Manip::DM6->import(qw(ParseDate));
} elsif ($vers eq '6o') {
   require Date::Manip::Date;
   $obj = new Date::Manip::Date;
} else {
   die "ERROR: invalid version\n";
}

my $t0 = [gettimeofday()];

if ($vers eq '5'  ||  $vers eq '6') {
   foreach my $date (@dates) {
      ParseDate($date);
   }
} elsif ($vers eq '6o') {
   foreach my $date (@dates) {
      $obj->parse($date);
   }
}

my $t1 = [gettimeofday()];
my $et = tv_interval($t0, $t1)*1000;

printf(STDOUT "Elapsed:   %6.3f\n",$et);

#                 5          6            6o
# dateset3.txt    857.250    2246.340     2090.676
#   _notz         683.084     462.898      431.781