请教大家一个关于相关文件移动的问题,希望高手能帮我指点下:)
时间:2010-11-15
来源:互联网
大家好,偶遇到一个移动文件问题,没试成功,希望高手帮我看下,谢谢啦。
问题是这样的:
我有一个总文件夹,名字叫memory
里面有N个小文件夹:名字例如: ass40221 sas32432 dss23222 asd12345
每个小文件夹内:都有很多文件,其中有一个后缀为 .ds的文件。(例如 aserp.ds)
我需要在memory下,把所有的子文件夹中,后缀为.ds的文件,复制出来。
放在一个新建的叫DS的文件夹下。(就建在memory文件夹内)
请问一下各位,这个操作该怎么实现呢?
因为跨了一级目录,偶水平不济,就抓瞎了……
另外,如果可以话,最好能在DS内可以再生成一个文件:DSLIST
文件内容就是这些里面有.ds文件名和其所在的小文件夹的名字。
ass40221 aserp.ds
sas32432 sdwe.ds
……
请大家帮帮忙,谢谢大家:)
问题是这样的:
我有一个总文件夹,名字叫memory
里面有N个小文件夹:名字例如: ass40221 sas32432 dss23222 asd12345
每个小文件夹内:都有很多文件,其中有一个后缀为 .ds的文件。(例如 aserp.ds)
我需要在memory下,把所有的子文件夹中,后缀为.ds的文件,复制出来。
放在一个新建的叫DS的文件夹下。(就建在memory文件夹内)
请问一下各位,这个操作该怎么实现呢?
因为跨了一级目录,偶水平不济,就抓瞎了……
另外,如果可以话,最好能在DS内可以再生成一个文件:DSLIST
文件内容就是这些里面有.ds文件名和其所在的小文件夹的名字。
ass40221 aserp.ds
sas32432 sdwe.ds
……
请大家帮帮忙,谢谢大家:)
作者: xixizhihua 发布时间: 2010-11-15
#!/usr/bin/perl -w
use strict;
use utf8;
use File::Find;
use File::Copy;
use IO::File;
find(\&wanted, (Memroy目录的路径));
my $file = IO::File->new(">DS目录路径/DSLIST");
sub wanted
{
if ($_=~/\.ds$/)
{
copy($File::Find::name,DS目录路径) or die "Copy failed: $!";
$file->print($File::Find::dir," ",$_,"\n");
}
}
$file->close();
print "success\n";
用以前程序凭感觉改的
你自己看看File::find的帮助
中文系统不知道中文文件名读进来会不会有问题,自己调一调吧
use strict;
use utf8;
use File::Find;
use File::Copy;
use IO::File;
find(\&wanted, (Memroy目录的路径));
my $file = IO::File->new(">DS目录路径/DSLIST");
sub wanted
{
if ($_=~/\.ds$/)
{
copy($File::Find::name,DS目录路径) or die "Copy failed: $!";
$file->print($File::Find::dir," ",$_,"\n");
}
}
$file->close();
print "success\n";
用以前程序凭感觉改的
你自己看看File::find的帮助
中文系统不知道中文文件名读进来会不会有问题,自己调一调吧
作者: bzdghdn 发布时间: 2010-11-15
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28