challenge-038/ruben-westerberg/perl/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/env perl
use strict;
use warnings;

my $d= qr(@{[join "|", map { sprintf "%02d", $_} 1..31]});
my $m= qr(@{[join "|", map { sprintf "%02d", $_} 1..12]});

for (@ARGV) {
	if (/(1|2)([0-9]{2})($m)($d)/) {
		print "Input $_ OK\n";
		print(join("-",($1==1?"20$2":"19$2",$3,$4)),"\n");
		next;
	}
	print "Input $_ invalid\n";
}