Приветик Всем!
У меня имеется куча скриптов, в которых содержится вызов форм, их обработка, и т. д.
Причём один к примеру скрипт вываливает форму, проверяет данные уже другой, затем
вызывается третий он вываливает уже другую форму... Количество скриптов растёт, а на
фига енто мне надо?
Внимание вопрос:
Хочу как нибудь обьединить эти скрипты в один, скажем использовать их как функции,
только как мне принимать данные от клиента посредством POST к примеру?

Цитата

Хочу как нибудь обьединить эти скрипты в один, скажем использовать их как функции, только как мне принимать данные от клиента посредством POST к примеру?

Принимай с помощью модуля CGI, можно вообщето и в ручную, но модуль CGI надёжнее. Вот пример:

Код

#!/usr/bin/perl use strict; use CGI; my $cgi = new CGI; my $param1 = $cgi->param("param1"); print $cgi->header( -charset => 'Windows-1251' ); print $cgi->start_html; print $cgi->b( $param1 ); print $cgi->end_html;

Удачи.

Простите за назойливость, код работоспособный, огромное спасибо, не могли-бы Вы
мне обьяснить эту строку:

Код

print $cgi->b( $param1 );

в частности что эта за символ-> b?

Это сообщение отредактировал(а) korob2001 - 8.3.2005, 01:51

Строка:
print $cgi->b( $param1 );
Метод b, просто оборачивает строку в тэги <B>Строка</B>, т.е. получаем на выходе строку, которая написана полужирным шрифтом.

На самом деле, можно описать всю html страничку, только при промоши модуля CGI. Не используя в программе таких записай:
print "<center><font color='#ff0000'><b>Hello, world!</b></font></center>";
гораздо красивее так:
print $cgi->center( $cgi->font( { -color => '#ff0000' }, $cgi->b("Hello, world!") ) );
Хотя, может это только моё мнение.

Это сообщение отредактировал(а) korob2001 - 22.2.2005, 00:54

А я так обычно пишу

Код

$a = param('a');

Так ро моему логичнее и проще

Это сообщение отредактировал(а) korob2001 - 8.3.2005, 01:51

Цитата

Так ро моему логичнее и проще

;))))) Ну это уже кому как, мне например объектно ориентированный подход более по душе. Но можно конечно и так, только в таком случае нужно следить за пространством имён, да бы не было конфликта.

Всем огромное спасибо, буду про модуль искать мануал.

Ищи здесь:
http://forum.vingrad.ru/index.php?showtopic=1167
Спасибо админу.

1. Там уже качал, и как описывать html теги не видел.
2. И всё равно не получил того что хотел. Вот внизу пример имеется,
получается что как не выдавай форму(с помощью CGI.pm etc...)
все равно данные обрабатывать будет другой скрипт я не прав?


<form method="POST" action="http://localhost/cgi-bin/script.pl">

...


</form>

Вот, специально для тебя, набросал рабочий пример, простой, гостевой книги. В нём ты не увидешь ниодного HTML тэга, потому как эта программа написана на чистом CGI. Просто скопируй код ниже и сохрани его в файл с любым именем, толко расширение должно быть как у выполняемого файла, как правило .pl или .cgi. Затем можешь, не о чём не волнуясь, запустить его на выполнение через браузер и протестировать его, все необходимые, дополнительные файлы программа создаст сама. Вообще-то данный код получился немного объёмный, но это я сделал специально, что бы ты понял принцип программирования с помощью модуля CGI.pm. Особого контроля вводимой информации я не делал, так как суть была показать рабочий пример CGI.pm программы, а не её безопасность.
Вот код:

Код

#!/usr/bin/perl -w use strict; use CGI; use Fcntl qw( :flock ); my $file = "messages.txt"; my $cgi = new CGI; sub start_lock {    open( BLOCK, ">> lock_file.sem" ) or die $!;    flock( BLOCK, LOCK_EX ); } sub stop_lock {    close( BLOCK ); } sub show_form {    print $cgi->start_html( -title => 'Гостевая книга' ),          $cgi->start_center,          $cgi->start_form(),          $cgi->table( { -width => 400,                         -border => 1,                         -cellpadding => 5,                         -cellspacing => 0 },             $cgi->Tr( [                $cgi->td( { -align => 'center',                            -bgcolor => '#555555',                            -colspan => 2 },                    $cgi->font( { -color => '#ffffff',                                  -size => '+12' },                        $cgi->b("Гостевая книга"),                    ),                ),             ] ),             $cgi->Tr( [               $cgi->td( { -align => 'left' }, [                        $cgi->b("Ваше имя:"),                        $cgi->textfield( -name => 'name',                                         -size => 35,                                         -override => 1 ),               ] ),             ] ),             $cgi->Tr( [               $cgi->td( { -align => 'left' }, [                        $cgi->b("Ваша фамилия:"),                        $cgi->textfield( -name => 'family',                                         -size => 35,                                         -override => 1 ),               ] ),             ] ),             $cgi->Tr( [               $cgi->td( { -align => 'left',                           -valign => 'top' }, [                        $cgi->b("Сообщение:"),                        $cgi->textarea( -name => 'mess',                                        -rows => 5,                                        -cols => 30,                                        -override => 1),               ] ),             ] ),             $cgi->Tr( [               $cgi->td( { -align => 'center',                           -bgcolor => '#555555',                           -colspan => 2 },                        $cgi->submit( -name => 'send',                                      -value => 'Отправить' ),                        $cgi->reset( -value => 'Очистить' ),               ),             ] ),          ),          $cgi->end_form(),          $cgi->br(), $cgi->br();          if ( -e $file ) {               open( F, "< $file" ) or die $!;                while ( <F> ) {                   my( $name, $family, $mess, $tm ) = split("µ");                   print $cgi->table( { -width => 400,                                        -cellpadding => 5,                                        -cellspacing => 0,                                        -border => 1 },                              $cgi->Tr( [                                  $cgi->td( { -width => '100%',                                              -align => 'left',                                              -bgcolor => '#555555' },                                      $cgi->b( { -style => "color: #ffffff" }, "$family $name"),                                  ),                              ] ),                              $cgi->Tr( [                                  $cgi->td( { -width => '100%',                                              -align => 'left',                                              -bgcolor => '#cccccc' },                                      $cgi->b( $mess ),                                  ),                              ] ),                              $cgi->Tr( [                                  $cgi->td( { -width => '100%',                                              -align => 'left',                                              -bgcolor => '#555555' },                                      $cgi->b( { -style => "color: #ffffff" }, $tm ),                                  ),                              ] ),                         ),                         $cgi->br, $cgi->br;                }             close( F );          }          print $cgi->end_center,                $cgi->end_html; } sub add_mess {    my $name = $cgi->param('name');    my $family = $cgi->param('family');    my $mess = $cgi->param('mess');    my $tm = localtime;    $mess =~ s/\n/$cgi->br/eg;    # Делаем не большую обработку информации    for ( $name, $family, $mess ) {          s/^\s+//;          s/\s+$//;          s/\s+/ /g;          s/µ//g;    }    unless ( $name or $family ) {             $name = "пользователь";             $family = "Анонимный";    }    start_lock;    open( F, ">> $file" ) or die $!;      print F "${name}µ${family}µ${mess}µ${tm}\n";    close ( F );    stop_lock; } print $cgi->header( -charset => 'Windows-1251' ); unless ( $cgi->param('send') eq 'Отправить' ) {         show_form; } else {         add_mess;         show_form; }

Если возникнут вопросы, пиши сюда. Постараюсь пояснить.
Удачи.

Это сообщение отредактировал(а) korob2001 - 21.12.2005, 00:27

korob2001
можешь объяснить 2 момента:

Код

for ( $name, $family, $name ) {         s/^\s+//;         s/\s+$//;         s/\s+/ /g;         s/µ//g;   }

и

Код

unless ( $name or $family ) {            $name = "пользователь";            $family = "Анонимный";   }

Opr

Код

for ( $name, $family, $name ) {        s/^\s+//;        s/\s+$//;        s/\s+/ /g;        s/µ//g;  }

поочередно каждая из переменных $name, $family и $name чистится от пробелов в начале, конце, последовательности из нескольких пробелов заменяются на 1 пробел, а символ µ удаляется...

хотя зачем 2 раза $name... видимо просто описка...

Код

unless ( $name or $family ) {           $name = "пользователь";           $family = "Анонимный";  }

если не заданы переменные $name и $family - то им присваюваются значения.

unless ( $name or $family ) - то же самое, что и if ( !$name and !$family )

Opr - GoodBoy уже ответил на твои вопросы, я опоздал. ;))))

GoodBoy - точно я 2 раза указал переменную $name, на самом деле я имел ввиду перменную $mess на месте второй переменной $name. Уже исправил.

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

А, и

Код

use Fcntl qw( :flock );

это для работы с файлами?

Цитата

это для работы с файлами?

Да, это для того, что бы блокировать файл при открытии для записи. Используется здесь:

Код

sub start_lock {   open( BLOCK, ">> lock_file.sem" ) or die $!;   flock( BLOCK, LOCK_EX ); } sub stop_lock {   close( BLOCK ); }

если нужно заблокировать файл, делаем там:

Код

start_lock;    # Блокируем файл # ЗДЕСЬ ОТКРЫВАЕМ ФАЙЛ # Делаем запись # ЗАКРЫВАЕМ ФАЙЛ stop_lock;    # Разблокируем файл

Можно было бы сделать это и в ручную, но лично я предпочитаю юзать модуль Fcntl, тем более он входит в стандартный пакет Perl.

Это сообщение отредактировал(а) korob2001 - 26.2.2005, 16:41