比较两个目录中有没有同名的文件,有就输出目录及名字
来源:互联网 发布:网络教育学校 编辑:程序博客网 时间:2024/04/28 20:42
#比较两个目录中有没有同名的文件,有就输出目录及名字
#!usr/bin/perl
use strict;
use warnings;
use Win32::OLE; #??win32 OLE?
#Auther: lancer
#Data: 3/12/2010
#Function: Find and list the files with same name between two folders
#Version: 1.00
#TODO:Add recursion sub-folder
my $src_dir = "C://bt1//game//builds//iPhone//tmp//res";
my $dst_dir = "C://bt2//iphone//alchemo//res";
#get all the file name in source dir
my @src_file_list = glob("$src_dir//*");
#my @file_list = glob('C://Tools//*');
my $index = 0;
READ_ALL: foreach (@src_file_list){
#print "$_/n";
&ReadOneFile("$_",0);
#last READ_ALL;
}
sub ReadOneFile($;$){ #read file and do something
my $src_flie = $_[0];
#print "$src_flie/n";
$src_flie =~ /(.*[////])(.*)/;
if($2){
#print "$2/n";
my $src_name = $2;
my @dst_list = glob("$dst_dir//*");
foreach (@dst_list){
#print "$_/n";
$_ =~ /(.*[////])(.*)/;
my $dst_name = $2;
if($src_name eq $dst_name ){
print "find same file: $_/n";
last;
}
}
}
}
- 比较两个目录中有没有同名的文件,有就输出目录及名字
- 【C】比较数组中有或没有相同的数,有就输出"有",没有则输出"没有"
- 判断E盘目录下是否有后缀名为.jpg的文件,如果有,就输出该文件名称
- 搜索一个目录下名字中有key的目录和文件
- linux中/etc与/var目录,各是什么意思?这两个目录下的文件有什么特点?
- 删除有文件的目录
- c有没有处理目录的函数
- 在同一个目录中同名文件的建立
- shell系列------查看storage下有没有某个文件目录
- 删除文件,若文件所在目录下只有一个文件则递归删除文件所在目录,直到删除的所在目录下有两个文件或者文件夹
- 有没有方法在不root手机的情况下读取Data目录下的文件
- 轮询目录(含目录中有子目录)并判断文件为0的找出来
- Ubuntu 解决 shell ./ 没有那个文件或目录 而ls有 的方法
- div中有两个class名字的优先级问题
- 模块----filecmp文件及目录的比较
- 过滤目录中没有后缀名的文件
- 判断是否有同名的文件存在
- linux 目录有没有硬链接
- 不同网段ssh scp远程传输文件方法
- ASP MapPath 方法
- 仿照 游戏算法整理 算法一:A*寻路初探 写了一段代码
- 善用backtrace解决大问题
- VSTS对wap网站进行自动化测试症结
- 比较两个目录中有没有同名的文件,有就输出目录及名字
- OracleDBconsoleorcl 无法启动解决方案
- sql 查询条件字段为text或ntext 的解决方案
- ACE前摄器Proactor模式
- 关于应用VSTS录制wap回放web浏览器成乱码问题
- 比较好的密码确认
- 宇宙大统一力场谭:寻找引力波谭
- 09年3月6日活动主题:网络游戏(及网页游戏)的技术发展
- HashMap与TreeMap的区别