0
@@ -1 +1,94 @@
0
+#!/usr/bin/perl -w
0
+
0
+use strict;
0
+use DateTime;
0
+
0
+# Format classes to use for display
0
+my @formats = qw( DateParse MySQL HTTP Mail RSS );
0
+
0
+# Check for availability of format classes
0
+my @available;
0
+FORMAT_CLASS:
0
+foreach my $format (@formats) {
0
+  my $class = "DateTime::Format::$format";
0
+  
0
+  eval "require $class;";
0
+  next FORMAT_CLASS if $@;
0
+  
0
+  push @available, {
0
+    name       => $format,
0
+    class      => $class,
0
+    can_parse  => $class->can('parse_datetime'),
0
+    can_format => $class->can('format_datetime'),
0
+  };
0
+}
0
+
0
+# read dates
0
+while (my $t = <>) {
0
+  chomp($t);
0
+  my $dt;
0
+
0
+  if ($t =~ /^\d+$/) {
0
+    $dt = DateTime->from_epoch( epoch => $_ );
0
+  }
0
+  elsif ($t =~ /^(\d\d\d\d)[-\/](\d+)[-\/](\d+)$/) {
0
+    $dt = DateTime->new(
0
+        year  => $1,
0
+        month => $2,
0
+        day   => $3,
0
+    );
0
+  }
0
+  elsif ($t =~ /^(\d+)[-\/](\d+)[-\/](\d\d\d\d)$/) {
0
+    $dt = DateTime->new(
0
+        year  => $3,
0
+        month => $2,
0
+        day   => $1,
0
+    );
0
+  }
0
+  elsif ($t =~ /^(\d\d\d\d)[-\/](\d+)[-\/](\d+) (\d+):(\d+):(\d+)$/) {
0
+    $dt = DateTime->new(
0
+        year   => $1,
0
+        month  => $2,
0
+        day    => $3,
0
+        hour   => $4,
0
+        minute => $5,
0
+        second => $6,
0
+    );
0
+  }
0
+  elsif ($t =~ /^(\d+)[-\/](\d+)[-\/](\d\d\d\d) (\d+):(\d+):(\d+)$/) {
0
+    $dt = DateTime->new(
0
+        year   => $3,
0
+        month  => $2,
0
+        day    => $1,
0
+        hour   => $4,
0
+        minute => $5,
0
+        second => $6,
0
+    );
0
+  }
0
+  elsif ($t =~ /^(\d+):(\d+):(\d+)$/) {
0
+    $dt = DateTime->new(
0
+        hour   => $1,
0
+        minute => $2,
0
+        second => $3,
0
+    );
0
+  }
0
+  else {
0
+    foreach my $helper (@available) {
0
+      next unless $helper->{can_parse};
0
+      eval { $dt = $helper->{class}->parse_datetime($t) };
0
+      last if $dt;
0
+    }
0
+  }
0
+
0
+  if ($dt) {
0
+    print "    $t -- $dt ", $dt->epoch, " (hex ", sprintf('%0.4x', $dt->epoch) ,")\n";
0
+    foreach my $helper (@available) {
0
+      next unless $helper->{can_format};
0
+      print "    $t -- format $helper->{name} is: ", $helper->{class}->format_datetime($dt), "\n";
0
+    }
0
+  }
0
+  else {
0
+    print "   $t -- could not parse this\n"
0
+  }
0
+}