|
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 |