Re: breaking up a file by delimiter

use strict;
use warnings;

use Data::Dumper;
$Data::Dumper::Indent = 0;

my $file = 'test';
my @data;

{
    local $/;
    open my $FILE, '<', $file or die "Cannot open '$file' because: $!"
+;

    @data = grep /\S/, split /XXX\n/, <$FILE>;
}

print Dumper \@data;
[download]

Comment on Re: breaking up a file by delimiter Download Code

Replies are listed 'Best First'.
Re^2: breaking up a file by delimiter by navalned (Beadle) on Oct 07, 2018 at 13:52 UTC
This works great! Thanks!!	[reply]


We don't bite newbies here... much
	PerlMonks