原文地址:http://blog.csdn.net/qin123qq/article/details/41083741
#!/bin/perl
#perl "D:\separateFliesBySearch.pl" "D:/WebRoot" "C:/Users/Documents/" ".xml" "<beans xmlns=\"http:\/\/www\.springframework\.org\/schema\/beans\""
use strict;
use warnings;
use File::Find;
use File::Copy;
use File::Path;
die "使用的参数:$0,不符合要求,请指定目录及搜索内容" unless @ARGV>=4;
my $srcdir = $ARGV[0];
my $distdir = $ARGV[1];
my $suffix = $ARGV[2];
my $reg = $ARGV[3];
my $verbose = 0;
if($ARGV[4])
{
$verbose = $ARGV[4];
}
searchContentsInFiles($srcdir,$suffix,$reg);
sub searchContentsInFiles
{
my $srcdir=$_[0];
my $suffix=$_[1];
if(! -e $distdir)
{
#第二个参数为是否显示日志,第三个目录权限
mkpath($distdir,$verbose,0711);
}
my @filenames=find( \&wanted,$srcdir);
close FH;
}
sub wanted
{
my $file = $File::Find::name;
my $filename=$_;
my $filedir=$File::Find::dir;
if(-f $file && /$suffix/ && !/\.svn/)
{
open(FH,"$file");
if(grep {/$reg/} <FH>)
{
#$_="$filedir";
my $tmpfiledir=$filedir;
$tmpfiledir=~ s/$srcdir//;
my $tmpdistdir="$distdir$tmpfiledir";
#print "$tmpdistdir\n";
if(!-e "$tmpdistdir")
{
#第二个参数为是否显示日志,第三个目录权限
mkpath("$tmpdistdir",$verbose,0711);
}
copy($file,"$tmpdistdir");
}
}
}
相关推荐
载入目录路径并且搜索所有目录下任意文件类型,linux下过滤掉以"."和".."的文件,即UNIX下的隐藏文件
创建EXIF重命名的图像文件使用EXIF日期/时间将图像和视频文件从源目录复制到目标目录,以重命名文件。 如果未提供目标目录,则将在源目录中创建文件,并保留原始文件。 用法: perl create-exif-renamed-files.pl ...
使用方法简单,在当前目录下,使用perl make_f.pl xx,xx为例化的filelist文件名,按下回车将会生成.f文件,里面列出了当前目录下所有.v文件的绝对路径,将脚本中.v替换成.c也可以检索当前目录下的所有.c文件,...
直接拷贝到perl的安装路径,直接替换C:\Perl64\site文件夹 即可
perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件
Perl学习笔记中的所有脚本文件,https://blog.csdn.net/zgezi/category_10259467.html
用 perl 实现文件上传
对学习使用Perl操作文件时写的,在开始学习对Perl文件操作时,使用了$_,导致调试了很长时间,现在改正后做笔记到此
将编译生成的可执行文件拷贝到可执行文件通常所在目录,如: $copy <compiled excutable file> /usr/local/bin/perl 注:这需要系统管理员权限。 北美 地址 目录 ftp.netlabs.com IP地址:192.94.48...
perl脚本perl脚本perl脚本perl脚本
可能太乱了,但是至少可以提供给大家一个范例,使用perl创建xlsx(2007)、读文本文件然后抓取数据生成xlsx文件(具体内容是ezplan提取的drill信息的文本,然后排序 由小到大,第一行指定0.125,第二行0.4,pre放在...
Perl之读取文本文件,按照给定的关键字读取文件内容并输出。
利用perl读取EXCEL文件输出到XML文件
Perl最佳实践中文版,并带有各章节目录。
perl获取文件修改时间,
非常有用的Perl 语言写的TXT文件切割器,包含工具源码。
编写的shell 脚本、perl 脚本、python 脚本 等如果不想被别人看到原文件,可以使用该工具shc ,对脚本文件加密,
用perl程序实现文本文件到mysql数据的自动加载.
perl archive 打包,加密程序,可以隐藏文件