900102,123,456 ⇒ 1990-01-02,123,456
CSVファイルの一部分を加工するときは、カンマで分解して加工してまたくっつける
perl -nle '@a=split /,/; ($y,$m,$d)=($a[0]=~/(\d\d)(\d\d)(\d\d)/); $a[0]="19$y-$m-$d"; print join(",",@a);'
900102,123,456 ⇒ 1990-01-02,123,456
CSVファイルの一部分を加工するときは、カンマで分解して加工してまたくっつける
perl -nle '@a=split /,/; ($y,$m,$d)=($a[0]=~/(\d\d)(\d\d)(\d\d)/); $a[0]="19$y-$m-$d"; print join(",",@a);'