在Perl中,可以使用open
函數(shù)打開文件,并使用<>
操作符逐行讀取文件內(nèi)容到數(shù)組中。下面是一個示例代碼:
my $file = "example.txt";
open(my $fh, "<", $file) or die "Cannot open file: $!";
my @lines = <$fh>;
close($fh);
foreach my $line (@lines) {
chomp($line); # 去除每行末尾的換行符
print "$line\n";
}
在上面的示例中,首先使用open
函數(shù)打開名為example.txt
的文件,然后使用<>
操作符將文件內(nèi)容逐行讀取到@lines
數(shù)組中。最后,使用foreach
循環(huán)遍歷數(shù)組并打印每行內(nèi)容。
需要注意的是,在使用完文件之后需要調(diào)用close
函數(shù)來關(guān)閉文件句柄。