在Perl中,可以使用open
函数打开一个文件,并使用<
操作符来读取文件的每一行。下面是一个示例代码:
open(my $file, '<', 'file.txt') or die "Could not open file: $!";
while (my $line = <$file>) {
chomp $line; # 去除行尾的换行符
# 处理每一行的数据
print $line;
}
close($file);
上述代码中,open
函数将文件file.txt
打开并赋值给变量$file
。然后,使用<$file>
来读取文件的每一行,并将其赋值给变量$line
。在while
循环中,可以处理每一行的数据。chomp
函数用于去除每一行的行尾换行符。最后,记得使用close
函数关闭文件。
辰迅云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
推荐阅读: perl字符串替换的方法是什么