VPF::подключание use IO::Socket к CGI скрипту

OutlawZ

Дата 13.6.2008, 22:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

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

Интересно можно ли подключить библиотеку IO::Socket к CGI скрипту, одни говорят можно другие говорят нельзя..приводили примеры но не работают(отписывались юзеры те кто пробовал), я бы сам бы проверил но не распологаю сервером с поддержкой Perl.

--------------------

arto

Дата 14.6.2008, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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

а какая проблема?

OutlawZ

Дата 14.6.2008, 00:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

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

Вот тока скачал Денвер и решил потестировать, в логах об ошибках пишет что не может толи найти толи открыть IO::Socket.pm, тестирова перл, написал скрипт для работы с irc сервером, работает но когда на CGI перевожу то сразу ошибка об IO::Socket;

Код


#!/usr/bin/perl
print "Content-Type: text/html\n\n";

use IO::Socket;


my $nick = "rootos";
my $ident = "rootos";
my $chanel = "#admins";

$socket = IO::Socket::INET->new(proto => "tcp", PeerPort => "6667", PeerAddr = "irc.codo-d.ru" );

$socket->send("NICK $nick", 0);
$socket->send("USER $ident localhost localhost :$nick\n", 0);
$socket->send("JOIN $chanel\n", 0);

while ($bot = <$socket>) 
{
 print ($bot);
 if( $bot =~ /^PING(.*)$/i )
 {
  $socket->("PING $1\n"); 
 }
}

Вот лог об ошибке:

Код


[Sat Jun 14 01:15:23 2008] [error] [client 127.0.0.1] Premature end of script headers: /home/localhost/cgi/run.cgi
[Sat Jun 14 01:15:23 2008] [error] [client 127.0.0.1] Can't locate IO/Socket.pm in @INC (@INC contains: .) at \\home\\LOCALH~1\\cgi\\run.cgi line 4.\n

--------------------

KSURi

Дата 14.6.2008, 01:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Советую вам почитать самые основы. Начните например с этого (раздел про подключение модулей).

ЗЫ: еще советую перевести текст ошибки)

Это сообщение отредактировал(а) KSURi - 14.6.2008, 01:41

--------------------

Died at Life.pl line 21

OutlawZ

Дата 14.6.2008, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

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

Дико извиняюсь, хых смешно...я просто на сервер денвера библиотеки не поставил smile

))) а так все работает, правда еще ошибки в коде который выше поправил ))))))))))) smile

--------------------

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