Question

我在文本文件中使用File :: Find和file i / o来解析一系列目录并将内容移动到新文件夹中。这是一个简单的脚本（见下文）：

#!/usr/bin/perl

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

my $dir = "/opt/CollectMinderDocuments/coastalalglive"; #base directory for Coastal documents

#read file that contains a list of closed IDs
open(MYDATA, "Closed.txt");

mkdir("Closed");

while(my $line = <MYDATA>) {
  chomp $line;
  my $str = "$dir" . "/Account$line";
  print "$str\n";
  find(\&move_documents, $str);
}
sub move_documents {
  my $smallStr = substr $File::Find::name, 43;
  if(-d) {
    #system("mkdir ~/Desktop/Closed/$smallStr");
    print "I'm here\n";
    system("mkdir /opt/CollectMinderDocuments/coastalalglive/Closed/$smallStr");
    #print "Made a directory: /opt/CollectMinderDocuments/coastalalglive/Closed/$smallStr\n";
  }
  else {
    print "Now I'm here\n";
    my $smallerStr = substr $File::Find::dir, 43;
    my $temp = "mv * /opt/CollectMinderDocuments/coastalalglive/Closed/$smallerStr/";
    system("$temp");
  }
}

文本文件包含一个数字列表：

1234
2805
5467

上个月执行代码时，代码工作正常，但现在返回“找不到文件或目录”错误。实际错误是“没有这样的文件或目录文件/ coastalalglive / Account2805”。我知道它正在搜索的所有目录都存在。我已手动输入其中一个目录，脚本执行正常：

find(\&move_documents, "/opt/CollectMinderDocuments/coastalalglive/Account2805/");

我不确定为什么会返回错误。在此先感谢您的帮助。

Answer 1

您的错误：

"No such file or directoryerDocuments/coastalalglive/Account2805"

似乎暗示您的\r未删除chomp。在不同文件系统之间传输文件时会发生这种情况，其中文件包含\r\n作为行结尾。真正的错误字符串将是：

/opt/CollectMinderDocuments/coastalalglive/Account2805\r: No such file or directory

请尝试将chomp $line更改为$line =~ s/[\r\n]+$//;，然后查看是否有效。

此外：

my $temp = "mv * /opt/CollectMinderDocuments/coastalalglive/Closed/$smallerStr/";
system("$temp");

非常错误。该循环中的第一个非目录文件将移动所有剩余文件（包括dirs？不确定mv是否默认执行此操作）。因此，子程序的后续迭代将找不到任何移动，也导致“未找到”类型错误。虽然没有一个被perl捕获，因为您使用的是system而不是File::Copy::move。 E.g：

move $_, "/opt/CollectMinderDocuments/coastalalglive/Closed/$smallerStr/" or die $!;

Perl查找 - 没有这样的文件或目录

1 个答案: