CSV の列数をカウントする perl -F, -lane 'printf("%s:%d\n",$ARGV,$#F);$.>0 and close ARGV' *.csv 200911.csv: 21 200912.csv: 21 201001.csv: 21 201002.csv: 21 CSV の任意の列を頭0埋めする # ヘッダ（1行目）を削除する # 1列目、11列目の頭を12桁で…