-
编辑 删除
修改桌面快捷方式
BOOL CheckShortcut(LPCTSTR lpFileLink){ IShellLink *pLink = NULL; IPersistFile *ppf = NULL; BOOL bFind = FALSE; HRESULT hr = CoInitialize(NULL); //Init COM ...
-
编辑 删除
Python遍历目录
1、os.walk2、os.path.walk3、递归 #!/usr/bin/env pythonimport osallf1 = []alld1 = []def visitDir1(path): for root, dirpath, filepath in os.walk(path): &nbs...
-
编辑 删除
perl读压缩文件与一般文件
sub open_zip_file{ my $path = $_[0]; my $filename = $_[1]; my $gzh; if ( $filename =~ /\.csv/ ){ #一般文件 open($gzh, "cat ".$path.$filename."|") || return -...
-
编辑 删除
perl判断某个打开的文件是否匹配某模式
sub is_pattern_data_zip_file{ my ($gzh, $pattern) = @_; my $temp; #read the entire file { &n...
-
编辑 删除
perl读写excel文档
use Spreadsheet::WriteExcel; #用于写exceluse Spreadsheet::ParseExcel; #用于读excelmy ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);my $excel_log_name = sprintf("ch...
-
编辑 删除
perl cgi页面基本框架
#!/usr/bin/perlprint "Content-type: text/html; charset=utf-8\n\n";print "<HTML>";print "<HEAD><TITLE>*******</TITLE></HEAD>";print "<body><center>********************</center><hr color=Olive>";#****...
-
编辑 删除
perl数据库操作
use Mysql;my $dbh = Mysql->connect($dbsvhost, $dbname, $dbuser, $dbpass) or die "Could not connect Mysql Server: $!"; #连接数据库my $command = "SELECT * FROM $table"; #查询命令my $sth = $...
-
编辑 删除
Perl文件读写操作
一般用 open 来读写文件，当有处理不了的情况，再考虑 sysopen读文件：open FH1, "<", "filename" or die "can't open file: $!\n";while(<FH1>){#可对读入文件的每行处理...}在标量环境下$one = <FH1>; #此时$one...
