<?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>
