17 lines
328 B
Plaintext
17 lines
328 B
Plaintext
<?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>
|