Parse Date Parts

Split an ISO-style date string into scalar parts.

parse_date_parts.pl

use strict;
use warnings;

my $date = ;
my ($year, $month, $day) = split /-/, $date;
my $summary = "$day/$month/$year";

print "date=$date\n";
print "year=$year\n";
print "month=$month\n";
print "summary=$summary\n";

use strict;
use warnings;

my $date = ;
my ($year, $month, $day) = split /-/, $date;
my $summary = "$day/$month/$year";

print "date=$date\n";
print "year=$year\n";
print "month=$month\n";
print "summary=$summary\n";

use strict;
use warnings;

my $date = ;
my ($year, $month, $day) = split /-/, $date;
my $summary = "$day/$month/$year";

print "date=$date\n";
print "year=$year\n";
print "month=$month\n";
print "summary=$summary\n";

parse-date-parts Parsing fixed text into parts keeps later formatting explicit.