Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

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]
[Discipulus]: sure! probably the last chance to choice my holidays, 3 weeks

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (9)
As of 2018-06-25 18:22 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (128 votes). Check out past polls.