文字处理太慢

newspeed000

我在处理一个文本，现在的方式是把文件内容tie到一个数组上，
然后用foreach取数组的元素逐个处理（每个数组元素要依次调用几个API）

这样的思路做出来了，但是遇到一个问题就是如果文件很大的话
那处理需要的时间太长了

现在想把数组中得几个元素合并，不知道该怎能么做才好啊~~
tie方法有没有办法把几行文字绑定到一个数组元素呢

求助了啊~

x9x9

为啥非得用tie呢

newspeed000

只是觉得很方便哈

不用tie的话该怎么做呢

不也是 逐行处理的吗

zhlong8

抽象太高效率往往比较差，而且 tie 文件特别是大的文件不是什么好主意，能不用就不用吧。楼主那么执着于 tie 难道不会写双层循环？ 把你要解决的问题抛出来大家给你分析分析

jason680

没有完整问题
怎会有完整解答 ....

newspeed000

代码贴出来了哈，是这样一个函数呢

输入一个文本文件，然后替换一些指定的内容，然后保存，这样的

sub NsaTextPro
{
    my ($FileName) = @_;
    my $line;
    my @LineArray;
    unless(-e $FileName)
    {
        return -2;
    }
    unless(tie @LineArray, "Tie::File", $FileName)
    {
        return -1;
    }
    if(@LineArray)
    {
      foreach my $line( @LineArray )
      {
        if( $line )
        {
          $line =~ s/$IPv6_re/__NsAiPv6FiLtEr__/g;
          while($line =~ m/((\d+[.]){3,}\d+)/g)
          {
            if ($1 =~ /^($RE{net}{IPv4})$/)
            {
              $line =~  s/$1/__NsAiPv4FiLtEr__/;
            }
          }
        }
      }
    }

请问用什么去替代tie 比较好啊？？？

zhlong8

这么简单的应用用 open 不就结了，改完再写回去

newspeed000

呵呵 我没有什么经验呢~ 怎么写回去替换掉原来的东西啊~
能给个简单的例子吗？

ludio333

直接修改可以
$^I = '.bak';
local @ARGV = $file;
while(<>){
s///g;
print;
}