Сообщество Чайников

Вопрос

Есть сайт, который разбит на несколько листов. Необходимо на каждой странице сделать ссылки на все остальные в виде номеров, например: 1|2|3|…|11|12. Как это сделать?

Ответ

Начальное количество страниц — 10.

#!/usr/bin/perl
$n=10; #кол-во страниц в тексте
$pfx="page"; # префикс страничек
print "Content-Type: text/html\n\n";
for ($i=1;$i<=$n;$i++)
{
$name=$pfx.$i.".html";
if ($name eq $ENV{'DOCUMENT_NAME'}){$itm="$i";}
else {$itm="<A href=\"$name\">$i</A>";}
print $itm;
if ($i<$n){print " | ";}
}

Andrew Cnorny

При добавлении новых страниц нужно просто изменить $n в начале скрипта и обновить скрипт.