在Perl中，可以使用open函數來打開并讀取文本文件。以下是一個簡單的例子，演示如何使用Perl讀取文本文件中的數據：
# 打開文件
my $filename = 'example.txt';
open(my $fh, '<', $filename) or die "無法打開文件 '$filename' $!";
# 讀取文件內容
while (my $line = <$fh>) {
chomp $line; # 去除行尾的換行符
print "$line\n"; # 輸出每一行的內容
}
# 關閉文件
close($fh);
在上面的例子中，首先使用open函數打開名為example.txt的文件，指定打開方式為只讀模式'<。然后使用一個while循環逐行讀取文件內容，并輸出每一行的數據。最后使用close函數關閉文件句柄。
通過類似的方法，可以讀取文本文件中的數據，并對其進行進一步處理和分析。
