在Perl中，你可以使用open函數來打開一個文件，并使用<符號來讀取文件的內容。以下是一個示例代碼，演示了如何打開一個文件并提取其中的內容：
# 打開文件
open(my $file, "<", "filename.txt") or die "無法打開文件: $!";
# 逐行讀取文件內容
while (my $line = <$file>) {
# 在這里處理每一行的內容
print $line;
}
# 關閉文件
close($file);
在上面的代碼中，filename.txt是要打開的文件名。通過<符號，我們以只讀模式打開文件。如果文件無法打開，die函數會輸出錯誤信息并終止程序的執行。
在while循環中，我們使用<$file>來讀取文件的一行內容，并將其存儲在變量$line中。你可以在循環內部對每行的內容進行處理。
最后，通過close函數關閉文件。
請注意，以上代碼只是一個基本的示例，你可以根據具體需求進行修改和擴展。
