+ -
当前位置:首页 → 问答吧 → 请教大家一个关于相关文件移动的问题,希望高手能帮我指点下:)

请教大家一个关于相关文件移动的问题,希望高手能帮我指点下:)

时间: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
……
请大家帮帮忙,谢谢大家:)

作者: 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的帮助
中文系统不知道中文文件名读进来会不会有问题,自己调一调吧

作者: bzdghdn   发布时间: 2010-11-15

热门下载

更多