Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: [Perl-CGI] Print non-interpolated string

by choroba (Bishop)
on Apr 03, 2014 at 22:37 UTC ( #1081022=note: print w/replies, xml ) Need Help??

in reply to [Perl-CGI] Print non-interpolated string

After clicking on submit Perl now starts to execute the contents of the textarea
I cannot reproduce the problem. If I run your script, HTML in the textarea is interpreted by the browser, but Perl commands are not run. To prevent the contents from evaluation, just replace all & to &amp;, and all < to &lt;.
$text =~ s/&/&amp;/g; $text =~ s/</&lt;/g;
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: [Perl-CGI] Print non-interpolated string
by Digioso (Sexton) on Apr 04, 2014 at 08:11 UTC
    Thanks for the links all. I'll check them out.
    For now I have uploaded my sample script here:
    Weird thing that you cannot reproduce it. Possibly could have to do with the webserver settings or the installed Perl version then.
    Neither are under my control unfortunately since I'm on a large webhoster.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1081022]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2018-05-24 18:50 GMT
Find Nodes?
    Voting Booth?