Net::OICQ 1.3 版

skrypto

New features:
改用Module::Build安装模块。
新加入win32qq给ActiveState Perl用户使用。本人首创命令行式GUI。

在cpan shell下直接安装:
$ perl -MCPAN -e shell
cpan> install Net::OICQ

http://sourceforge.net/projects/perl-oicq

兰花仙子

原帖由 skrypto 于 2007-2-7 23:21 发表
New features:
改用Module::Build安装模块。
新加入win32qq给ActiveState Perl用户使用。本人首创命令行式GUI。

在cpan shell下直接安装:
$ perl -MCPAN -e shell
cpan> install Net::OICQ

[url]htt ...

不错,偶PF给CPAN奉献模块的大侠.
比那些飞得比什么高的人强多了.

skrypto

多谢楼上鼓励，偶以后就在这里混拉。

dajun

你以前是在bbs.perlchina.org混来的吧? 你真厉害，支持新协议了？  魔高一尺，道高一丈  haha

flw

佩服楼主啊！

flw

我刚才试着安装了一下，
我是手工下载并安装的（讨厌 CPAN 那一套缓存），
在执行 Makefile.PL 时，说 OICQ.pm 找不到，于是我就修改了一下 Makefile.PL
把

1. WriteMakefile(
   
2.     'NAME'                => 'Net::OICQ',
   
3.     'VERSION_FROM'        => 'lib/Net/OICQ.pm', # finds $VERSION       # <<<<<<<
   
4.     'PREREQ_PM'                => {Crypt::OICQ     => 1.0,
   
5.                             Digest::MD5     => 0.1,
   
6.                             IO::Select      => 0.1,
   
7.                             Term::ANSIColor => 0.1,
   
8.                                 Term::ReadKey   => 0,
   
9.                             },
   
10.     ($] >= 5.005 ?    ## Add these new keywords supported since 5.005
    
11.       (ABSTRACT_FROM => 'lib/Net/OICQ.pm', # retrieve abstract from module   # <<<<<<<<
    
12.        AUTHOR     => 'Shufeng Tan <shufengtan@gmail.com>') : ()),
    
13.     'LIBS'                => [''],
    
14.     'DEFINE'                => '',
    
15.     'INC'                => '-I.',
    
16. );

复制代码

把两处涉及到 OICQ.pm 的地方修改了一下就好了，
刚用了一下，很好用。

flw

1. ------------------------- Friends List -------------------------
   
2. 1.  xxxxxxxxx    0    0  82-1 : 肉球             00000000
   
3. 2.  xxxxxxxxx    0    0  80-1 : 绿色擦           00800242
   
4. 3.  xxxxxxxxx    0   13   5-1 : flw              00000000
   
5. 4.  xxxxxxxxx    0   26  52-1 : 寒冰             00000002
   
6. 5.  xxxxxxxxx    0   29  33-1 : 小豆             00800000
   
7. 6.  xxxxxxxxx    1   30  26-1 : 闲云野鹤         00000040
   
8. 7.  xxxxxxxxx    1   27  12-1 : 乐乐             00000200
   
9. 8.  xxxxxxxxx    1   20   1-1 : 随缘             00000200
   
10. =================================================================
    
11. Id        Nickname     Address              Mode
    
12. --------- ------------ -------------------- ----
    
13. xxxxxxxxx flw                               10
    
14. ================================================
    
15. Retrieved info about self 23753483.
    
16. System message from 10000: garbage from 10000
    
17. (╭︿︿︿╮ 　 　　　　　　　　　　　     ╭︿︿︿╮
    
18. 
    
19. {/ ︿︿ /}　  金猪年领养QQ宠物伙伴猪猪   {/ ︿︿ /}
    
20. 
    
21. ( (oo) ) 　   充值即送，赶快来抢吧！     ( (oo) )
    
22. 
    
23.   ︶︶︶ 　　　　  　　　　　　　　　 　   ︶︶︶
    
24.   http://pro.qq.com/?PushID=1363&MsgInfoID=3666)
    
25. System message from 10000: garbage from 10000
    
26. (新年有好礼不断！
    
27. 
    
28. 
    
29. 
    
30. 数码大奖等你拿！
    
31. 
    
32. 
    
33. 
    
34. 上传照片，即可赢取强生舒澈酷炫数码大奖！
    
35.   http://pro.qq.com/?PushID=1112&MsgInfoID=3668)
    
36. 09:57:14 0, 0, 15846820, 211.151.95.165, 8979, 60
    
37. 
    
38. 09:58:14 0, 0, 15923329, 211.151.95.165, 8979, 60
    
39. 
    

复制代码

[ 本帖最后由 flw 于 2007-2-8 10:01 编辑 ]

helbreathszw

我给楼主做了2个RPM包（给linxu用）
并做了一个win32qq.exe在windows用，因为这边上传有限制，所以只能给大家看图了
因为先装Crypt-OICQ
然后装Net-OICQ( linux下的Win32::GUI没得法，只能rpm -ivh -nodeps)
最底下附件的就是俺做的RPM包
我怕冲突定制在export PERL5LIB=/usr/local/lib/perl5/site_perl/5.8.5，
加载了export PERL5LIB=/usr/local/lib/perl5/site_perl/5.8.5
就能运行了
[root@centosmysql3 bin]# rpm -ql Net-OICQ
/usr/local/bin
/usr/local/bin/demo1
/usr/local/bin/qq
/usr/local/bin/win32qq
/usr/local/lib
/usr/local/lib/perl5
/usr/local/lib/perl5/site_perl
/usr/local/lib/perl5/site_perl/5.8.5
/usr/local/lib/perl5/site_perl/5.8.5/Net
/usr/local/lib/perl5/site_perl/5.8.5/Net/OICQ
/usr/local/lib/perl5/site_perl/5.8.5/Net/OICQ.pm
/usr/local/lib/perl5/site_perl/5.8.5/Net/OICQ/ClientEvent.pm
/usr/local/lib/perl5/site_perl/5.8.5/Net/OICQ/Event.pm
/usr/local/lib/perl5/site_perl/5.8.5/Net/OICQ/ServerEvent.pm
/usr/local/lib/perl5/site_perl/5.8.5/Net/OICQ/TextConsole.pm
/usr/local/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/local/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto
/usr/local/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Net
/usr/local/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Net/OICQ
/usr/local/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Net/OICQ/.packlist
/usr/local/share/doc/Net-OICQ-1.3
/usr/local/share/doc/Net-OICQ-1.3/README
/usr/local/share/man
/usr/local/share/man/man3
/usr/local/share/man/man3/Net::OICQ.3pm

有需要的尽管拿去。

[ 本帖最后由 helbreathszw 于 2007-2-8 23:49 编辑 ]

flw

原帖由 helbreathszw 于 2007-2-8 10:18 发表

去见识见识什么叫做perl的AI

我只想说两点：
1，楼主给的程序，和 Perl 的 AI 一点关系都没有。楼主也没有说他的 Net::OICQ 和 AI 有什么关系。
2，你说的那个 openkore，我去年这会儿的时候看过了，也学习过了。如果你愿意交流，我们可以具体一点，谈谈这个程序在写作时的思想和技巧，我们不要高来高去，跟卧虎藏龙似的，好吗？

dajun

我make的时候出错了：

1. Net-OICQ-1.3]# make
   
2. cp lib/Net/OICQ/ServerEvent.pm blib/lib/Net/OICQ/ServerEvent.pm
   
3. cp lib/Net/OICQ.pm blib/lib/Net/OICQ.pm
   
4. cp lib/Net/OICQ/TextConsole.pm blib/lib/Net/OICQ/TextConsole.pm
   
5. cp lib/Net/OICQ/ClientEvent.pm blib/lib/Net/OICQ/ClientEvent.pm
   
6. cp lib/Net/OICQ/Event.pm blib/lib/Net/OICQ/Event.pm
   
7. Manifying blib/man3/Net::OICQ.3pm
   
8. /usr/bin/perl "-Iblib/arch" "-Iblib/lib" Build.PL Build
   
9. Too early to specify a build action 'Build'.  Do 'Build Build' instead.
   
10. make: *** [Build] Error 2
    

复制代码

demo1也有点问题：
Message from 116858065:
Hello Thu Feb  8 11:35:02 2007=========== Event Queue =========
Can't locate object method "dump_event_queue" via package "Net::OICQ" at ./demo1 line 113, <STDIN> line 1.


而且和以前的版本一样，需要把人名里的换行去掉  
------------------------- Friends List -------------------------
Newline in left-justified string for sprintf at ../lib/Net/OICQ/TextConsole.pm line 410.

最好能和字符gui脱离（然后方便我们做成bot ^_^，以前打算这样作，可是qq协议老是变:em12:）

[ 本帖最后由 dajun 于 2007-2-8 11:42 编辑 ]