12.07.2007, 18:51
|
|
Участник форума
Регистрация: 31.08.2006
Сообщений: 149
С нами:
10365076
Репутация:
155
|
|
Такая проблема...
решил сделать Icq бот на Perl'е
посмотрел рунет, нашел сорс скрипта...
http://www.security-teams.net/board/index.php?showtopic=4435
и возник такой вопрос в обработке входящих данных с другого номера icq:
PHP код:
sub message_callback {
local($cmd, $params, $result);
local $result = "";
local($client, $uin, $msg) = @_;
if(($cmd, $params) = $msg =~ /^\!([^\ ]+) (.+)$/)
{
$result = exists($functions{$cmd}) ? $functions{$cmd}($params) : "";
$client->send_im($uin, $result) if $result;
}
}
В этом скрипте у меня два параметра, тоесть, боту вводишь например !weather Москва,
Но мне нужно что бы вводилось три и более параметров...
Основная проблема у меня в
PHP код:
if(($cmd, $params) = $msg =~ /^\!(+) (.+)$/)
Так как я только начинаю в программировании, еще плохо разбираюсь, получилось примерно такое:
PHP код:
if(($cmd, $params1, $params2) = $msg =~ /^\!([^\ ]+) (.+) (.+)$/)
{
$result = exists($functions{$cmd}) ? $functions{$cmd}($params1) : $functions{$cmd}($params2);
$client->send_im($uin, $result) if $result; sleep(10);
}
Помогите плз сделать третий и более параметр (пример: !weather Россия Москва) |
|
|