如何从子文件夹中复制文件？ （文件名列表在文本文件中）使用命令行和 perl [关闭]

Question

我想搜索文件夹及其子文件夹中的文件列表，并将结果复制到不同的文件夹。

我目前正在使用：

for /F "delims==" %i in (listimagescopy.txt) do copy "V:\Photo Library\%i.jpg" "V:\Current Library\Work Zone"

“照片库”中有子文件夹，我需要命令行也应该在子文件夹中查找“listimagescopy.txt”中列出的文件

也在子文件夹中可能有 2 个同名文件 - 我需要能够指定在文件夹中查找列表中的文件时，它应该返回较新版本的每个文件（或者如果这对 cmd 来说很复杂，如果它复制文件时它们的名称不同，例如 file1 file2 也可以）

Answer 1

批量解决方案：

您可以使用FOR /R 列出所有子文件夹：

FOR /R "V:\Photo Library" %G in (.) do @echo %G

并为每个文件夹启动稍作修改的命令：

FOR /R "V:\Photo Library" %G in (.) do for /F "delims=" %i in (listimagescopy.txt) do xcopy "%G\%i.jpg" "V:\Current Library\Work Zone" /D /Y

xcopy /D 将仅复制较新的文件，/Y 将覆盖而不进行确认。在批处理文件中，检查源是否存在，您可以使用：

@echo off
FOR /R "V:\Photo Library" %%G in (.) do (
  for /F "delims=" %%i in (listimagescopy.txt) do (
    if exist "%%G\%%i.jpg" xcopy "%%G\%%i.jpg" "V:\Current Library\Work Zone" /D /Y
  )
)

Perl 解决方案：

use strict; 
use warnings;
use File::Find;
use File::Copy;

#filenames to match
my $filenames = join '|', map "\Q$_\E", split "\n", <<END;
filename1
otherfilename
another_one
etc
END

my $src_path = "V:\\Photo Library";
my $dst_path = "V:\\Current Library\\Work Zone";

find({ wanted => \&process_file, no_chdir => 1 }, $src_path);

sub process_file {
  if (-f $_) {
    # it's a file
    if (/\/($filenames).jpg$/) {
      # it matches one of the rows
      if ((stat($_))[9] > ((stat("$dst_path/$1.jpg"))[9] // 0)) {
        # it's newer than the file in the destination
        # or destination file does't exist
        print "copying $_ ...\n";
        copy($_, $dst_path) or die "File $_ cannot be copied.";
      }
    }
  }
}