Wie kann ich eine strftime formatierte Zeichenfolge in Perl analysieren?

Question

Ich bin neu in Perl und ich wan wissen, ob es eine umgekehrte Funktion für die strftime() gibt. Schauen Sie,

use POSIX qw(strftime); 
print strftime("%YT%mT%d TTTT%H:%M:%S", localtime) 

ich: 2009T08T14 TTTT00: 37: 02. Wie kann ich die Gegenoperation durchführen? Von "2009T08T14 TTTT00: 37: 02" Zeichenfolge zu erhalten 2009-08-14 00:37:02, mit der Formatierungszeichenfolge "% YT% mT% TTTT% H:% M:% S"?

Answer 1

Eine Möglichkeit besteht darin, die Zahlen mit einem regulären Ausdruck zu analysieren und dann Time::Local zu verwenden. Nun, da ich verstehe, Ihre Frage ist, wie man von einer formatierten Zeichenfolge strftime zu einer Zeit im Allgemeinen gehen, wird dieser Ansatz zwangsläufig umständlich sein.

Sie erwähnen in Ihrer Antwort POSIX::strptime, die groß ist, wenn Ihre Plattform es unterstützt. Alternativ können Sie DateTime::Format::Strptime verwenden:

#!/usr/bin/perl 

use strict; 
use warnings; 

use DateTime::Format::Strptime; 
use POSIX qw(strftime); 

my $f = "%YT%mT%d TTTT%H:%M:%S"; 
my $s = strftime($f, localtime); 

print "$s\n"; 

my $Strp = DateTime::Format::Strptime->new(
    pattern => $f, 
    locale => 'en_US', 
    time_zone => 'US/Eastern', 
); 

my $dt = $Strp->parse_datetime($s); 

print $dt->epoch, "\n"; 
print scalar localtime $dt->epoch, "\n"; 

$dt ist ein DateTime Objekt, so dass Sie ziemlich viel tun können, was man will.

Answer 2

So easyy

use Time::ParseDate; 
my $t = '2009T08T14 TTTT00:37:02'; 

$t =~ s/TTTT//; 
$t =~ s/T/-/g; 

$seconds_since_jan1_1970 = parsedate($t) 

Answer 3

Ich denke, dass ich die Lösung gefunden haben: strptime($strptime_pattern, $string)