shell-scripts/perl_scratch.pl

13 lines
295 B
Perl
Raw Normal View History

2023-09-11 20:01:15 -05:00
#!/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";