perl - 从 Perl 中读取变量

Question

我在 Perl 的单个变量中存储了很多行。

我想知道是否可以使用 <> 运算符读取这些行。

Answer 1

如果你真的必须，你可以打开一个文件句柄。

use strict;
use warnings;

my $lines = "one\ntwo\nthree";
open my $fh, "<", \$lines;

while( <$fh> ) { 
    print "line $.: $_";
}

或者，如果您已经在内存中获得了这些东西，您可以将其拆分为一个数组:

my @lines = split /\n/, $lines;   # or whatever
foreach my $line( @lines ) { 
    # do stuff
}

这可能更容易阅读和维护。