Basic Perl command
head -1 /japan/download/bank/CIF_FILE|perl -e '{$x=0;while(<>){$x++;printf("LINE%dLEN%d\n", $x,length($_))}}'
perl -e '{$x=0;while(<>){$x++;printf("LINE%dLEN%d\n", $x,length($_))}}' /japan/download/bank/CIF_FILE|sed -e '/LEN401/d'
perl -n -e '{if(length($_)>401){$a=substr($_,0,375);$b=substr($_,376);$b=~s/^ *//;printf("%s%s",$a,$b);}else{print;}}' /japan/download/bank/CIF_FILE>CIF_FILE1
perl -n -e '{if(length($_)==401){print;}}' /japan/download/bank/CIF_FILE>CIF_FILE1
echo "aaa bbb ccc"|perl -n -e '{$a=substr($_,0,3);$b=substr($_,4);$b=~s/^ *//;printf("%s%s",$a,$b);}'
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/781883/viewspace-684630/ ，如需转载，请注明出处，否则将追究法律责任。
