Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > Разбивка на страницы

Автор: korob2001 13.6.2003, 00:49

Всем доброго времени суток!
Я опять обращаюсь к вам с вопросом, который уже задавал.
Как разбить файл при выводе в браузер на страницы?
Например по 10 строк на каждую страницу, если строк в файле больше 10, создается ссылка на вторую страничку, которая будет передавать параметр скрипту. Значением параметра будет номер строки, с которой следует начать вывод.

Пожалуйста, подскажите как ето реализовать на практике, в таком простом коде, как этот?

Код


#!/usr/bin/perl -w
use strict;
my $file = "base.txt";
my $max_msg = 10;                   #Кол-во строк на странице
my $count = 1;
open(READ, "<$file") or die $!;
 while (<READ>) {
    print "$_<br>";
    $count++;
 }
close(READ) or die $!;

Мля

я уже несколько месяцев мучаюсь с этой проблемой. Help please!

Заранее благодарен,
Денис

Автор: acp 13.6.2003, 02:51

А разве это не элементарная задача? :-?

Проверяешь, передан ли тебе этот параметр. Если нет, то приравниваешь к 0.
Перед основным циклом считываешь из файла "ненужное" количество строк.
А после основного цикла выдаёшь ссылку с параметром + твое макс. значение.

Автор: HalkaR 13.6.2003, 09:20

Код

 while (<READ>) {
   print "$_<br>";
   $count++;
}

Заменяешь на

Код

for($count:=1; <READ> &&  $count<(10*$n+1); $count++){
if($count>=(10*($n-1)+1))
       print "$_<br>"}

Автор: HalkaR 13.6.2003, 09:21

$n - это номер страницы.

Автор: korob2001 13.6.2003, 13:30

Пробую сделать так:

Код


#!/usr/bin/perl -w
use strict;
my $file = "base.txt";
my $max_msg = 10;
my $count = 1;
my $n = 0;
open(READ, "<$file") or die $!;
for($count=1; my $read = <READ> &&  $count<($max_msg*($n+1)); $count++){
    if ($count>=(10*($n-1)+1)) {
        print "$read<br>";
    }
}
close(READ) or die $!;

Выводит только

Автор: HalkaR 13.6.2003, 13:59

Сколько выводит? Если 10 тогда глюк в считывании.

Автор: korob2001 13.6.2003, 14:15

Цитата

Сколько выводит? Если 10 тогда глюк в считывании.

Да, 10 раз.

Автор: korob2001 13.6.2003, 14:20

Точнее выдаёт такую строку:

1 1 1 1 1 1 1 1 1

Автор: HalkaR 13.6.2003, 14:24

Ну намудрил я! Прошу прощения. По людски все это выгллядит так.

Код

my $max_msg = 10;
my $count = 0;
my $n = 1;
open(READ, 'c:\base.txt') or die $!;
while(<READ>){
     $count++;
     if($count>=($max_msg*($n-1)+1) && $count<($max_msg*$n+1)){
              print "$_<br>\n"}}
close(READ) or die $!;

$n - это именно номер страницы - начинается с 1.

Автор: HalkaR 13.6.2003, 14:25

Цитата

$read = <READ>

Всегда считывает первую строку. А нам надо чтоб происходило перемещение.
Вот что значит не писать 3 месяца - все я позабыл, все перепутал.

Автор: korob2001 13.6.2003, 14:33

А я только что сделал так:

Код


#!/usr/bin/perl -w

use strict;
my $file = "base.txt";
my $max_msg = 10;
my $count = 1;
my $n = 0;
open(READ, "<$file") or die $!;
for($count=$n; $count<($max_msg*($n+1)); $count++){
   if ($count>=(10*($n-1)+1)) {
       my $read = <READ>;
       print "$read<br>";
   }
}
close(READ) or die $!;

Тоже работает. Но самая главная проблема в выводе ссылок на следующие строки.

Автор: korob2001 13.6.2003, 15:57

Так уже почти получилось:

Код


#!/usr/bin/perl -w

use strict;
use CGI;
my $cgi = new CGI;
my $file = "base.txt";
my $max_msg = 10;
my $count = 1;
my $n;
if ($cgi->param('n')) {
  $n = $cgi->param('n');
} else {
  $n = 0;
}
print "Content-type: text/html\n\n";
open(READ, "<$file") or die $!;
for($count=$n; $count<($max_msg*($n+1)); $count++){
   if ($count>=(10*($n-1)+1)) {
       my $read = <READ>;
       print "$read<br>";
   }
}

       my $pag = 1;
       print "<hr>";
       print "[$pag]";
       for (my $i=1; $i<($max_msg*($n+1)); $i++) {
         my $string = <READ>;
         if ($string) {
             last unless defined $string;
             $pag++;
             next if ($i == $max_msg);
             print " <a href=\"spl.pl?n=", $pag+$max_msg-1, "\">$pag</a>";
             $max_msg += (10-1);
         }
       }

close(READ) or die $!

Но почему-то выводит 6 страниц, а должна по идее 2, так как в файле всего 15 строк.

Автор: korob2001 14.6.2003, 19:57

Помогите плиз!
Вот что я сам выстрадал:

Код


#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
my $max_on_page = 10;
my $start_read = 0;
if ( defined $cgi->param('mess')) {
    $start_read=$cgi->param('mess');
}
my $stop_read = $start_read + $max_on_page;
my $file_url = "base.txt";
   open (READ, "<$file_url") or die $!;
      my @all_strings = <READ>;
   close(READ) or die $!;
my $total_strings = scalar( @all_strings );
my $total_pages = int( $total_strings / $max_on_page );
$total_pages++ if $total_strings % $max_on_page;
my @url;

print "Content-type: text/html\n\n";
for ( my $i=0; $i <= $total_strings; $i++ ) {
  print $all_strings[$i],"<br>" if ( ( $i >= $start_read ) && ( $i < $stop_read ) );
  push @url, "plx.pl?mess=$i" if $i == 0;
  if ( $i == $max_on_page ) {
     push @url, "plx.pl?mess=$i";
     $max_on_page += $max_on_page;
  }
}
print "<hr>";
for ( my $x = 0; $x < $total_pages; $x++ ) {
  my $getUrl = shift @url if (@url);
  print "<a href=\"",$getUrl,"\">",$x+1,"</a> ";
}

Всё работает нормально, если в файле не больше 30 строк.

Когда в файле скажем 38 строк, то как и положено выводится 4 ссылка, но при этом она не хочет передавать параметр.

А если в файле 40 строк, ссылка передаёт параметр, но не выводит ни одной строки при клике на неё.

Помогите понять! Почему?

Заранее благодарен,
Денис.

Автор: HalkaR 14.6.2003, 20:34

$max_on_page += $max_on_page; вот ошибка когда $max_on_page = 20 работает неправильно!
замени на $max_on_page += 10;

Автор: korob2001 14.6.2003, 20:40

To HalkaR

Большое спасибо! Уже работает.
Мне интересно знать твоё мнение, такой вариант нормальный? А то мне кажется что он слишком большой.

Автор: HalkaR 15.6.2003, 21:09

В принципе нормально, тока я думал, что можно сделать список ссылок не прибегая к массивам просто сдеалть цикл типа

Код

for($i=0; $i<$total_strings; $i+=10){
        print....}

Автор: korob2001 16.6.2003, 00:31

To HalkaR
Да, наверное так будет действительно лучше, особенно для памяти.

Ещё раз спасибо за помощь.