Help for this page
sub MakePtag{ my $fixme = shift; # take in our parameters ... grep { /\S/ } # must have at least one non-whitespace + character split "\r\n", $fixme; # break apart on the newlines }
sub MakePtag { join "\r\n", map {"<p>$_</p>"} grep {/\S/} split "\r\n" +, $_[0] } # :)
sub MakePtag{ chomp(my $fixme = shift;) # take in our parameters ... $fixme = "<p>$fixme</p>"; # Add beginning and ending tags return $fixme; }
www.com | www.net | www.org
No recent polls found