在Perl中,要读取固定长度的记录,可以使用sysread
函数。以下是一个示例代码,它从文件中读取固定长度的记录,并将其打印到控制台上:
use strict;
use warnings;
my $filename = 'data.txt';
my $record_length = 10;
open(my $fh, '<', $filename) or die "Can't open $filename: $!";
while (sysread($fh, my $record, $record_length)) {
print "Record: $record\n";
}
close($fh);
在这个示例中,我们首先定义了要读取的文件名和记录长度。然后,我们打开文件,并使用sysread
函数从文件中读取固定长度的记录。在循环中,我们将每个记录打印到控制台上。最后,我们关闭文件。
需要注意的是,sysread
函数不会去除记录之间的换行符。如果需要处理文本文件,可以使用readline
函数,它会自动去除换行符。
领取专属 10元无门槛券
手把手带您无忧上云