perl关于文本域的问题

lxy9805287

用awk过滤文本的域很熟练, 请教下如果用perl里怎么准确的过滤一个想要的域呢?
谢谢
例如一个进程有时候启动后的行是这样
23110 ?        S     26:36 /var/java/bin/java   我就把它split成一个数组,然后取 $arrary[0]
但是有时候进程重启后会变成下面这样
   5446 ?        S    247:23 /var/java/bin/java -Xmx2048m   清注意,5446前面有个空格,然后就取不到了

动态的变化,这个个很郁闷

随后就导致了很大的麻烦,

[ 本帖最后由 lxy9805287 于 2007-1-26 14:18 编辑 ]

兰花仙子

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

split之前先执行下 s/^\s+|\s+$//g 把行首尾的空格去掉.

zoebegin

好像用trim函数也是可以去掉空格的。学习Perl，最重要的是：做一件事情，可以有很多办法...

ulmer

原帖由 zoebegin 于 2007-1-27 00:34 发表
好像用trim函数也是可以去掉空格的。学习Perl，最重要的是：做一件事情，可以有很多办法...

Hi,
perl has no builtin function such like trim() that PHP has.

the simplest wayis like FL.2

--ulmer

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 <>;