
davorg
Thaumaturge
/ Moderator
Feb 2, 2005, 2:01 AM
Post #2 of 2
(7324 views)
|
Re: [inlimbo] HTML code generator
[In reply to]
|
Can't Post
|
|
This seems to do the job on your text data.
#!/usr/bin/perl use strict; use warnings; my $text = 'This is paragraph 1. This is paragraph 1. This is paragraph 1. This is paragraph 1. This is paragraph 1. This is paragraph 1. This is paragraph 1. This is paragraph 1. This is paragraph 1. This is paragraph 1. This is paragraph 1. This is paragraph 1. This is paragraph 1. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is paragraph 2. This is a new line. This is a new line. This is a new line. This is a new line.'; # Add <p> and </p> to start and end of text $text = "<p>$text</p>"; # Convert double newlines to </p>\n\n</p> $text =~ s|\n\n|</p>\n\n<p>|g; # Add a <br /> at the end of any non-blank line that doesn't # already end with </p> $text =~ s|\S(?<!</p>)\n|<br />\n|g; print $text; -- Dave Cross, Perl Hacker, Trainer and Writer http://www.dave.org.uk/ Get more help at Perl Monks
|