Datestamp in Sekunden umwandeln: seit Epochenbegin - #85577 (Allgemeines zu Perl)

Strat

2004-08-08 15:06

User since
2003-08-04
5246 Artikel
ModeratorIn

@froschpopo: die Monate haben fuer localtime und timelocal werte von 0..11, und die jahre werden seit 1900 gezaehlt...

Code (perl): (dl )

use Time::Local;

my $string = "2004-08-07 13:22:21";
my $timestamp;
if ($string =~ /^ (\d{4}) \- (\d\d) \- (\d\d) \s+ (\d\d) \: (\d\d) \: (\d\d) $/x) {
  # ist hier die Reihenfolge ok? jahr-monat-tag ? oder ist es jahr-tag-monat?
  my ($year, $month, $day, $hour, $min, $sec) = ($1, $2, $3, $4, $5, $6);
  $month--; $year -= 1900;
  $timestamp = timelocal($sec, $min, $h, $day, $month-1, $year-1900);
}
print "TIMESTAMP: $timestamp" if defined $timestamp;

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/