18. december

"År 2000 sikring" med Perl

Konverter YY-MM-DD til YYYY-MM-DD.
Dvs: YY < 30 => 20YY, YY > 30 => 19YY
Matcher kun noget, der ligner en dato: 98-13-25 matches f.eks. ikke.
#!/usr/bin/perl -p
 
s/(^|\D)              # noget, som ikke er tal
  ([0-9][0-9])        # YY
  -(0[1-9]|1[012])    # -MM
  -([012][0-9]|3[01]) # -DD
  /"$1".($2<30 ? "20$2" : "19$2")."-$3-$4"/gxe