用LWP的UserAgent的get方法下载UTF-8页面时报出警告的处理方法

July 13th, 2008 by 新杰

用LWP的UserAgent的get方法下载UTF-8页面时,
my $browser = LWP::UserAgent->new;
my $response = $browser->get( $url ...);
报出警告:
Parsing of undecoded UTF-8 will give garbage when decoding entities at C:/Perl/site/lib/LWP/Protocol.pm line 137.
Read the rest of this entry »

无需组件或模块用纯文本生成Excel文件的方法

June 9th, 2008 by 新杰

近日研究了一下asp.net生成excel的方法,都挺麻烦。尤其是对于复杂的表格,并非一般datagrid就能搞定。这次的目标是用程序生成复杂表格,用数据库里的数据在表格的指定位置填充。经考虑采用了这样的方法,无需组件或模块,只用纯文本函数即可。

Read the rest of this entry »

Flash8的FLVPlayback组件中提示点时间设的大了些 就无法正常添加提示点的可能原因

May 23rd, 2008 by 新杰

近日在用Flash8做Flv播放器,涉及到字幕的加载。在调试的时候,发现对于添加的提示点,如果提示点时间设的大了些,就无法正常添加提示点,最后导致异常。经过仔细检查,找到了答案。 Read the rest of this entry »

用Perl2Exe导出exe程序时,包含所需模块的方法。

April 20th, 2008 by 新杰

用Perl2Exe导出exe程序时,如果需要包含一些模块,而又没有在pl里指定,可能会报错。
如本例报了一个没有包含mysql模块的错误:
install_driver(mysql) failed:
PLEASE SEE THE PERL2EXE USER MANUAL UNDER "Can't locate somemodule.pm in @INC" FOR AN EXPLANATION OF THE FOLLOWING MESSAGE:
Can't locate DBD/mysql.pm in @INC (@INC contains: PERL2EXE_STORAGE filepath tmppath/p2xtmp-5444) at (eval 4) line n.

Read the rest of this entry »

使用Perl的Spreadsheet:: WriteExcel模块生成Excel文件

April 15th, 2008 by 新杰

工作上有时候需要生成Excel文件,不过用OLE速度太慢。试着用了Perl的Spreadsheet::WriteExcel模块来生成Excel文件,不但生成的文件的速度非常快,生成的文件也非常小,很好用。

主要代码:
use Spreadsheet::WriteExcel;#声明调用模块
my $workbook = Spreadsheet::WriteExcel->new("filename.xls");#创建一个新文件
my $worksheet = $workbook->add_worksheet("sheetname");#创建一个工作表
$worksheet->write($i, $j, $cellcontent);#在从0起数的第i行第j列的单元格填入$cellcontent
$workbook->close();#关闭文件