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

<tr>

<td width="200" height="260" valign="top"><p align="center"><small>

HTML

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

print <<HTML;

</p>

<p align="left"></td>

<td width="10" height="53" valign="top"></td>

<td width="410" height="53" valign="top"><p align="center">Нампишут:</p>

<table border="0" width="100%" cellspacing="0" cellpadding="0">

HTML

# Теперь выводим записи в невидимой (в смысле, рамка не видима) таблице.

# Чтобы свежие записи отображать первыми, обрабатываем массив строк с конца.

for ($i=$#lines; $i>=$[; $i--) #обрабатываем строки файла с конца

{

# Разделяем строку на части

@item=split('&', $lines[$i]); #разделяем на части

# Теперь заменяем HTML тэги в записи (на случай какого-нибудь хитрого юзера)

foreach (@item)

{

$_=~s/</</g;

$_=~s/>/>/g;

}

# Приступаем непосредственно к выводу записей в HTML

print "<tr>\n";

print '<td width="100%"><dl>'."\n";

# В зависимости от поля, где посетителю предлагался выбор понравилось - не понравилось,

# рисуем картинку с веселой или грустной мордочкой соответственно. В качестве ALT тэга

# картинки пропишем IP адрес посетителя.