>есть тема, примером, вывод команды ls. строишь хтмл по первым 10 строкам
>с сылками на 2,3 страницы. эти ссылки передают в скрипт номер
>позиции с которой нужно выводить список ls. скрипт каждфй раз предает
>в масив список , но в хтмл выводит в зависимости от
>параметров.
>че скажешь.
>зы. сам сижу за этим..
Аот так это делается как я и дкмал все просто, теперь только осталось побороть загрузку, но с ней похлже непреодолимые трудности
#!/usr/bin/perl
$old = "database";
print "Content-type: text/html\n\n";
@pairs = split(/\\*\&/, $ENV{'QUERY_STRING'});
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$form{$name} = $value;
}
open(FILE, "< $old");
@file = <FILE>;
close (FILE);
$x=20;
$name = $name - 1;
$value = $value - 1;
$name2 = $name + $x;
$value2 = $value + $x;
$name3 = $name - ($x-2);
$value3 = $value - ($x-2);
$i = $name;
if($#file > $value) {
if($name != 0) {
print "<a href=/cgi-bin/proba/show.cgi?$name3=$value3>Назад</a>";
};
print "<a href=/cgi-bin/proba/show.cgi?$name2=$value2>Вперед</a>";
} else {
if ($name != 0) {
print "<a href=/cgi-bin/proba/show.cgi?$name3=$value3>Назад</a>";
};
}
$file2=$#file+1;
print "<br>Всего сообщений $file2<br>";
while($i <= $value) {
print "$file[$i]\n";
++$i;
}
Вариант для распечатки
WEB технологии (Public)
on
20-Окт-03, 10:49 (MSK)
