21 lines
451 B
Plaintext
21 lines
451 B
Plaintext
|
$ erubis -l perl example.eperl
|
||
|
|
use HTML::Entities;
|
||
|
|
my $user = 'Erubis';
|
||
|
|
my @list = ('<aaa>', 'b&b', '"ccc"');
|
||
|
|
|
||
|
|
print('<html>
|
||
|
|
<body>
|
||
|
|
<p>Hello '); print($user); print('!</p>
|
||
|
|
<table>
|
||
|
|
'); $i = 0;
|
||
|
|
for $item (@list) {
|
||
|
|
print(' <tr bgcolor='); print(++$i % 2 == 0 ? '#FFCCCC' : '#CCCCFF'); print('">
|
||
|
|
<td>'); print($i); print('</td>
|
||
|
|
<td>'); print($item); print('</td>
|
||
|
|
</tr>
|
||
|
|
'); }
|
||
|
|
print(' </table>
|
||
|
|
</body>
|
||
|
|
</html>
|
||
|
|
');
|