instiki/vendor/plugins/erubis/examples/pi/example.eperl
2010-07-04 08:51:53 -05:00

16 lines
328 B
Text

<?perl
my $user = 'Erubis';
my @list = ('<aaa>', 'b&b', '"ccc"');
?>
<p>Hello @{$user}@!</p>
<table>
<tbody>
<?perl $i = 0; ?>
<?perl for $item (@list) { ?>
<tr bgcolor=@!{++$i % 2 == 0 ? '#FFCCCC' : '#CCCCFF'}@">
<td>@!{$i}@</td>
<td>@{$item}@</td>
</tr>
<?perl } ?>
</tbody>
</table>