Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ne ponimayu kakaya stroka koda mod_perl ne rabotae, perepisal kod s knigi 
:(
    Опции темы
olimpiada
  Дата 19.6.2010, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.6.2010

Репутация: нет
Всего: нет



Privet vsem,

Perepisal kod programki (mod_perl) s knigi. Apache u menya nastroena, drugie programki rabotayut a etot net. Zadayu http://localhost/cgidata2?name=John+Doe!&age=39 a browser otvechaet: Server error! The server encountered an internal error and was unable to complete your request. Either the server is overloaded or there was an error in a CGI script. If you think this is a server error, please contact the webmaster. Error 500
localhost
Sat Jun 19 22:37:54 2010
Apache/2.2.10 (Linux/SUSE) 

Ne mogu nayti istochnik oshibki... Pomogite pojaluysta novichku...

kod programki:
Код

package HandleCGIData2;
# file: HandleCGIData2.pm

# use statements, including
# our new Apache2::Request module
use strict;
use Apache2::Const ':common';
use Apache2::Request;

sub handler {
    # shift the argument and pass it into
    # the new() method in the Apache2::Request
    # class
    my $r = Apache2::Request->new(shift);

    # we can now call param() with the Apache2::Request
    # object in a similar way to using CGI.pm
    my $name = $r->param('name') || 'John Doe';
    my $age = $r->param('age') || '50';

    # set the content type and send the header

    $r->content_type('text/html');
    # $r->send_http_header();

    # print the HTML, including our variables
    # $name and $age
    $r->print(<<EOHTML);
        <html>
        <head>
        <title>Using Apache2::Request</title>
        </head>
        <body bgcolor="#ffffff">
        <h1>Using Apache2::Request</h1>
        name = $name<br>
        age = $age
        </body>
        </html>
    EOHTML

    return OK;
}

1;


Nastroyka na Apache2:
Код

<Location /cgidata2>
    SetHandler perl-script
    PerlResponseHandler HandleCGIData2
    </Location>

PM MAIL   Вверх
dva300
Дата 19.6.2010, 23:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 220
Регистрация: 17.2.2010
Где: Москва

Репутация: нет
Всего: 1



строка 39 - уберите пробелы перед EOHTML
--------------------
Участник движения Культура Вождения
PM   Вверх
klem4
Дата 21.6.2010, 06:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 100
Регистрация: 27.7.2008

Репутация: нет
Всего: 2



не то написал.

Это сообщение отредактировал(а) klem4 - 21.6.2010, 06:58
PM MAIL   Вверх
olimpiada
Дата 21.6.2010, 07:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.6.2010

Репутация: нет
Всего: нет



ubral probely pered EOHTML v stroke 39, no ne rabotaet...
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »


 




[ Время генерации скрипта: 0.0664 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.