perl如何循环提出文本行并赋值给变量

在Perl中，你可以使用``循环来逐行读取文件，并将每一行赋值给一个变量。以下是一个简单的例子，展示了如何实现这个功能：

```perl

open(my $filehandle, '<', 'filename.txt') or die "Could not open file 'filename.txt' $!";

while (my $line = <$filehandle>) {

去除行尾的换行符

chomp($line);

将读取的行赋值给变量

my $variable = $line;

在这里可以处理变量 $variable

print "变量 $variable 的值是: $variablen";