From 0d149d76a194f88045a275d8b7a983f54622ee35 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Sun, 5 Jan 2020 00:24:56 +0000 Subject: - Tidied up script name. --- challenge-038/saiftynet/perl5/ch-1.sh | 1 - challenge-038/saiftynet/perl5/ch-1a.sh | 1 + 2 files changed, 1 insertion(+), 1 deletion(-) delete mode 100644 challenge-038/saiftynet/perl5/ch-1.sh create mode 100644 challenge-038/saiftynet/perl5/ch-1a.sh diff --git a/challenge-038/saiftynet/perl5/ch-1.sh b/challenge-038/saiftynet/perl5/ch-1.sh deleted file mode 100644 index 104262f521..0000000000 --- a/challenge-038/saiftynet/perl5/ch-1.sh +++ /dev/null @@ -1 +0,0 @@ -perl -MTime::Local -le ' print "".($1==1?19:20).$2."-$3-$4" if (shift=~/^(1|2)(\d{2})(\d{2})(\d{2})$/ and timelocal( 0, 0, 0, $4, $3-1, ($1==1?19:20).$2));print "error in input" if (!$1) ;' 1241112 diff --git a/challenge-038/saiftynet/perl5/ch-1a.sh b/challenge-038/saiftynet/perl5/ch-1a.sh new file mode 100644 index 0000000000..104262f521 --- /dev/null +++ b/challenge-038/saiftynet/perl5/ch-1a.sh @@ -0,0 +1 @@ +perl -MTime::Local -le ' print "".($1==1?19:20).$2."-$3-$4" if (shift=~/^(1|2)(\d{2})(\d{2})(\d{2})$/ and timelocal( 0, 0, 0, $4, $3-1, ($1==1?19:20).$2));print "error in input" if (!$1) ;' 1241112 -- cgit