请没有方法替换该死的split^_^

sammyjeep

写了一段处理文本代码，把文件中满足条件的记录取出来，现在的处理能力是45万条记录/每分钟。无法再优化了，在定位的过程中发现目前的瓶颈在split。大约60%左右的时间都在处理split(/\|/, $line);，目前成为瓶颈。

需求：判断一行中某几列值为特定值。有没有方法，不使用split就取出指定的列？

cobrawgl

问问题你也得给个样本啊，让大家自己猜吗？？

flw

我这里是好的。

split 确实可以优化，perldoc -f split

sammyjeep

#!/usr/bin/perl

$line="1111|2222|3333|4444|5555|6666|7777|1|";
@F=split(/\|/, $line);
if ($F[7]=="1")
{
    print "$line\n";
}

我想判断第八个列是不是1，现在只能把整个字符串都split后使得$F[7]。有没有别的方法可以直接取到第八个字段。

sammyjeep

嗯，呵呵，我也正在看这个文档，不过从我自己测试的结果貌似分割的字段越多性能就越差，感觉最简单的方法是指定limit参数，性能会就改善。

cobrawgl

用 re 呢

ttcn_cu

试试正则呢?
     1 #!/usr/bin/perl -w
      2 $line="1111|2222|3333|4444|5555|6666|7777|1|";
      3 $line=~/([^\|]+\|){7}([^\|]+)/;
      4 if ($2 eq "1")
      5 {
      6     print "$line\n";
      7 }

linuxty

[^\|]  这里面不用加 \ 转义了吧

sammyjeep

我的样例是个比较简单的，真实应用的时候使用有大约200列。要同时判断几个条件，用正则表达式就有点-_-，呵呵

sammyjeep

还是谢谢了啊~~~