note
linuxer
<p>Please use code tags. See [Markup in the Monastery] for details.</p>
<p>How do you want to treat the blank lines?</p>
<p>Maybe you need to read blockwise?</p>
<code>
#!/usr/bin/perl -l
use strict;
use warnings;
{
local $/ = "";
my @blocks = <DATA>;
local $, = "\n";
print map { ">>>$_<<<" } @blocks;
}
__DATA__
AB
A
BB
CC
C
CD
EE
EA
</code>
<p>Maybe you want to capture the split pattern?</p>
<code>
#!/usr/bin/perl -l
use strict;
use warnings;
my $content = do { local $/; <DATA> };
my @blocks = split /(\n\n+)/, $content;
{
local $, = "\n";
print map { ">>>$_<<<" } @blocks;
}
__DATA__
AB
A
BB
CC
C
CD
EE
EA
</code>
765762
765762