Народ, такая проблема. Написал гостевушку, работает вроде бы нормально. Не знаю как ограничить количество сообщений на странице. То есть ввести в файл htm.cfg какую-нибудь переменную $max_rec с каким-нибудь значением. Как только колличество сообщений на странице превышает величину $max_rec, где-нибудь на страничке появляются ссылочки 1,2.. итд. Вот исходный код

файл gsscript.pl

Код

#!perl -w use CGI::Carp qw(fatalsToBrowser); print "Content-type:text/html\n\n"; print "<meta http-equiv='pragma' content='no-cache'>"; print "<meta http-equiv='cache-control' content='no-cache'>"; print "<meta http-equiv='Content-Type' content='text/html\; charset=windows-1251'>"; if ($ENV{'REQUEST_METHOD'} eq 'POST') {     read(STDIN,$fd,$ENV{'CONTENT_LENGTH'});     }   else { $fd = $ENV{'QUERY_STRING'}; } $fd =~ s/%(..)/pack("C",hex($1))/eg; $fd =~ tr/+/ /; @pair = split(/&/,$fd); foreach $pairs (@pair){ ($name,$value) = split(/=/,$pairs); $form_data{$name} = $value; } if($ip = $ENV{'HTTP_X_FORWARDED_FOR'}){ $pl = $ENV{'HTTP_X_FORWARDED_FOR'}; }else{ $ip = $ENV{'REMOTE_ADDR'}; }  #  require "htm.cfg";  # if($form_data{'el'}){ ($s,$m,$h,$mday,$mon,$year) = localtime(time); $year = $year+1900; if($h < 10){ $h = "0"."$h"; } if($mon < 10){ $mon = "0"."$mon"; } $form_data{'el'} =~ s/</&lt;/g; $form_data{'el'} =~ s/>/&gt;/g; $form_data{'el'} =~ s/ /&nbsp;/g; $form_data{'el'} =~ s/\n/<br>/g;  if($form_data{'name'}eq ""){   $form_data{'name'} = "Àíîíèì";   }    $stephan = "$form_data{'el'}:$ip:$form_data{'email'}:$form_data{'name'}:$h:$m:$mon:$year:$mday\n";  open(DB,">>$base_url");  print DB "$stephan";  close(DB);  require "htm.cfg";  print "$style_spec";    print <<PIZDEC;  <font class = fontss>Через 3 секунды вас перебросит <a href = '$url_long'>обратно</a></font> PIZDEC      #   print "$style_off";  exit; } print "$style_on"; print "$middle"; open(BASE,"<$base_url"); @q = <BASE>; close(BASE);               $recs=0; foreach $qw (@q){  ($message,$ip_adr,$email,$name,$h,$m,$mon,$year,$mday) = split(/\:/,$qw);    if($email eq ''){     print <<OPOSING;     <table width = 100%><tr><td bgcolor = $sh_top class = tabl>:: $name || $h\:$m \| $mday\/ $mon \/ $year ::</tr></td><tr><td bgcolor = $sh_down class = tabl>$message</font></table><br> OPOSING # }else{   print <<OPOSING;     <table width = 100%><tr><td bgcolor = $sh_top class = tabl>:: <a href = 'mailto:$email'>$name</a> || $h\:$m \| $mon \/ $year ::</tr></td><tr><td bgcolor = $sh_down class = tabl>$message</font></table><br> OPOSING }  }  print "$style_off";  # F I N I S H!

файл htm.cfg

Код

#####################################Настройки######################################## $bg_color = "CCCCFF";             #цвет фона страницы $fon_color = "BBBBEE";            #цвет текстовых строк и поля сообщения $titul = "Моя гостевая книшшка!"; #заголовок страницы $strelka = "#000000";             #Цвет стрелок скроллбара $scroll = "#848AA5";              #Цвет скроллбара $shrift = "#000000";              #Цвет шрифта $fonts = "Times New Roman";       #Стиль шрифта  $font_size = "20px";              #Размер шрифта в пикселях $border_color = "#000000";        #Цвет бордеров $sh_top = "#AAAADD";              #Цвет верхней части таблицы $sh_down = "#BBBBEE";             #Цвет нижней части таблицы $url = "/cgi-bin/gsscript.pl";    #Относительный путь к гостевой $base_url = "base.txt";           #Нахождение файла с сообщениями $url_long = "http://localhost/cgi-bin/gsscript.pl"; #Полный путь к гостевой ###################################################################################### $style_on = qq~ <html>      <HEAD><TITLE>$titul</TITLE></head> <style = text/css> .cld{ background-color:$fon_color;font-family:$fonts;font-size:$font_size;BORDER-RIGHT: $border_color 1px solid;  BORDER-LEFT: $border_color 1px solid;BORDER-TOP: $border_color 1px solid; BORDER-BOTTOM: $border_color 1px solid;color:$shrift  }; .main{ SCROLLBAR-ARROW-COLOR: $strelka; SCROLLBAR-BASE-COLOR: $scroll; topmargin: 0   }; .fontss{ font-family:$fonts;font-size:$font_size;color:$shrift } .tabl{ BORDER-RIGHT: $border_color 1px solid;  BORDER-LEFT: $border_color 1px solid;BORDER-TOP: $border_color 1px solid; BORDER-BOTTOM: $border_color 1px solid;font-family:$fonts;font-size:$font_size;color:$shrift } </style> <body bgcolor = '$bg_color' class = main>   ~; # $style_off = qq~ <hr><a href = 'mailto:rezzonans\@yandex.ru' class = 'fontss'>&copy Elf's Web Studio</a></body></html> ~; # $middle = qq~ <form action = '$url' method = 'POST'> <table class = fontss><tr><td>Имя<td><td><input type = 'text' name = 'name' size = 20 class = cld></tr></td></td></td><tr><td> E-mail<td><td><input type = 'text' name = 'email' size = 20 class = cld></tr></td></td></td></table> <textarea COLS=70 ROWS=10  name = 'el' class = cld></textarea><br> <input type = 'submit' value = 'Отправить'  class = cld> </form> <br><br> ~; # $style_spec = qq~ <html> <HEAD><TITLE>$titul</TITLE></head> <style = text/css> .main{ SCROLLBAR-ARROW-COLOR: $strelka; SCROLLBAR-BASE-COLOR: $scroll; topmargin: 0   }; .fontss{ font-family:$fonts;font-size:$font_size;color:$shrift } .tabl{ BORDER-RIGHT: $border_color 1px solid;  BORDER-LEFT: $border_color 1px solid;BORDER-TOP: $border_color 1px solid; BORDER-BOTTOM: $border_color 1px solid;font-family:$fonts;font-size:$font_size;color:$shrift } </style> <body bgcolor = '$bg_color' onLoad = 'timer()' class = main>   <script language = "JavaScript">  <!--  function timer() {   setTimeout(\"parent.location.href = '$url'\", 3000); }      //--></script> ~; #

Да млин , такое чувство, что ты специально код запутывал.

Так что, идей ни каких?

Покажите на каком-нибудь простом примере. Я разберусь там

 Замечания по коду ( только не обижайся, это не для того, что бы тебя обидеть ):

1. Всегда используй прагму strict, я больше чем уверен, что там половина переменных вообще не нужны.

2. Пользуйся стандартным модулем CGI.pm, например для декодирования полей.

3. Почему нет проверки полей, например: регулярными выражениями?

4. Где ключь -T? Конечно он не обязателен, но желательно использовать его в каждой CGI программе. Что это за зверь, читай здесь:
http://forum.vingrad.ru/index.php?showtopic=44245

5. Не имей привычки читать файл в массив, рано или поздно ты убъёшь оперативную память.

Остальные замечания смотри в коментариях, их очень много.

Вот тебе твой же код, только немного в другом формате и с встроенной, простейшей разбивкой по страницам( всё прокоментировано ). Согласись, его теперь намного проще понять.  


Конфигурационный файл, в нём тоже было много ошибок. Так же читай кометрарии.

Только твой код очень опасен, просто находка для санитаров леса. ;))))
Ладно разберайся. Если будет что-то не понятно, пиши. 

Это сообщение отредактировал(а) korob2001 - 24.8.2006, 13:17

Спасибо большое, ща посмотрю ! Вопрос такой, use strict - это что за фигня? я так понимаю он какие-то ограничения накладывает, только вот вопрос какие? Проверку полей я ещё сделать не успел, скорее всего сделаю её на javascript. Просто модуль CGI я не очень люблю. Почему-то с ним у меня никогда не получается хороших прог.

PS И ещё вопрос, чем это я оперативу убью? Массивом с сообщениями)))))))?

Цитата

Вопрос такой, use strict - это что за фигня?

strict - это прагма компилятора, если она указывается, то Perl ужесточается, например:
Запрещается использование не объявленных переменных, так же подпрограмм и использование символических ссылок. Но так как подпрограмм у тебя нет и ссылок тоже, то тебя должна интересовать только такая форма записи:

Код

#!/usr/bin/perl use strict 'refs';

Попробуй вписать её и ты будешь сильно удивлён насколько много у тебя ошибок. ;)))))

Цитата

Проверку полей я ещё сделать не успел, скорее всего сделаю её на javascript.

А вот проверку делать на JavaScript я тебе не советую. Почему? Читай следующюю тему, я уже устал повторять одно и то же. ;))))
http://forum.vingrad.ru/index.php?showtopic=65199&st=15

Цитата

Просто модуль CGI я не очень люблю. Почему-то с ним у меня никогда не получается хороших прог.

Ну это дело времени, не отчаивайся и покоряй и тогда поймёшь все его прелести, это совсем другой стиль программирования на Perl. Пример можешь посмотреть здесь (кстати, я там приводил, рабочий, пример гостевой книги на чистом CGI, можешь попробовать его запустить, может понравится ( All rights fucked up - пользуйся на здоровье ;))) ):
http://forum.vingrad.ru/index.php?showtopic=43044

Цитата

PS И ещё вопрос, чем это я оперативу убью? Массивом с сообщениями.

Угу, ты ведь фактически помещаешь весь файл в оперативную память. Представь как будет не хорошо когда твой файл будет очень сильно заполнен + твой сайт очень популярный и твою гостевуху часто посещают твои товарисчи, которых очень много. Вот тут и приходит на помощь построчное чтение файла, без использования каких либо массивов. Потому лучше сразу сделать чтение таким и никогда не загонишь в тупик опертивную память, каким бы огромным не был бы твой файл.

Это сообщение отредактировал(а) korob2001 - 30.9.2005, 02:36

Короб, мужик, ты меня выручаешь в который раз! Спасибо! Один вопрос остался: когда гостевушку запускаешь, если вводить сообщение без нажатия enter, то таблица приобретает неимоверную ширину, я так понимаю это из-за символов &nbsp. Как от этого избавиться? Когда-то я уже с этой проблемой сталкивался, и тогда решил её шерез css. Но получилось не красиво - ширина таблицы становилась строго фиксированной, и слова при этом разрывались и на половине переносились на другую строку. Короче фигня полная, но в принципе можно работать. Правда фиг его знает с каким браузером столкнёшься, об этом тоже подумать стоит. Так вот всётаки интересно, как эту проблему через perl решить?

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

Код

#!/usr/bin/perl -w use strict; # Там где стоят единицы, это пробелы ###########111###########1##11######111111111111111##############1######1111## my $str = "   Hi!!!\nThis is  a test               message.\nBye, bye...    "; my $max_space = 3;  # Максимально допустимое число пробелов (подряд) # Ну это ты знаешь, потому повторяться не буду $str =~ s/</&lt;/g; $str =~ s/>/&gt;/g; $str =~ s/\n/<br>/g; # Удаляем все пробелы вначале строки $str =~ s/^\s+//; # Удаляем все пробелы в конце строки $str =~ s/\s+$//; # Если встретим кол-во пробелов от $max_space и больше, меняем их все на три &nbsp; , но не более того $str =~ s/\s{$max_space,}/"&nbsp;" x $max_space/ego; # Если же есть пробелы от 1 до 2 включительно, то каждый из них меняем на # то же число &nbsp; $str =~ s/\s+/&nbsp;/g;

Заметь что там где было 2 пробела, так и вставилось 2  , там где был один пробел вставился 1  , а там где было 3 и более пробелов, они заменились только на 3  , если нужно сделать больше, то просто увеличь значение переменной $max_space.
Вообще не понятно, зачем ты меняешь пробелы на  ????
По нормальному нужно было бы обработать пробелы так:

Код

for ( $str ) {    s/^\s+//;    s/\s+$//;    s/\s+/ /g; }

Т.е. последним выражением, мы просто заменяем любое кол-во пробелов на 1 пробел, что вполне логично для текста в гостевой книге. Ну ладно, не буду тебя нагружать, сам решай как жить дальше.

Это сообщение отредактировал(а) korob2001 - 30.9.2005, 13:05

Короб, привет, спасибо за материал, почти всё усвоил . Ещё один вопрос. Если данная гостевушка будет подвергаться "массированным" атакам со стороны недображелателей. К примеру я засодил туда листов 40 текста - в результате получил полную кашу... Так вот, как думаешь, если ввести ещё одну переменную, к примеру $max_size, которая будет соответствовать длине сообщения. Пусть $max_size = 3000, т.е 3000 сиволов. Если не ошибаюсь, то в перле есть такая функция - length, которая считает колличество символов в сообщении, т.е:

Код

if(length($form_data{'el'} > $max_size){ #каким-то образом обрезать сообщение }

Не подскажешь, каким образом? $form_data{'el'} =~ s/\s{$max_size}//g; пробовал вот так - не подходит. И кстати, вот ещё что, тока заметил, ты не знаешь символ двоеточия? Ну в смысле как бы специальный сивол типа &lt или &nbsp? Иначе, если они проходят в теле сообщения.. - во дурдом! Вот походу почему каша получалась

Это сообщение отредактировал(а) Rezzonans - 1.10.2005, 16:28

Не понял, ты хочешь обрезать стороку или просто выдать юзеру сообщение о том, что нельзя вводить сообщение больше $max_size?????
Если первое, то можно и не делать проверки с условным операторо if, просто обрезай стороку и загоняй её в файл:

Код

#!/usr/bin/perl use strict; # Максимальное кол-во символов my $max_size = 17; my $str = "This is a message long"; $str = substr($str, 0, $max_size); print $str;

Если же нужно выдать клиенту сообщение о том, что нельзя отправлять сообщение больше $max_size символов, тогда нужна проверка, как ты и показал:

Код

if (length( $str ) > $max_size ) {      # Выдаём клиенту сообщение об ошибке } else {      # Записываем сообщение в базу или в файл }

Это сообщение отредактировал(а) korob2001 - 1.10.2005, 17:58

Ну конечно обрезать строку. Чёрт, мне же встречалась функция substr. Видимо всему виной моя невнимательность. Спасибо большое