0 
#!/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();

なぜ私にメッセージを送らないのですか？

4

3 に答える 3

7

エラーチェックは行いません。そうすれば、問題は明白になります。

于 2011-04-11T11:07:17.930 に答える
1

私はこのソフトウェアの最初の作成者です。うわー、まだ使用されていることに驚きました..私は何年もそれに触れていません..

要するに、このソフトウェアは私が何年も前にメンテナーとして引き継いだライブラリである Net::Oscar を使用していますが、AOL との訴訟の後 (oscar ではなく icqbot をめぐって) .. どちらかで作業したいという欲求を失いました.. 私は知っていますnet::oscar ライブラリはまだダウンロードされ、その後何年も使用されていましたが、私は個人的にそれを維持しておらず、誰かが私の作品から分岐したかどうかもわかりません..icqbot ソフトウェア自体はそのライブラリの上で実行されます。メソッドが機能する限り..機能します..しかし、私は何年もicqbotを更新していません..

率直に言って、私はこれを見つけたことを光栄に思います =)

于 2012-04-21T19:45:36.533 に答える