- 博客(4)
- 资源 (7)
- 收藏
- 关注
原创 用perl实现命令行打开执行文件
#open the progress by the command line#enter:progress name#out: progress path use strict;use File::Find; our $Path="C:/Documents and Settings/All Users/「开始」菜单/程序";$progress_name=$ARGV[0];$progress
2009-10-28 23:42:00 918
原创 基本文件操作和替换
$inputFile = "1.log";$inTestPath = "testlist";$outTestPath = "newTestList";open(INF, "$inputFile") or die("cannot open $inputFile/n");while(){ if(//.grxml$/) { chomp(); s////_/g; s/grxml$/txt/;
2009-10-28 23:20:00 536 2
原创 检查工具
#check the files in the first enter dir with the logsbase-second enter dirsub getfilenameto{ my $dir =$_[0]; print "$_[0]/n"; opendir DH, $dir or die "Cannot open $dir: $!"; @allnames=(); foreach $f
2009-10-28 23:15:00 447
转载 用perl操作注册表的一些基本函数
一 Open():语法:$object->Open($RegistryObj,$hKey); $object A part of the registry.$RegistryObj The key under the $object you want to explore. $hKey Handle of the opened key. $object:$HKEY_LOCAL_MACHINE
2009-10-28 21:25:00 921
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人