how to split a file by paragraph? instead of by lines

[orangegal]

thanks for your help

 

[PaulTEG]

define a paragraph, two line feeds in succession?

$/=undef #this you'll need to check
open FILE, "<file.txt";
$file=<FILE>;
@paras=split /\n\n/, $file;
foreach(@paras) {
   print "$_";
   print "="x40;
}

Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[zephan]

open FILE, "file.txt"; 
@paras=<FILE>;

each paragraph in an element of the array.

 

[KevinADC]

open FILE, "file.txt";
@paras=<FILE>;

each paragraph in an element of the array.

that will put each line of the file into each element of the array. If each line happens to be each paragraph then it will work, but that seems unlikely.

 

[rharsh]

Assuming that the paragraphs are delimited as Paul suggested, you could use code similar to zephan's by changing the input record separator.

{local $/ = "\n\n";
 map {chomp; print "\|$_\|\n"} <DATA>;}

__DATA__
Here is
one paragraph
of text.

This is a
second paragraph
of text.