ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Basic Perl command

Basic Perl command

原创 Linux操作系统 作者:kinglin_zy 时间:2011-01-25 21:52:49 0 删除 编辑

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博客 ” ,链接:http://blog.itpub.net/781883/viewspace-684630/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2009-09-22

  • 博文量
    58
  • 访问量
    67160