The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
GRICHTER / HTML-Embperl-1.3.6 / test / html / ifperl.htm 

<html>
<head>
<title>IF Metacommand in Embperl</title>
</head>

<body>

[- $a = 1; $b = 0; $c = 5; $d = 'txt' -]

a1
[* if ($a) { *]
    a <br>
[* } *]

a2
[* if ( $a) { *]
    a <br>
[* } else { *]
    not a<br>
[* } *]

a3
[* if ( $a<br>) { *]
    a <br>
[* } else { <br>*]
    not a<br>
[* } <br>*]

a4
[*<br>if ($a) { *]
    a <br>
[* <br> } else { <br>*]
    not a<br>
[* <br>} *]

a5
[* if ($a) {*]
    a <br>
    [* if ( $b == 0) {*]
        b is null <br>
    [* } else { *]    
        b is not null <br>
    [* } *]
[* } else{*]
    not a<br>
[* } *]


[* if ($a) {*]
    a <br>
    [* if ( $b == 0) {*]
        b is null <br>
    [* } else { *]    
        b is not null <br>
    [* } *]
[* } else {*]
    not a<br>
    [* if ( $b == 0) {*]
        b is null <br>
    [* } else { *]    
        b is not null <br>
    [* } *]
[* } *]


[* if (!$a) {*]
    not a <br>
    [* if ( $b == 0) {*]
        b is null <br>
    [* } else { *]    
        b is not null <br>
    [* } *]
[* } else {*]
    a<br>
    [* if ( $b == 0) {*]
        b is null <br>
    [* } else { *]    
        b is not null <br>
    [* } *]
[* } *]


[* if ($a) {*]
    a <br>
    [* if ( $b == 0) {*]
        b is null <br>
    [* } elsif ($c == 5) { *]
        b is not null and c is 5 <br>
    [* } elsif ($d eq 'txt') {*]
        b is not null and c is not 5, but d is 'txt' <br>
    [* } else { *]    
        b is not null and c is not 5 and d is not 'txt' <br>
    [* } *]
[* } else {*]
    not a<br>
[* } *]


[- $ttrue = 'true'; $tfalse = '' -]

[* if ( $ttrue) { *]
ttrue = true
[* } else { *]
ttrue = false
[* } *]

[* if ( $tfalse) { *]
tfalse = true
[* } else { *]
tfalse = false
[* } *]


</body>
</html>