求助:如何用perl实现

求助:如何用perl实现

有文本A:
aaaaaa bbbbbb
cccccccc dddddd
eeeeee ffffffffffff
我如何得到文本
bbbbbb
dddddd
ffffffffffff
awk '{print $2}' /path/to/your/file
perl -lane 'print $F[1]' /path/to/your/file
范例不够清晰。。。可以得到的方式很多。。。最常用的就是正则式。。。


QUOTE:
原帖由 不死草 于 2008-6-23 17:10 发表
范例不够清晰。。。可以得到的方式很多。。。最常用的就是正则式。。。

别动不动就正则表达式,
滥用正则表达式的后果就是写出一堆连自己也看不懂的烂代码。
#!/usr/bin/perl -w

use warnings;
use strict;

open(FD,"< a.txt");
while(<FD>)
{
        my @tmp = split /\s+/;
        print $tmp[1]."\n";
}
close(FD);
用 cut 啊,同意版主的意见,这个事情用不着 perl 的。
cut?怎么用?没用过,能详细点么?
man cut

[Copy to clipboard] [ - ]
CODE:
cut -d" " -f2 your_input_file



QUOTE:
原帖由 flw 于 2008-6-23 17:12 发表

别动不动就正则表达式,
滥用正则表达式的后果就是写出一堆连自己也看不懂的烂代码。

呵呵,斑竹,偶每次看到正则式就觉得是高深啦。。。非要擦亮眼睛,认真看才知道它是在表示什么。。。胜在简洁!~
如果用平常的逻辑结构的话,呵呵,结构比较清晰,但是代码超常,我现在正在精炼代码的阶段,呵呵。。。
我现在处理的一些format的文本,开始使用Xml来进行匹配,效果也不错,呵呵,特别是在combine和check格式的时候。


QUOTE:
原帖由 不死草 于 2008-6-24 15:02 发表

呵呵,斑竹,偶每次看到正则式就觉得是高深啦。。。非要擦亮眼睛,认真看才知道它是在表示什么。。。胜在简洁!~
如果用平常的逻辑结构的话,呵呵,结构比较清晰,但是代码超常,我现在正在精炼代码的阶段, ...

所以说,不要滥用正则表达式。