Помогите Plz

[Psixolog]

как сделать, если более 20 строчек, то создавалось новая страница.
Например: Страница [1] 2 3 4

[AnnA]

передавайте в url_param индекс массива: $howMatch=20;
for (0..$howMatch) {
print $array[$_]
}
это одно изрешений. вариантов масса.
выводим ссылки на страницы:
print qq~[2]
[3]
...~;

идея, думаю, понятна

[Psixolog]

А что то типа

open (TXT,"1.txt");
@strings=<TXT>;
$count=@strings;
close (TXT);

# Если их количество больше 10,создаём новую страницу
if ($count>10) {
print "страница: <a href=url>1</a>\\n";
}

Что то типа того =))

[Error202]

А как оптимальней сделать, когда 3542 страницы...
1...23 24 [25] 26 27 28...3542
<< 23 24 [25] 26 27 28 >>
<< 25 of 3542 >>
или еще как-то?

[AnnA]

Psixolog нет.
лучше сразу найти выводимое кол-во ссылок.
например, если хочется выводить по 20 элементов массива:
$hrefs = int(scalar(@arr)/20); теперь у нас есть кол-во страниц, можно формировать строку ссылок:

Error202:
1...23 24 [25] 26 27 28...3542 << 23 24 [25] 26 27 28 >> << 25 of 3542 >>

как угодно. как больше нравится, так и делайте.

[Error202]

Так мне и интересно, как удобно обычно?

[AnnA]

Error202:
когда 3542 страницы...

я бы сделала так:
«« « …23 24 [25] 26 27 28 29 30 31 32 33… » »»
--------------------------
«« - первая страница
«  -  предыдущих 10. т.е. ряд ссылок выглядит так:
      13 ..... 22
»  - соответственно 10 следующих
»» - последняя

[Error202]

Да... Так аккуратней...

[Error202]

Как узнать количество десятков в цифре...?
т.е. просто отсечь остаток при делении...

[Psixolog]

=)) Код кто нить подскажет

=) ты де не будешь смотреть сначала первую а потом последн.. страницу =)) зачем?

Страница: [1] 2 3 4 5 6 ...

Вот так самое оптимально!
Теперь к главному, я думал думал и придумал


#!/use/bin/perl 

print "Content-type:text/html\\n\\n";

open (LOG,"1.txt");
@strings=<LOG>;
$count=@strings;
close (LOG);

# Если их количество больше 10,создаём страницы.

if ($count>10) {
print "Страница:\\n";
for($i=1; $i<10; $i++) {
print "[<a href=?page=$i> $i </a>]\\n";
}
}

[Error202]

А вдруг тебе надо перейти к последней странице... Может там что полезное... Перибирать все десятки, если страниц более 5000 - до вечера...

[AnnA]

Код: [Выделить]

my ($total,$how,$links,$now)=(scalar(@arr),8,1,url_param(\'page\'));

for ($c=0;$c<$total;$c++)
 { $pages=int($c/$how)*$how;
   if($pages eq $c)
     { if ($pages eq $now)
       { print qq~ ($links)~;}
         else {print qq~ [$links]~;}
       $links++
     }
 }
код не проверяла, но без use strict; рабочий по идее.

[Psixolog]

Что есть $total,how,now

А простой пример можешь привести а то я что то не разберусь

Тоесть

у меня текст допустим 1.txt

там
написано

1
2
3
4
5

тобишь 5 строчек

две на одной странице

ещё 2 на другой

и последняя на третьей.

В итоге:

1
2

Страница: [1] 2 3
________________

3
4

Страница: 1 [2] 3
________________
Если дашь такой код цены тебе не будет! =))

[Psixolog]

Error202:
А вдруг тебе надо перейти к последней странице... Может там что полезное... Перибирать все десятки, если страниц более 5000 - до вечера...

У меня не будет больше 10 страниц =))

[Error202]

Вопросов нет...