perl - 将文件的多行作为数组的单个元素

Question

文本文件包含

pChainCtrl 
pNewRoute 
pCurrRoute 

pChainCtrl 
pNewRoute 
pCurrRoute 
pMod

pChainCtrl 
pNewRoute 

是否可以将一组元素放入一个数组中，例如

array a[0] = pChainCtrl 
             pNewRoute 
             pCurrRoute 

a[1] =      pChainCtrl 
            pNewRoute 
            pCurrRoute 
            pMod

Answer 1

您可以将输入记录分隔符更改$/为""(ie, local $/ = "";) 以将输入拆分为空行（有关详细信息，请参阅 perldoc perlvar）。

Answer 2

试试这个：

#!/usr/bin/perl -w

open my $fh, "data.txt" or die;
my $file = do { local $/; <$fh> };
close $fh;

my @a = split /\n{2,}/, $file;