从字符串中读取第3列

[yfk]

刚接触perl，请教下高手，从一个字符串中读取第3列，字符串用\t分开，怎么做比较好呢？

用了下split
my @match= split(/\t/, $line); #字符串在$line中
my $word=@match[2];

但是感觉效率很低
有没有更好的方法呢？
谢谢！！！

[fibbery]

my $word= (split(/\t/, $line,4))[2];

应该比你的效率高点！

[yfk]

确实有提升，谢谢！
有没有更好的方法？

[javaxiaobai]

[Quote=引用 2 楼 yfkiss 的回复:]

确实有提升，谢谢！
有没有更好的方法？
[/Quote]

效率怎么看。

my $word=@match[2]; 这个写的有点不好吧。

[fibbery]

[Quote=引用 2 楼 yfkiss 的回复:]
确实有提升，谢谢！
有没有更好的方法？
[/Quote]

我觉得已经差不多了！再想提升恐怕也不算容易。否则，你就再写段代码，直接定位第三个字段，通过substr取出字段，进行比较。但我想不见得比split会有多少效率提升。你试一试吧。