Der er mange notationer, der virker. Personligt kan jeg bedst lide at lave en mellemregning, da det er mere fejlsikkert, og lettere læses af andre programmører, fordi man kan navngive mellemresultatet.
Når du skal printe flere linier, bør du også bruge << notationen.
MVH Uffe.
my $adminval = '0';
$adminflag = '1' if $cryptword;
print << EOF;
<INPUT TYPE=HIDDEN NAME=admincheck VALUE="$adminflag"/>
<A "
http://www.test.dk">test</A>EOF
*** eller ***
unless ($cryptword) {
print "<INPUT TYPE=HIDDEN NAME=admincheck VALUE=1>\n";
print "<A "
http://www.test.dk"></A>";}
*** eller ***
if ($cryptword) {
print "<INPUT TYPE=HIDDEN NAME=admincheck VALUE=1>\n";
print "<A "
http://www.test.dk"></A>";} else {
print "<INPUT TYPE=HIDDEN NAME=admincheck VALUE=0>\n";
print "<A "
http://www.test.dk"></A>";}