为什么ICQ bot不发送消息？

Question

#!/usr/bin/perl
use Net::OSCAR qw(:standard);
$uin="7777777"; 
$password="1234567";
$sender = "43214312";
$text = "test";
$oscar = Net::OSCAR -> new();
$oscar -> signon($uin, $password);
$oscar -> send_im($sender, $text);
$oscar -> signoff();

为什么不给我发消息呢？

Answer 1

你不做任何error checking。这样做，问题就会变得显而易见。

Answer 2

我是这个软件的原始作者，哇-很惊讶它还在使用中。我已经很多年没碰过它了..

简而言之，该软件使用的是Net::Oscar，这是我多年前作为维护者接管的一个库，但在与AOL (针对icqbot，而不是oscar )的诉讼之后。我失去了在这两个项目上工作的欲望..我知道net::oscar库在几年后仍然被下载和使用，但我没有亲自维护它，我不知道是否有人从我的工作中分叉出来。icqbot软件本身运行在该库之上，所以只要它的方法工作。它会工作的..但是我已经很多年没有更新icqbot了..

坦率地说，我很荣幸找到了这个=)

Answer 3

我很惊讶作为作者的我..一无所获，而其他人得到了7 ..有趣:)但说真的，这个库已经非常过时了，而且协议已经改变了..我不再维护这个软件了。我不想再回去了……

Ps。另一个人是对的，没有错误检查是一个坏主意..这就是黑客发生的原因..只是草率的代码..。无意冒犯祝你好运..。现在还有其他方法可以实现你想要的东西..:)对我来说，这是AI聊天机器人达到目的的一种手段。

• Lonnie Waugh