Показано с 1 по 8 из 8

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

  1. #1

    По умолчанию Не устаниавливается код на 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();

    В чем дело?

  2. #2
    Админ форума Аватар для covenant
    Регистрация
    19.12.2008
    Сообщений
    982

    По умолчанию

    Пока меня не было, ввели официальную поддержку перла. Честно скажу, еще не тестировал, проверьте все мелочи, чтобы по инструкции все было. Комменты не выводятся, код то находится системой?
    StrekHost.ru - просто хороший хостинг! Пользователям ЛФ, предоставим месяц бесплатно, пишите в личку.
    Правила форума! Их полезно знать.

    Мой блог!

  3. #3

    По умолчанию

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

  4. #4

    По умолчанию

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

  5. #5

  6. #6

    По умолчанию

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

  7. #7
    Опытный пользователь Аватар для Comm
    Регистрация
    06.08.2008
    Адрес
    Россия
    Сообщений
    2,530

    По умолчанию

    KarpovSergei, это чего Вы хотели сказать?
    Важно не то, как тебя зовут, а куда... Важно не куда тебя посылают, а как...
    Я лев. Мой гороскоп тута.

  8. #8

    По умолчанию

    Вообщем, рабочий мой код оказался.
    Просто мой хостер запретил внешние соединения вообще к любым сайтам. Перенесли меня на новый сервак сразу всё заработало и 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 отображается значит проблемы уже не из-за хостера..

Похожие темы

  1. Вопрос по Perl
    от trigger в разделе Установка кода биржи на различные движки
    Ответов: 1
    Последнее сообщение: 28.12.2009, 20:54
  2. Размещение кода на сайтах с поддержкой Perl.
    от sand в разделе Вопросы по работе системы
    Ответов: 0
    Последнее сообщение: 13.05.2008, 00:12

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •