Forum Webscript.Ru

Программирование => Perl => Тема начата: от 03 Июля 2001, 11:28:35

Название: Простой вопрос
Отправлено: от 03 Июля 2001, 11:28:35

Ребята помогите пожалуйста. Никогда не прежде не устанавливал скрипт на сервер, пользовался только локально под W32. Скрипт очень простой
и использует  LWP и  LWP::UserAgent;
Попробовал его на триподе, но пишет, что не найдет
этот модуль. Как его установить? Просто скопировать в cgi-bin все .pm файлы из libwww-perl-5.53.tar.gz или нужно как то инсталировать.
Спасибо.
=====================================
Dslft nfre. jib,re
It looks like there was an error:
Your script produced this error: Can\'t locate LWP/Simple.pm in @INC (@INC contains: .) at ./ns.pl line 36. BEGIN failed--compilation aborted at ./ns.pl line 36.
=====================================
Скрипт вот такой: выводит заголовки новостей...
=====================================
#!/usr/bin/perl
use LWP::Simple;
use LWP::UserAgent;
print "Content-type:text/html

";
print "

";
if ($ENV{\'QUERY_STRING\'} eq "aerospace" ||$ENV{\'QUERY_STRING\'} eq "automotive" || $ENV{\'QUERY_STRING\'} eq "business" || $ENV{\'QUERY_STRING\'} eq "entertainment" || $ENV{\'QUERY_STRING\'} eq "environment" || $ENV{\'QUERY_STRING\'} eq "health" || $ENV{\'QUERY_STRING\'} eq "international" || $ENV{\'QUERY_STRING\'} eq "sports" || $ENV{\'QUERY_STRING\'} eq "tech" || $ENV{\'QUERY_STRING\'} eq "us"){
$url = "http://www.maximumedge.com/cgi/news/$ENV{\'QUERY_STRING\'}.txt";
}
else {
$url = "http://www.maximumedge.com/cgi/news/top.txt";
}
my $ua = new LWP::UserAgent;
my $res = $ua->request(HTTP::Request->new(GET => $url));
my $content = $res->content;
@lines = split("
",$content);
foreach $line (@lines) {
@parts = split(/\\|/,$line);
print "
• $parts[1] $parts[2]
";
}
print "

";
========================================