splitting lines

[Bob Smith]

hi
how to split text into lines?
I have in a db whitespace delimited words forming chapters in one field,
and I want to nicely put it on the page with max 30 or so characters per
paragraph, after that line breaks should occur,
but I can't figure out the regexp for doing it,
any help much appreciated. Thank you
/G

 

[Bigus]

hi
how to split text into lines?
I have in a db whitespace delimited words forming chapters in one field,
and I want to nicely put it on the page with max 30 or so characters per
paragraph, after that line breaks should occur,

I take it you mean 30 characters per line rather than paragraph?

If so, try something like this:

@lines = $dbtext =~ /(.{30}\S*)/g;
foreach(@lines)
{
$_ =~ s/^\s+//;
print "$_\n";
}

Bigus

 

[D Borland]

I take it you mean 30 characters per line rather than paragraph?

If so, try something like this:

@lines = $dbtext =~ /(.{30}\S*)/g;
foreach(@lines)
{
$_ =~ s/^\s+//;

can't that be typed just as s/^\s+//; not $_ =~ s^\s+//;

 

[Trent Curry]

can't that be typed just as s/^\s+//; not $_ =~ s^\s+//;

Yes it can, since s/ (a substitution op) with no lhs implies using $_;

--
Trent Curry

perl -e
'($s=qq/e29716770256864702379602c6275605/)=~s!([0-9a-f]{2})!pack("h2",$1)!eg
;print(reverse("$s")."\n");'

 

[Eric Bohlman]

hi
how to split text into lines?
I have in a db whitespace delimited words forming chapters in one field,
and I want to nicely put it on the page with max 30 or so characters per
paragraph, after that line breaks should occur,
but I can't figure out the regexp for doing it,

You're better off using Text::Format, or Text::Autoformat, or a related
module for this rather than trying to create a regexp. The authors of
those modules have already dealt with a number of "gotchas" that occur in
text formatting.

 

[Bigus]

Yes it can, since s/ (a substitution op) with no lhs implies using $_;

That's interesting.. I never knew that!

Bigus

 

[Mala Ananthamurthy]

hi
how to split text into lines?
I have in a db whitespace delimited words forming chapters in one field,
and I want to nicely put it on the page with max 30 or so characters per
paragraph, after that line breaks should occur,
but I can't figure out the regexp for doing it,
any help much appreciated. Thank you
/G

$outputline =~ s/(.{1,30})/$1\n/gs;

print "$outputline";

 

[Mala Ananthamurthy]

hi
how to split text into lines?
I have in a db whitespace delimited words forming chapters in one field,
and I want to nicely put it on the page with max 30 or so characters per
paragraph, after that line breaks should occur,
but I can't figure out the regexp for doing it,
any help much appreciated. Thank you
/G

#This one looks for space character
$outputline =~ s/(.{1,30})\s+/$1\n/gs;

print "$outputline";