Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Re: Re: catching newlines from textarea input

by maksl (Pilgrim)
on Feb 28, 2003 at 11:59 UTC ( [id://239399]=note: print w/replies, xml ) Need Help??

in reply to Re: catching newlines from textarea input
in thread catching newlines from textarea input

yes Abigail-II you are right on this sample, but with the input from the cgi textarea it does not :(
  • Comment on Re: Re: catching newlines from textarea input

Replies are listed 'Best First'.
Re: catching newlines from textarea input
by Abigail-II (Bishop) on Feb 28, 2003 at 12:04 UTC
    And, care to show us what the input is from the textarea, or do you believe we are omniscient?

    Because, if the first regex does eat all the newlines, it's a bug in Perl.


      you are right abigail-II: in my little following test sript, using input from textearea, the regex definetly works correctly as above. don't know what damm happens in my cms, have to look deeper in it's lines.
      #!/usr/bin/perl -w use strict; use CGI; my $query = new CGI; my $text = cleanup_txt( $query->param( 'text' )); if ( $text eq "") { cast_form(); } else { print "Content-type:text/html\n\n"; print ubb_txt( $text); } sub cleanup_txt { my $str = $_[0]; return "" unless ( defined $str ); $str =~ s/[<>"'&|]//gs; return $str; } sub cast_form { print "Content-type:text/html\n\n"; print "<html><head><title>test textearea</title></head>"; print "<body>\n<form method=post action=\cgi-bin/"; print "/red/\"><textarea rows=\"5\" cols=\"55\" name="; print "\"text\"></textarea><br><input type=\"submit\""; print " value='Submit' name=submit\" value='Submit' name="; print "\"submit\"></form></body></html>"; } sub ubb_txt { my $txt = shift; return "" unless ( defined $txt); my ($nl) = $txt =~ m{(\cM?\cJ)}; $txt =~ s{$nl$nl}{</p><p>}gs if (defined $nl); $txt =~ s{$nl}{<br>}gs if (defined $nl); return $txt; }

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://239399]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others studying the Monastery: (2)
As of 2024-04-16 23:51 GMT
Find Nodes?
    Voting Booth?

    No recent polls found