Не устаниавливается код на Perl

Вид для печати

17.08.2009, 19:24
biting

Не устаниавливается код на Perl

Добрый день.
Подскажите пожалуйста, почему не удается установить код на Perl.
Все сделал по инструкции. Папку создал, права выставил...
Но комменты с кодом так и не повляются.
Для проверки создаю Perl-файл с таким кодом:
#!/usr/bin/perl
use constant LINKFEED_USER => "...2a7ed420bd6c116372295";
use strict; #без него тож не пашет
require "$ENV{DOCUMENT_ROOT}/".LINKFEED_USER."/linkfeed.pm";
my $linkfeed_client = LinkFeed->new('user' => LINKFEED_USER);
print "Content-type: text/html; charset=windows-1251\n\n";
print '<HTML><HEAD></HEAD><BODY>';
print $linkfeed_client->return_links();

В чем дело?
17.08.2009, 21:10
covenant

Пока меня не было, ввели официальную поддержку перла. Честно скажу, еще не тестировал, проверьте все мелочи, чтобы по инструкции все было. Комменты не выводятся, код то находится системой?
17.08.2009, 23:25
biting

Мелочи проверял досканально.
Код системой соответсвенно тоже не находится, т.к. и я его визуально не вижу в результате html-кода perl скрипта.
Пути прописывал тоже полностью до модуля, вместо константы LINKFEED_USER и $ENV{DOCUMENT_ROOT} подставлял действительные значения.
Думал, что мож проделки хостера, но точно также пробовал на свой локальной машине, никакой код не появляется..
Если у кого работает, дайте плиз скрипт без всего лишнего.
27.08.2009, 06:39
sbiam

такая же проблема. код однозначно нерабочий. но допускаю, что может пригоден к каким-то специфическим узким настройкам сервера. у меня его запустить не удалось.
27.08.2009, 21:35
DriveEtoYa

Так у меня же тоже перл, и что теперь вроде норм я даже не помню что делал то.
28.08.2009, 09:15
biting

DriveEtoYa, скажи пожалуйста, а мой код(в первом посте) без всего лишнего у тебя работает, соответсвенно с твоим значением константы LINKFEED_USER ?
02.09.2009, 17:59
Comm

KarpovSergei, это чего Вы хотели сказать?
09.10.2009, 13:22
biting

Вообщем, рабочий мой код оказался.
Просто мой хостер запретил внешние соединения вообще к любым сайтам. Перенесли меня на новый сервак сразу всё заработало и Perl и PHP.
Вообщем, кто хочет проверить разрешениы ли ему внешние соединения можно проверить таким скриптом:
#!/usr/bin/perl
use LWP;
print "Content-type: text/html\n\n";
$url='www.linkfeed.ru';
if($url!~m/^http:\/\//i) { $url='http://'.$url; }
$text=giv_html($url); #получение html-кода документа
print "КОД СТРАНИЦЫ $url:<br>\n";
print $text;
exit(0);

sub giv_html
{
my $url=$_[0];
my $text='';
my $ua=LWP::UserAgent->new();
my $document;
$ua->agent("PerlUA/0.1");
$document=$ua->request(HTTP::Request->new(GET=>$url));
if ($document->is_success) {
$text=$document->content;
}
return $text;
}

Если linkfeed.ru отображается значит проблемы уже не из-за хостера..