Вниз  Вопросы по Perl
- 27.11.2011 / 14:16
абормот
  Пользователь

абормот 
Сейчас: Offline
подскажите почему ошибка 500
  1. #!/usr/bin/perl
  2.  
  3. use CGI::Carp qw(fatalsToBrowser);
  4. use LWP::UserAgent;
  5. use LWP::ConnCache;
  6. $ua = LWP::UserAgent->new;
  7. #удерживаем соединение
  8. $cache = $ua->conn_cache(LWP::ConnCache->new( ));
  9. #добавляем урл
  10. $url = ' http://какойто сайт ';
  11. #скачиваем страничку
  12.  
  13. $res = $ua->get($url,'Accept' => 'text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/ plain;q=0.8,image/png,*/*;q=0.5','Accept-Language' => 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3','Accept-Encoding'        => 'gzip,deflate','Accept-Charset'         =>'windows-1251,utf-8;q=0.7,*;q=0.7','Connection'             =>'keep-alive','Keep-Alive'             => '300','Cookie'                 =>'login=test','Cookie'                 =>'ps=pass',
  14. );
  15. #если все ништяк печатаем страницу
  16. if ($res->is_success) {
  17.    print $res->content;
  18. }
  19. #в случие облома пишем строку состаяния
  20. else {
  21.    print $res->status_line,"\n";
  22. }
:-(

Изменено абормот (27.11 / 14:19) (всего 1 раз)
- 27.11.2011 / 14:26
demiurg
  Пользователь

demiurg 
посмотри права папки и файла. Напиши в поддержку хостинга и узнай какие права надо ставить на папки и файлы,обычно 755,750,711
иногда такое бывает если есть отличия между версиями перла,или если это консольный скрипт,а ты его запускаешь через web.

Изменено demiurg (27.11 / 14:30) (всего 1 раз)
- 27.11.2011 / 14:34
абормот
  Пользователь

абормот 
Сейчас: Offline
demiurg, :-D 644 было теперь ошибка Software error: Unrecognized character
\xD0 at bot.cgi line 10.
- 27.11.2011 / 14:35
demiurg
  Пользователь

demiurg 
еще посмотри print $res->status_line,"\n"; если я точно помню должно быть print $res->status_line,"\r\n";
- 27.11.2011 / 14:39
demiurg
  Пользователь

demiurg 
на cgi скрипт на хостингах обычно ставят те права которые я написал,и как правило,но не всегда лежать должны в папке cgi-bin
на всякий случай проверь еще путь до перла на хостинге
- 27.11.2011 / 14:44
абормот
  Пользователь

абормот 
Сейчас: Offline
demiurg, там все проверено. Другой скрипт с редириктом работает. А с этим опять пять соток.
- 27.11.2011 / 16:21
абормот
  Пользователь

абормот 
Сейчас: Offline
все,разобрался. Работает.забыл написать print "Content-type: text/html\n\n"; :-D
- 27.11.2011 / 16:27
абормот
  Пользователь

абормот 
Сейчас: Offline
как избежать караказябров. На сервере вин1251 а через лвп принимаю ютф8 и лезут краказябры?
- 27.11.2011 / 18:17
абормот
  Пользователь

абормот 
Сейчас: Offline
  1. #Часть кода пропущена
  2. $res=$ENV{'QUERY_STRING'};
  3. $url= 'http://site.com/$res';
  4. #тут тоже часть кода пропущена
открывает индексную страницу. В чем я не прав?

Изменено абормот (27.11 / 18:18) (всего 2 раза)
- 27.11.2011 / 20:02
абормот
  Пользователь

абормот 
Сейчас: Offline
отбой нашел очепятку в коде.
Наверх  Всего сообщений: 12
Фильтровать сообщения
Поиск по теме