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

Информация - Компьютеры, программирование

HTML

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

print <<HTML;

HTML

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

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

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

{

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

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

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

foreach (@item)

{

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

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

}

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

print "\n";

print ."\n";

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

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

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

print <img src="../images/.$item[3]..gif" width="31" height="31" alt=";

priny $item[6]." align="absbottom"."\n";

# Выводим остальные поля.

print align="absmiddle">\n";

print \n";

print ."\n";

print \n";

print "\n";

}

# Осталось вывести окончание HTML

print <<HTML;

HTML

close InFile;

# Закрываем файл с записями гостевой книги.

Список литературы

Александр Боровский . Практический Перл для начинающего.