阅读量:0
在Perl中，可以使用open函数来打开并读取文本文件。以下是一个简单的例子，演示如何使用Perl读取文本文件中的数据：
# 打开文件 my $filename = 'example.txt'; open(my $fh, '<', $filename) or die "无法打开文件 '$filename' $!"; # 读取文件内容 while (my $line = <$fh>) { chomp $line; # 去除行尾的换行符 print "$linen"; # 输出每一行的内容 } # 关闭文件 close($fh); 在上面的例子中，首先使用open函数打开名为example.txt的文件，指定打开方式为只读模式'<。然后使用一个while循环逐行读取文件内容，并输出每一行的数据。最后使用close函数关闭文件句柄。
通过类似的方法，可以读取文本文件中的数据，并对其进行进一步处理和分析。
