工具小腳本
#!/bin/perl
use File::Find;
use Log::FileSimple;
#use strict;
#use warnings;
# 說明:
# 遍歷出 "/cygdrive/c/Documents and Settings/Administrator/"
# 滿足 "^.*\.txt$" 添加文件
# 并運(yùn)行 "ls -l $fileAllName "
# 運(yùn)行日志 ./log
#
# perl this.pl
# "ls -l $fileAllName "
# "/cygdrive/c/Documents and Settings/Administrator/"
# "^.*\.txt$"
# ./log
#
# run_comm 參數(shù)1 替換說明：
# $filePath 為輸入?yún)?shù)2，遍歷根目錄 "/cygdrive/c/Documents and Settings/Administrator/"
# $fileAllName 為當(dāng)前遍歷，滿足正則條件的 全路徑+文件名
# $logicFileAllName 為當(dāng)前遍歷，滿足正則條件的 邏輯路徑+文件名
# $logicFilePath 為當(dāng)前遍歷，邏輯路徑
# $logicFileName 文件名稱
# $logicFileExp 文件后綴
# （test.txt 文件
# $logicFileName 為 test
# $logicFileExp 為 txt
# ）
my $run_comm=$ARGV[0];
my $file_path=$ARGV[1];
my $file_find_rex=$ARGV[2];
my $logfile=$ARGV[3];
my $log = new Log::FileSimple(name=> 'Log::FileSimple logs',
file => "$logfile",
mask => -1,
autoflush => 0,
);
sub fileThumb{
eval{
$_tmp_run_comm=$run_comm ;
if( /$file_find_rex/ ){
$fileNum++;
$_tmp_run_comm=~s/\$filePath/$file_path/g;
my $_file_all_name=$File::Find::name;
$_tmp_run_comm=~s/\$fileAllName/$_file_all_name/g;
my $_logic_file_all_name=$_file_all_name;
$_logic_file_all_name=~s/$file_path//g;
$_logic_file_all_name=~s/^\s*\.//g;
$_tmp_run_comm=~s/\$logicFileAllName/\.\/$_logic_file_all_name/g;
if($_logic_file_all_name=~/^(.*)\/([^\/]*)\.([^\.]*)$/){
my $_logic_file_path=$1;
my $_logic_file_name=$2;
my $_logic_file_exp=$3;
$_tmp_run_comm=~s/\$logicFilePath/\.\/$_logic_file_path/g;
$_tmp_run_comm=~s/\$logicFileName/$_logic_file_name/g;
$_tmp_run_comm=~s/\$logicFileExp/$_logic_file_exp/g;
}
#print $_tmp_run_comm,"\n";
my @return=eval{system("$_tmp_run_comm 2>&1 \|echo \$\? ")};
if ( $return[(@return-1)] != 0 ) {
$log->log(message=>"success($fileNum):$_file_all_name");
}else{
$log->log(message=>"error($fileNum):$_file_all_name");
}
}
}
}
find(\&fileThumb,$file_path);
整理 m.tkk7.com/Good-Game