- 博客(8)
- 收藏
- 关注
转载 修改桌面快捷方式
BOOL CheckShortcut(LPCTSTR lpFileLink){IShellLink *pLink = NULL;IPersistFile *ppf = NULL;BOOL bFind = FALSE;...
2010-07-06 10:05:41
86
转载 Python遍历目录
1、os.walk2、os.path.walk3、递归#!/usr/bin/env pythonimport osallf1 = []alld1 = []def visitDir1(path): ...
2010-06-10 15:28:07
147
转载 perl读压缩文件与一般文件
sub open_zip_file{my $path = $_[0];my $filename = $_[1];my $gzh;if ( $filename =~ /\.csv/ ){#一般文件open($g...
2010-06-10 14:52:09
206
转载 perl判断某个打开的文件是否匹配某模式
sub is_pattern_data_zip_file{ my ($gzh, $pattern) = @_; my $temp; #read the entire file { loc...
2010-06-10 14:51:11
152
转载 perl读写excel文档
use Spreadsheet::WriteExcel;#用于写exceluse Spreadsheet::ParseExcel;#用于读excelmy ($sec,$min,$hour,$mday,$mon,$year...
2010-06-10 14:49:35
142
转载 perl cgi页面基本框架
#!/usr/bin/perlprint "Content-type: text/html; charset=utf-8\n\n";print "";print "*******";print "**************...
2010-06-10 14:48:29
172
转载 perl数据库操作
use Mysql;my $dbh = Mysql->connect($dbsvhost, $dbname, $dbuser, $dbpass) or die "Could not connect Mysql Serv...
2010-06-10 14:42:12
86
转载 Perl文件读写操作
一般用 open 来读写文件,当有处理不了的情况,再考虑 sysopen读文件:open FH1, "while(){#可对读入文件的每行处理...}在标量环境下$one = ; #此时$one里面保存了文件的一行纪录...
2010-06-10 14:07:11
124
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人