我想用data.txt
阅读文本文件read
。我想一次读取每行的前四个整数。
line1 0101020102
line2 2010201001
line3 0201010201
line1
等是文件的一部分。
这是我现在可以做的
my $data;
my $IN;
my $n = 0;
$line = 1;
open($IN, '<', "data.txt") or die " Error";
while ( $line != 0 ) {
seek($IN, 6, SEEK_SET);
$line = read($IN, $data, 4);
seek($IN, 0, SEEK_SET);
}
问题是使用这个while
循环,Perl继续在无限循环中读取第一行。
我该如何处理这个问题?
我想你误解了seek()
的作用。使用SEEK_SET
作为第三个参数,第二个参数被解释为从文件开头开始测量的移动位置。所以每次你运行这一行:
seek($IN, 6, SEEK_SET);
它总是移动到文件中的第七个位置(显然,它总是在同一行上)。然后当你运行这一行:
seek($IN, 0, SEEK_SET);
它总是移回文件的开头。
最初,我认为解决方案是将SEEK_SET
更改为SEEK_CUR
(将第二个参数解释为相对于当前位置移动的量),但它比这更复杂。以下是我如何使用它:
seek($IN, 6, SEEK_CUR); # Move forward six spaces
$line = read($IN, $data, 4);
seek($IN, 7, SEEK_CUR); # Move forward seven places
但实际上,正则表达式是最好的方法。
while(<$IN>) {
($data) = /\s(\d{4})/;
print "$data\n";
}