|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Oleg Evdokimov 2:5029/45 28 Mar 2003 23:35:43
To : All
Subject : Почему не работает скрипт?
--------------------------------------------------------------------------------
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#!/usr/local/bin/perl
use LWP::Simple; # Подключаем модуль
#####Почта######
$url='http://zabot.net/hscope/daily/aquarius-tod.html'; # Переменная с URL
страницы
@line=get($url); # Считываем страницу в переменную @line
($text,$text1) = split("<td width=84% valign=top><!--
MC2//-->",@line[$FORM{id}]); #выделяем строки гороскопа
($text2,$text3) = split("<td align=right width=10%
nowrap> </td>",$text1); # фильтруем на мусор гороскоп
($text4,$text5) = split("<td aling=left width=10% nowrap> </td>",$text3); #
фильтруем на мусор гороскоп
($text6,$text7) = split("<td><p>",$text4); # фильтруем на мусор гороскоп
($text8,$text9) = split("<td><p>",$text7); # фильтруем на мусор гороскоп
print $text8;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Локально все работает, на сервере вылетает со следующими ошибками:
[Fri Mar 28 08:41:02 2003] [error] [client 211.30.190.130] Premature end of
script headers: /pub/home/cgi-bin/smslist2.pl
failed to open log file
fopen: Permission denied
[Fri Mar 28 08:41:05 2003] [error] [client 211.30.190.130] Premature end of
script headers: /pub/home/cgi-bin/smslist2.pl
С наилучшими пожеланиями, Олег Евдокимов.
ICQ: 125996629 mailto: spions<at>softstyle.ru http://www.SoftStyle.ru
---
* Origin: ---==_/*SpionsBBS*/_==--- (2:5029/45)
Вернуться к списку тем, сортированных по:
|
