的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

Konerak上面說的。

您應該在調用命令之前執行一次檢查，如果您不需要保存命令use system（）的輸出而不是back tick，它會使代碼更清晰易讀。

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

編輯
你可以改變的檢查，以確保您試圖移動的結果存在，並且是一個正常的文件：即

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

Answer 2

這裏的再現非常類似的腳本到您看到的錯誤消息：

#!/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"; 

注意，

`...` 

語法旨在捕獲外殼命令的輸出。因爲你只是重命名文件，它會更有意義使用system：

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

，或者如昆汀在評論所說，使用File::Copy::move，或內置rename功能，如果你確定你不會跨文件系統邊界移動文件。