13 lines
No EOL
295 B
Perl
Executable file
13 lines
No EOL
295 B
Perl
Executable file
#!/usr/bin/env perl
|
|
|
|
use Modern::Perl;
|
|
use DateTime;
|
|
|
|
say "Date Time formatting tests";
|
|
|
|
my $dt_now = DateTime->now( time_zone => 'local' );
|
|
say "Datetime now is $dt_now";
|
|
my $date = $dt_now->ymd('');
|
|
# yymmdd_hhmmss
|
|
my $dt = $date . '_' . $dt_now->hms('');
|
|
say "Datetime is $dt"; |