PerlでローカルタイムからUNIXタイムスタンプに変換する方法

  Sat Mar 14 10:14:05 EDT 2015
  3/14/2015 10:14:05 -0400
  14/Mar/15 10:14:05
  14 Mar 15 10:14:05

  use Date::Parse;
  my $local_time = "Sat Mar 14 10:14:05 EDT 2015";
  # 1426342445 will be stored in $unix_time
  my $unix_time = str2time($local_time);

  use Date::Parse;
  use Date::Language;
  my $lang = Date::Language->new('French');
  my $unix_time = $lang->str2time("12:14:05, Ago 16, 2014 (CEST)");

  # $sec, $min, $hour: seconds, minutes, hours
  # $mday: day of the month (0-31)
  # $mon: month, range 0 (January) to 11 (December)
  # $year: year, the difference from 1900 (2015 is 2015-1900=115)
  # $wday: day of the week, from 0 (Sunday) to 6 (Saturday)
  # $yday: day of the year, in the range 0 to 364 (or 365 for leap years)
  # $isdst: whether it is daylight saving time
  my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($unix_timestamp);
  # necessary conversion of $mon and $year
  $mon += 1;
  $year += 1900;
  print "Current time: $year-$mon - $mday $hour:$min:$sec\n";