以前php、perl、python论坛发帖量几乎都没超过两位数,有一段日子没来CU了,今天看到这个数字,令人欣喜! 希望有更多的人能加入perl的行列,即使不是以perl为职业,它也能成为你日常工作的工具。
想用perl做一个论坛发贴的程序,对方论坛是discuz 程序如下 [code] #!c:\perl\bin\perl.exe use LWP; use HTTP::Cookies; $tid = 161531; $message = 'dddddd'; $url = qq(http://www.dolc.de/forum/post.php?action=reply&fid=139&tid=$tid&replysubmit=yes); my $browser = LWP::UserAgent->;new; $browser->;cookie_jar({}); $browser->;agent('Mozilla/4.0 (compatible; MSIE 6.0; Windws NT 5.1)'); my $response = $b...
呵呵~~ 写得不好,只是来玩玩的 [code]#!/usr/bin/perl -w use LWP; use HTTP::Cookies; print "="x70; print "\n"; print "* 程序名:论坛自动回贴程序\n"; print "* 作 者:N3tl04d http://smboy.bokee.com\n"; print "* 日 期:2007-11-23\n"; print "="x70; print "\n"; if($#ARGV != 2){ print "用法:$0 论坛地址 论坛已注册用户名 密码\n"; print "如:$0 http://smboy.bokee.com n3tl04d 123456\n"; exit; } ...
问题一:在perl中怎样知道所用数据库中是否存在预先知道表名的表? 代码怎么写?我想 现判断有表吗?然后DROP掉 然后CREATE 问题二:怎样在perl中捕获异常 就像 JAVA 中的 TRY..CATCH一样 谢谢。
系统:win98+apache1.3 打开http://192.168.0.20/test.cgi总是提示: Forbidden You don't have permission to access /test.cgi on this server. -------------------------------------------------------------------------------- Apache/1.3.31 Server at localhost Port 80 请问如何解决? 我是按电脑报上面的一篇单机架设perl的文单调试的,里面的HTTPD。CONF是按他提供的设置来的。。。请问在架设perl高度环境时,APAC...
本帖最后由 fender0107401 于 2013-11-23 10:38 编辑 首先,可以看到,论坛建立的时间是相同的,都是05年。 其次,perl论坛的活跃程度明显高于Python论坛。 再次,Python论坛的主题比较少,并且,帖数/主题数 = 4.9 perl论坛的主题比较多,并且,帖数/主题数 = 6.73 换句话说,在Python论坛上发帖问问题,收到答复的可能性要低于在perl论坛上发帖。 ------------------------------------------------------------- 从...