Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: CGI redirection

by 7stud (Deacon)
on Jan 18, 2013 at 00:33 UTC ( #1013922=note: print w/replies, xml ) Need Help??

in reply to CGI redirection

Also, if you find yourself escaping lots of characters inside a string, you are not taking advantage of perl's numerous quoting mechanisms. Look here:

my $html = <<END_OF_HTML; <html> <head><title>Web redirection</title> </head> <body> <form action="" method="post" > <fieldset> <legend>Kindly select a website to visit</legend> <strong>Select a website form the list:</strong> <select name="website"> <option value=""></option> <option value=""></option> <option value=""></option> </select> <input type="hidden" name="op" value="ds" > <input type="submit" name="submit" value="Browse the web"> </form> </body> </html> END_OF_HTML print $html;

That's called the 'here doc' syntax. Perl also has q{} and qq{}:

use strict; use warnings; use 5.012; my $greeting = 'hello'; my $str1 = q{The lady said $greeting to me.}; my $str2 = qq{The lady said $greeting to me}; say $str1; say $str2; --output:-- The lady said $greeting to me. The lady said hello to me.

q{} is an alternative to single quotes, and qq{} is an alternative to double quotes--and you can use any delimiter you want:

say q['hello' {world}]; say q*hello ["'] world*; --output:-- 'hello' {world} hello ["'] world

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1013922]
[LanX]: Yesterday I made B::Concise produce a nested AoH of the optree instead of text
LanX chacka!!!
[LanX]: whats the correct way to make a perlbug report for perldoc?
[erix]: chacka
[LanX]: with a diff? which perldoc version should I take from where?

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2017-04-24 15:15 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (442 votes). Check out past polls.