Re^2: How to split into paragraphs?

Velusamy, see clarification above. I already have the entire string in a variable and want to split it into substrings.

Comment on Re^2: How to split into paragraphs?

Replies are listed 'Best First'.
Re^3: How to split into paragraphs? by Samy_rio (Vicar) on Nov 16, 2006 at 13:03 UTC
Try like this, `use strict; use warnings; my $str = <<EOF; abc: asdf1 asdf2 def: asdf3 ghi: asdf4 asdf5 EOF my @str = split/(?=\n+\w)/, $str; print "$_" for @str; #or $str =~ s/(^\|\n+)(\w)/$1<\/p>\n<p>$2/gsi; $str =~ s/^(<\/p>)\n*(.+)$/$2$1/gsi; print $str;` [download] Regards, Velusamy R. eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@\|6%,53!-9@2~j';	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: How to split into paragraphs?
by Samy_rio (Vicar) on Nov 16, 2006 at 13:03 UTC

Try like this,

use strict;
use warnings;
my $str = <<EOF;
abc:
  asdf1
  asdf2

def:
  asdf3

ghi:
  asdf4
  asdf5
EOF

my @str = split/(?=\n+\w)/, $str;

print "$_" for @str;

#or

$str =~ s/(^|\n+)(\w)/$1<\/p>\n<p>$2/gsi;
$str =~ s/^(<\/p>)\n*(.+)$/$2$1/gsi;

print $str;
[download]

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

[reply]
[d/l]
[select]