perl单行命令-awk

摘要

提取文档中某一列的数据,这是awk的强项,perl吸收并简化了awk,让awk变得更加简洁高效。}{ 循环终止符。

文本格式

1.txt

C 1 2 3 SER
N 2 3 4 PRO
O 1 1 1 CYS
F 1 2 3 ALA
Cl 2 3 6 ILE
Br 4 4 7 GLN

提取第5列数据
perl -lane 'print $F[4]' 1.txt
开关分析
分别对2,3,4列求和
perl -ane '$sum[0]+=$F[1];$sum[1]+=$F[2];$F[2]+=$F[3];}{print "$sum[0] $sum[1] $sum[1] "'
借debug模式体验交互模式
D:\Program Files\CCDC1.8\lib>perl -de "print qw(hh)"
Loading DB routines from perl5db.pl version 1.44
Editor support available.
Enter h or 'h h' for help, or 'perldoc perldebug' for more help.
main::(-e:1):   print qw(hh)
  DB<1> @a=(1..100)
  DB<2> map{$sum+=$_}@a
  DB<3> print $sum
5050