Реферат: Практический Перл для начинающего

print '<img src="../images/guestbook.GIF" alt="Книгажалоб" WIDTH="258" HEIGHT="60"></td>'."\n" ;

print " </tr>\n" ;

print "</table>\n" ;

print '</div><div align="left">'."\n" ;

print "\n" ;

print '<table border="0" width="630" height="53" cellspacing="0" cellpadding="0">'."\n" ;

print " <tr>\n" ;

print ' <td width="200" height="260" valign="top"><p align="center">'."\n" ;

DoInclude("D:/InetPub/wwwroot/_menu.htm");

print ' <p align="left"></td>'."\n" ;

print ' <td width="10" height="53" valign="top"></td>'."\n" ;

print ' <td width="410" height="53" valign="top"><p align="center"><small>Вашиданные'."\n" ;

print " приняты. Спасибо.</small></p>\n" ;

print ' <p align="center"><a href="read_guestbook.pl">';

print '<img src="../images/read.jpg" alt="Почитать" border="0" WIDTH="63" HEIGHT="21"></a> </td>'."\n" ;

print " </tr>\n" ;

print "</table>\n" ;

print "</div>\n" ;

print "\n" ;

print "<table>\n" ;

print " <tr>\n" ;

print ' <td width="10" height="53" valign="top"></td>'."\n" ;

print " </tr>\n" ;

print "</table>\n" ;

print "</body>\n" ;

print "</html>\n" ;

}

# Не забываем подпрограмму разбора данных из формы.

sub GetFormInput {