perl关于文本域的问题

lovesaka

原帖由 lxy9805287 于 2007-1-26 14:17 发表
用awk过滤文本的域很熟练, 请教下如果用perl里怎么准确的过滤一个想要的域呢?
谢谢
例如一个进程有时候启动后的行是这样
23110 ?        S     26:36 /var/java/bin/java   我就把它split成一个数组,然后取 $a ...

perl -ane 'print $F[0],"\n"'
如果想在脚本里用
print +(s/^\s//,split /\s+/)[1] while <>;