#!/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();
为什么不给我发消息？
答案 0 :(得分：7)
您没有error checking。这样做，问题就很明显了。
答案 1 :(得分：1)
我是这个软件的原始作者，哇 - 惊讶它还在使用中......我多年没碰过它了..
简而言之，该软件使用Net :: Oscar，这是我多年前作为维护者接管的库，但是在与AOL（通过icqbot，而不是奥斯卡）提起诉讼之后......我失去了继续努力的愿望。我知道net :: oscar库仍然下载并使用多年，但我没有亲自维护它，我不知道是否有人分配我的工作.. icqbot软件本身运行在该库的顶部，所以只要它的方法有效..它会起作用..但我没有在年份更新icqbot ..
坦率地说，我很荣幸找到这个=）
答案 2 :(得分：0)
我很惊讶我，因为作者......没有得到任何东西，其他人得到了7 ..有趣的:)但严重的是库已经过时了，协议已经改变了......我不再维护软件了。我没兴趣回到它......
聚苯乙烯。另一个人是正确的，没有错误检查是一个坏主意..这是黑客如何发生..它只是草率的代码......没有冒犯，祝你好运......那里有's＆＃39; s其他方法来完成你想要的东西.. :)对我来说，这是一个结束AI聊天机器人的手段。