Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   perl помогите (https://forum.antichat.xyz/showthread.php?t=75932)

jenyavlg 04.07.2008 00:59
perl помогите
 
если я не ошибаюсь то этот файл XXX.pl это перл скрипт ,,
я не умею запускать перл скрипты может кто поможет

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


eto dlya windows
v linux perl interpretator esti i tak

jenyavlg 04.07.2008 01:03
и ещё одно как создать icq бота на для анекдот типа посылаешь сообщение !anekdot он выдаёт случайный из базы если можно то из какого нибудь текстового файла типа base.txt может кто знает (лучше на классе WebIcqPro.class.php-

Vid0k 04.07.2008 01:24
WebIcqPro.class.php и .pl чуешь разницу?

Kaimi 04.07.2008 01:26
Как то так:
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)]);
            }
        
}
?>

jenyavlg 04.07.2008 01:34
а как в anek.txt должны делится анекдоты а то мне всё сразу пришлёт

Kaimi 04.07.2008 01:35
Новая строка - новый анекдот

jenyavlg 04.07.2008 01:39
а ну это хорошо

jenyavlg 04.07.2008 01:46
on у меня не пашет пишет ошибку login.icq.com:порт time out

jenyavlg 04.07.2008 01:47
при запуске


Время: 01:19
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице