perl

date_simple_reformat.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Date::Simple qw/ymd/;
# http://perldoc.jp/docs/modules/Date-Simple-2.03/Simple.pod

#my $data = Date::Simple->new();
my $dstr = "2017/03/01";
my @darray = split /\//, $dstr;
my $year = $darray[0];
if ( length($year) == 2) {
    $year = "20" . $year;
}
my $data = ymd($year, $darray[1], $darray[2]);
print $data->format('%Y/%m/%d') . "\n";