從Perl中讀取變量

Question

我在Perl中有很多行存儲在一個變量中。

我想知道是否有可能使用<>運算符來讀取這些行。

Answer 1

是的。如perldoc -f open中所述，您可以打開文件句柄來標量變量。

my $data = <<''; 
line1 
line2 
line3 

open my $fh, '<', \$data; 
while (<$fh>) { 
    chomp; 
    print "[[ $_ ]]\n"; 
} 

# prints 
# [[ line1 ]] 
# [[ line2 ]] 
# [[ line3 ]] 

Answer 2

如果您確實需要，您可以打開一個文件句柄。

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 
} 

這可能會更容易閱讀和維護的路線。

Answer 3

我發現了一個有用的替代，
它不使用< >但工作起來就像做

for (split /^/, $lines) { 
    ... 
} 

http://www.perlmonks.org/?node_id=745018