perl - ファイルの複数行を配列の 1 つの要素として配置する

Question

テキストファイルには

pChainCtrl 
pNewRoute 
pCurrRoute 

pChainCtrl 
pNewRoute 
pCurrRoute 
pMod

pChainCtrl 
pNewRoute 

要素のセットを次のような配列に入れることは可能ですか?

array a[0] = pChainCtrl 
             pNewRoute 
             pCurrRoute 

a[1] =      pChainCtrl 
            pNewRoute 
            pCurrRoute 
            pMod

Answer 1

これを試して：

#!/usr/bin/perl -w

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

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

Answer 2

入力レコードセパレーター$/を""(つまりlocal $/ = "";) に変更して、入力を空行で分割することができます (詳細については、perldoc perlvar を参照してください)。