Perl 脚本：将 mv 作为外部命令运行

Question

我正在尝试将此命令作为我的 perl 脚本的一部分运行：

`mv $n1 ../out`

其中 $n1 是我从先前的子例程中获取的文件名。 我收到如下错误：

mv: missing destination file operand after `test.pl'
Try `mv --help' for more information.
sh: line 1: ../out: is a directory

任何人都可以帮忙吗？如果我单独运行该命令，它运行良好。

Answer 1

这是一个脚本，它重现了与您看到的错误消息非常相似的内容：

#!/usr/bin/perl

use strict;
use warnings;

my $n1 = "test.pl\n";

`mv $n1 ../out`;

问题是 $n 以换行符结尾（也许您从文件中读取它并且没有 chomp 吗？），因此 shell 执行的命令是：

mv test.pl
../out

如果这确实是问题所在，您可以通过打印 $n1 的值来追踪它：

print "DEBUG: \$n1 = \"$n1\"\n";

请注意，

`...`

语法是旨在捕获 shell 命令的输出。由于您只是重命名文件，因此使用 system 更有意义：

system 'mv', $n1, '../out';

或者，正如 Quentin 在评论中建议的那样，使用 File::Copy::move ，或者内置的 rename 函数（如果您确定没有跨文件系统边界移动文件）。

Answer 2

科纳拉克上面说的。

您可能应该在调用命令之前执行检查，而且如果您不需要使用 system() 而不是使用反引号保存命令的输出，它会使代码更加清晰。

if ($n1 ) {
    system("mv $n1 ../out");
}
else{
   die "No value assigned to \$n1 from previous routine routine_name()\n";
}

编辑
您可以更改检查以确保您尝试移动的结果存在并且是正常文件：即

if ( -f $n1 ){
....