use warnings;

sub translate_date_format
{
    my %tr = (
        yyyy  => "%Y",
        yy    => "%y",
        mmmm  => "%B",
        mmm   => "%b",
        mm    => "%m",
        m     => "%e",
        ww    => "%V", # or %U
        w     => "%w", # or %u
        j     => "%j",
        dddd  => "%A",
        ddd   => "%a",
        dd    => "%d",
        d     => "%e",
        HH    => "%H",
        H     => "%k",
        hh    => "%I",
        h     => "%i",
        MM    => "%M",
        A     => "%p",
        AM    => "%p",
        PM    => "%p",
        a     => "%P",
        am    => "%P",
        pm    => "%P",
        SS    => "%S",
        ZZZ   => "%Z",
        );

    my $str = shift;
    $str =~ s/(?<!%)$_/$tr{$_}/g for reverse sort keys %tr;
    return ($str);
    }

### Test ######################################################################

use POSIX;
use Time::Piece;

my @test = (
    "yyyy-mm-dd",  "d/mm/yy",
    "H:MM:SSAM",   "HH:MM:SSpm",
    "mmm ddd, yy", "dddd, mmmm dd, yyyy HH:MM:SS",
    );

foreach (@test) {
    my $tdf = translate_date_format ($_);
    print "$_ => '$tdf'\n";

    my $date = POSIX::strftime ($tdf, localtime ());
    print "  POSIX: $date\n";

    my $t = localtime ();
    $date = $t->strftime ($tdf);
    print "  Time::Piece: $date";
    $date = $t->strptime ($date, $tdf);
    print " => $date\n";
    }