Perl：用seek函数不能指向启动？

Question

我试过这段代码。

代码：

use strict;
use warnings;
use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END);

open($file1) # I didn't put full line
open (F_log)

while (my $line = <$file1>) {
    my @fields = split " ", $line;
    my $length = @fields;

    for (my $i=3; $i<5 ;$i+="1") {
        $i_d = $fields[$i];

        last if ($.==1);

        seek F_log, 0, SEEK_SET; # not working
            while(my $LINE = (<F_log>)) { 
                if ($. >= $a ) {
                    if ($LINE =~ /^\s+(\w+)\s\s"(\w+)",/) { 
                    if ($1 eq $i_d) {
                        $fields[$i] = $2;
                        last;   
                    }
                    else
                    { 
                        $fields[$i] = "Error:$i_d";

                    };
                };
            };  
        }; 
    };
}
close
close

我想在每次循环增量时阅读整个<F_log>。我尝试了在while循环中打开/关闭文件的其他方法，它可以工作，但我认为这会增加脚本的运行时内存（不确定）。所以现在我试图将指针重置为开始但它不起作用。任何人都可以提出任何建议吗？而且，如果有人告诉所有事情会增加脚本的运行时内存。谢谢你

Answer 1

我认为实际的错误可能是使用$. 作为行号。没有办法知道seek 知道你在哪一行寻找，所以seek 不会改变$.。它一直在上升。

在seek 的这种特殊用法中，您知道自己回到了第一行之前。尝试在搜索后使用$. = 0;。

---

示范

a.pl:

use strict;
use warnings;

use Fcntl qw( SEEK_SET );

open(my $fh, "<", "a.txt") or die $!;
while (<$fh>) {
   print "$.: $_";
}

seek($fh, 0, SEEK_SET) or die $!;
$. = 0 if $ARGV[0];

while (<$fh>) {
   print "$.: $_";
}

a.txt:

a
b
c

输出：

$ perl a.pl 0
1: a
2: b
3: c
4: a
5: b
6: c

$ perl a.pl 1
1: a
2: b
3: c
1: a
2: b
3: c