print <<EOH;
<html>
...
<script>
...
</script>
<table>
EOH
my @items = (
{ text => 'Text inside PopUp', name => 'This link', },
{ text => 'Another text inside', name => 'Another link', },
);
foreach my $item (@items) {
print <<EOT;
<TR>
<TD ALIGN="center"><A HREF="#" ONMOUSEOVER="popup('<font color=yel
+low>$item->{'text'}</font>','green')" ONMOUSEOUT="removeBox()">$item-
+>{'name'}</A></TD>
</TR>
EOT
}
print <<EOF;
</table>
...
</html>
EOF
You can also check CGI for a better cgi approach and Template-Toolkit for a higher level templating approach.
Update: Added the @items array of hashes to have a better understanding.
Igor 'izut' Sutton
your code, your rules.
|