提取文档中某一列的数据,这是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
perl -lane 'print $F[4]' 1.txt
perl -ane '$sum[0]+=$F[1];$sum[1]+=$F[2];$F[2]+=$F[3];}{print "$sum[0] $sum[1] $sum[1] "'
D:\Program Files\CCDC1.8\lib>perl -de "print qw(hh)"Loading DB routines from perl5db.pl version 1.44Editor 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+=$_}@aDB<3> print $sum5050