HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
Перезагрузить страницу perl помогите
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

perl помогите
  #1  
Старый 04.07.2008, 00:59
jenyavlg
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
С нами: 9848511

Репутация: 39
Question perl помогите
если я не ошибаюсь то этот файл XXX.pl это перл скрипт ,,
я не умею запускать перл скрипты может кто поможет
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 04.07.2008, 01:02
Gorev
Познавший АНТИЧАТ
Регистрация: 31.03.2006
Сообщений: 1,167
С нами: 10585560

Репутация: 1550


По умолчанию
скачай с офф сайта актив перл..установи... в кмд пишешь
c:\perl exploit.pl
http://www.activestate.com/Products/activeperl/index.mhtml


eto dlya windows
v linux perl interpretator esti i tak
Последний раз редактировалось Gorev; 04.07.2008 в 01:05..
 
Ответить с цитированием

  #3  
Старый 04.07.2008, 01:03
jenyavlg
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
С нами: 9848511

Репутация: 39
По умолчанию
и ещё одно как создать icq бота на для анекдот типа посылаешь сообщение !anekdot он выдаёт случайный из базы если можно то из какого нибудь текстового файла типа base.txt может кто знает (лучше на классе WebIcqPro.class.php-
 
Ответить с цитированием

  #4  
Старый 04.07.2008, 01:24
Vid0k
Постоянный
Регистрация: 24.12.2007
Сообщений: 574
С нами: 9674246

Репутация: 316


По умолчанию
WebIcqPro.class.php и .pl чуешь разницу?
 
Ответить с цитированием

  #5  
Старый 04.07.2008, 01:26
Kaimi
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
С нами: 9851426

Репутация: 1676


По умолчанию
Как то так:
PHP код:
<?
set_time_limit(0);
require_once('WebIcqPro.class.php');

$file     = 'anek.txt';
$icq     = new WebIcqPro();
$uin     = 1234567;
$pwd     = 123456;


$anek = file($file);

if($icq->connect($uin,$pwd)) { echo "Connected";}
else { echo $icq->error; exit();}

while($icq->isConnected()) {
        $msg = $icq->readMessage();
        
        if(preg_match('/!anekdot/', $msg['message'], $trash))
            {
            $icq->sendMessage($msg['from'], $anek[rand(0,sizeof($anek)-1)]);
            }
        
}
?>
 
Ответить с цитированием

  #6  
Старый 04.07.2008, 01:34
jenyavlg
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
С нами: 9848511

Репутация: 39
По умолчанию
а как в anek.txt должны делится анекдоты а то мне всё сразу пришлёт
 
Ответить с цитированием

  #7  
Старый 04.07.2008, 01:35
Kaimi
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
С нами: 9851426

Репутация: 1676


По умолчанию
Новая строка - новый анекдот
 
Ответить с цитированием

  #8  
Старый 04.07.2008, 01:39
jenyavlg
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
С нами: 9848511

Репутация: 39
По умолчанию
а ну это хорошо
 
Ответить с цитированием

  #9  
Старый 04.07.2008, 01:46
jenyavlg
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
С нами: 9848511

Репутация: 39
По умолчанию
on у меня не пашет пишет ошибку login.icq.com:порт time out
 
Ответить с цитированием

  #10  
Старый 04.07.2008, 01:47
jenyavlg
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
С нами: 9848511

Репутация: 39
По умолчанию
при запуске
 
Ответить с цитированием
Ответ
Страница 1 из 2 1 2 >



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
BookS: PHP, PERL, MySQL, JavaScript, HTML, ajax, Веб Дизайн M1nK0 PHP 10 27.06.2009 21:35
Помогите запустить VKontakte checker на PERL. MaTpOc PHP 28 25.06.2008 13:45
помогите с perl stalles Уязвимости CMS / форумов 2 04.11.2005 15:06
Books Perl FRAGNATIC PHP 0 11.08.2005 16:58
Помогите найти книги по php и perl SanyaX PHP 2 06.07.2005 08:00



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.