想用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代码： print "$total\n"; print "$totaln"; 结果就变成了这样，把\n变成了n。

问题一：在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...

:mrgreen: 活跃下气氛，也激发下同志们的学习兴趣，版主手下留情！

ATT.

公司的内部工作论坛，基本是perl开发的主题。有一些内部的工作成果。 还有一些任务可以做。 之前说过大家一起来完成任务，（http://bbs.chinaunix.net/viewthread.php?tid=1081769）因此现在开放出来。 对于很多人也许很有帮助，欢迎有能力的perl爱好者加入一同学习工作。 地址：http://groups.google.com/group/opener-com-work-team?hl=zh-CN 需要申请加入。 想要加入的朋友，请配合我们的工作（我们有管理的权限）。 1.资料...

跟咱们这个论坛类似的. 多谢了~~

结果不知道移到哪儿去了？ 汗～