Ako previesť dátum na časovú pečiatku Unix pomocou Perl [closed] - perl

Snažím sa previesť dátum na časovú pečiatku Unixu pomocou Perlu. Práve som sa začal učiť Perl.

Dátum je uložený v 2/25/2014 formulár.

Snažil som sa používať str2time()

odpovede:

Mali by ste použiť Time::Piece modul. Už niekoľko rokov je základným modulom a nie je potrebné ho inštalovať.

use strict;
use warnings;

use Time::Piece;

print Time::Piece->strptime("2/25/2014", "%m/%d/%Y")->epoch;

výkon

1393286400

Najjednoduchší spôsob je použiť Doba :: Piece previesť svoj čas do formátu, ktorý môžete použiť:

use strict;
use warnings;
use feature qw(say);

use Time::Piece;

my $time_stamp = Time::Piece->strptime("2/25/2014", "%m/%d/%Y");

teraz, $time_stamp obsahuje a štruktúra môjho času. Môžem ho použiť na také veci, ako je toto:

say "The year is " . $time_stamp->year;
say "This month is called " . $time_stamp->fullmonth;
say "It is month number " . $time_stamp->month . " of the year";

Tieto časy tiež môžete pridať a odpočítať, aby ste našli také veci, ako napríklad 30 dní od dnešného dňa Čas :: Seconds s Time::Piece.