Put multiple lines of a file as a single element of array

Question

Text file contains

pChainCtrl 
pNewRoute 
pCurrRoute 

pChainCtrl 
pNewRoute 
pCurrRoute 
pMod

pChainCtrl 
pNewRoute

Is it possible to put the set of elements into an array like

array a[0] = pChainCtrl 
             pNewRoute 
             pCurrRoute 

a[1] =      pChainCtrl 
            pNewRoute 
            pCurrRoute 
            pMod

alexk · Accepted Answer · 2013-10-03 10:58:13Z

2

Try this:

#!/usr/bin/perl -w

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

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

answered Oct 3, 2013 at 10:58

alexk

1,5381 gold badge13 silver badges17 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Dave Cross Over a year ago

If you set $/ to an empty string, rather than undef then this all becomes much simpler - my @a = do { local $/ = ''; <$fh> };

Tobias Gödderz · Accepted Answer · 2013-10-03 10:41:47Z

2

You can change the input record separator $/ to "" (i.e., local $/ = "";) to split the input on empty lines (see perldoc perlvar for details).

answered Oct 3, 2013 at 10:41

Tobias Gödderz

3311 silver badge2 bronze badges

Collectives™ on Stack Overflow

Put multiple lines of a file as a single element of array

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related