随笔分类 -  perl

摘要:LoadModule cgid_module modules/mod_cgid.so AddHandler cgi-script .cgi .pl ScriptAlias /perl/ "/opt/case/duote.net/script/perl/" Options ExecCGI SetHandler cgi-script 进入apache的安装目录 chmod 755 logs... 阅读全文

posted @ 2007-08-13 12:00 古代 阅读(1954) 评论(0) 推荐(0)

摘要:perl的垃圾回收机制简直是不堪忍受,undef根本释放不了内存 选perl来上传真是我最近做的最大的错误决定了。 本指望mod_perl会有效提高处理的并发数量,没成想一会儿内存就到90%了。 还望有意采用perl上传的兄弟引以为戒啊。 阅读全文

posted @ 2007-06-04 11:10 古代 阅读(298) 评论(0) 推荐(0)

摘要:use CGI; use CGI qw/:standard/; use Digest::MD5 qw(md5_hex); my $query = CGI->new(\&hook,$PREF_logfh); my $filename = $query->param('uploadname'); ($filename,$file_ext) = ($filename =~ /(.*)\.(.+)... 阅读全文

posted @ 2007-04-25 14:52 古代 阅读(670) 评论(0) 推荐(0)

摘要:use HTTP::Request; use LWP::UserAgent; my $url = "http://".$PREF{webServer}."/index.php?act=upload&task=checkMd5&md5=".$md5."&id=".$PREF{uploadid}; my $ua = LWP::UserAgent->new; my $req = new ... 阅读全文

posted @ 2007-04-25 14:52 古代 阅读(424) 评论(0) 推荐(0)

摘要:这样 use URI::Escape; print "Content-type: text/html;charset=gbk\n\n"; $str = "+ \ /"; $url = uri_escape($str); print $url; 阅读全文

posted @ 2007-04-12 17:45 古代 阅读(721) 评论(0) 推荐(0)

摘要:最早的似乎是mega upload,2004年停止了开发,它的最新版有一个致命bug,不过我修补了它。 最无耻的是tesupload,同样是开源项目,直接照抄mega upload , 重新组织修改了外围的界面 它照搬mega upload, 所以和mega upload有一个同样致命的bug. 最简单是?呵呵,网上找到一段不带进度条的程序,只是它直接上传,没有进行限制cpu时间的处理 所以局域网... 阅读全文

posted @ 2007-03-08 16:27 古代 阅读(1236) 评论(1) 推荐(0)

摘要:老夫费劲心机,苦学perl,终于解决了此问题,此文大概为目前互联网上唯一能找到的唯一解决方案(至少就我自己几天猛搜的结果看来!),哈哈。 阅读全文

posted @ 2007-03-07 17:46 古代 阅读(935) 评论(0) 推荐(0)

摘要:调试Perl CGI程序 日期:2001年7月17日 PerlMonth/Jeff Boes ——(译者注:本文译自PerlMonth—www.perlmonth.com,作者很幽默,但是有些语言我也翻译不出精髓,如果你读得不通或者觉得翻译的与你所理解的有所不同,可以查看原文——http://www.perlmonth.com/columns/begin/begin.ht... 阅读全文

posted @ 2007-03-05 13:31 古代 阅读(421) 评论(0) 推荐(0)