在Perl中，可以使用open函数来打开一个文件，并使用<操作符来读取文件内容。下面是一个示例代码：
# 打开文件open(my $file, "<", "filename.txt") or die "无法打开文件: $!";# 读取文件内容while (my $line = <$file>) { # 处理每行内容 chomp $line; # 去除末尾的换行符 print "$line\n";}# 关闭文件close($file);在上面的代码中，open函数打开一个名为filename.txt的文件，并将其赋值给变量$file。<操作符用于指定以只读模式打开文件。如果无法打开文件，die函数会输出错误信息并终止程序。
然后，使用while循环逐行读取文件内容，每次读取一行，并将其赋值给变量$line。chomp函数用于去除末尾的换行符。你可以在循环中对每行内容进行处理，比如打印出来。
最后，使用close函数关闭文件。
