note
7stud
<p>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:</p>
<code>
my $html = <<END_OF_HTML;
<html>
<head><title>Web redirection</title>
</head>
<body>
<form action="redirect.pl" method="post" >
<fieldset>
<legend>Kindly select a website to visit</legend>
<strong>Select a website form the list:</strong>
<select name="website">
<option value="www.sedocaonline.com">Sedocaonline.com</option>
<option value="http://www.yahoo.co.uk">Yahoo.co.uk</option>
<option value="http://www.play.com">play.com</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;</code>
<p>That's called the 'here doc' syntax. Perl also has q{} and qq{}:
<code>
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.
</code>
<p>q{} is an alternative to single quotes, and qq{} is an alternative to double quotes--and you can use any delimiter you want:</p>
<code>
say q['hello' {world}];
say q*hello ["'] world*;
--output:--
'hello' {world}
hello ["'] world</code>
1013782
1013782