perl помогите

[jenyavlg]

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

[Gorev]

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


eto dlya windows
v linux perl interpretator esti i tak

[jenyavlg]

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

[Vid0k]

WebIcqPro.class.php и .pl чуешь разницу?

[Kaimi]

Как то так:

<?
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]

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

[Kaimi]

Новая строка - новый анекдот

[jenyavlg]

а ну это хорошо

[jenyavlg]

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

[jenyavlg]

при запуске

[Gorev]

почитай мануалы .. иногда помогает
ну а если читать в лом..погугли..тоже вариант

[jenyavlg]

а где найти мануэл

[Zitt]

в бане...