@arrayにfindコマンドが含まれているとシステム（@array）が動作しないのはなぜですか？

Question

私はPerlを愛し始めていますが、ここで何が起こっているのか分かりません。

なぜこの作品が出力

find data/path/ -name *.xml -exec mv {} junk/path/ \; 

検索からエラーなし

my @cmd =(); 
push @cmd, 'find'; 
push @cmd, 'data/path/'; 
push @cmd, "-name"; 
push @cmd, '*.xml'; 
push @cmd, '-exec'; 
push @cmd, 'mv'; 
push @cmd, '{}'; 
push @cmd, 'junk/path/'; 
push @cmd, '\;';  
say join (' ', @cmd);  
system(join(' ', @cmd)); 

ん！これは動作しませんが

my @cmd =();  
push @cmd, 'find'; 
push @cmd, 'data/path/'; 
push @cmd, "-name"; 
push @cmd, '*.xml'; 
push @cmd, '-exec'; 
push @cmd, 'mv'; 
push @cmd, '{}'; 
push @cmd, 'junk/path/'; 
push @cmd, '\;';  
say join (' ', @cmd);  
system(@cmd); 

出力：

find data/path/ -name *.xml -exec mv {} junk/path/ \; 
find: Missing argument for »-exec«. 

systemは配列を理解することができるはずです。 hereを参照してください。シェルに出力をコピーすると、引数が足りないので、うまくいきます。しかし、私のスクリプトはこれを実行できません。

Answer 1

第2のsystemコールでは、;をエスケープしないでください。

findへのスイッチ;が見つかるまで、-execに切り替えます。 ;は、コマンドの区切りとして、シェルによって解釈されるため、コマンドラインからfind ... -execを実行したとき、あなたはそれをエスケープする必要があり、シェルスクリプトで、あなたの第二system呼び出しでパターン

find ... -exec ... \; 

が表示されます配列内のすべての引数を収集し、配列を直接systemに渡します。この場合、Perlはコマンドを解釈するためにシェルを使用しておらず、findコマンドは、;の代わりに\;を参照し、-execスイッチは混乱します。

あなたが仕事にあなたのsystemコマンドを取得すると言うする必要があるのは

... 
push @cmd, ';'; 
... 
system(@cmd); 

Answer 2

mob pointed outあなたsystem呼び出しで当面の問題ですが、これを行うには良い方法があります。

use strict; 
use warnings 'all'; 

use File::Copy; 
use File::Find::Rule; 

my $dest = '/foo/bar'; 

File::Find::Rule->file 
       ->name('*.xml') 
       ->exec(sub { move($_, $dest) or warn "move($_, $dest) failed: $!" }) 
       ->in('.');