perlスクリプトからdirコマンドにパラメータを渡すことができません

Question

dirコマンドを実行できません。all.xmlというファイル名を指定するとエラーが表示され、/sコマンドを使用して検索を再帰的に行うことはできません。次のエラーcannot access no such file exists、/sパラメータを再帰的に検索するためのものであることを理解していないが、プログラムは、これはPerlのとは何の関係もありませんファイルパス

use strict; 
use warnings; 
print "i"; 
my $vall = ` dir //server1/dxx/mxx/rxx/ "ui.xml" /s`; 

print $vall; 

Answer 1

として解釈します。 dirに渡す引数が正しくありません。

• dirそれが引用されていますしない限り、あなたがすべきではない路の途中にスペースを持っている、と
• /sはパスでは動作しません
• 、オプションの開始として/を解釈/とファイルコンポーネントの両方を含む。

さらに、/sに加えて、が必要です。

は修正：言っ

dir "\\server1\dxx\mxx\rxx\ui.xml" /s/b 

ので

my $dir_output = `dir "\\\\server1\\dxx\\mxx\\rxx\\ui.xml" /s/b`; 

例、

>dir "//localhost/C$/Users/ikegami/Desktop/" /s/b 
\\localhost\C$\Users\ikegami\Desktop\a.jpg 
\\localhost\C$\Users\ikegami\Desktop\cabinet.txt 
... 

>dir "//localhost/C$/Users/ikegami/Desktop/a.jpg" /s/b 
File Not Found            <-- WTF? 

>dir "\\localhost\C$\Users\ikegami\Desktop\a.jpg" /s/b 
\\localhost\C$\Users\ikegami\Desktop\a.jpg 
\\localhost\C$\Users\ikegami\Desktop\x\a.jpg 

>dir \\localhost\C$\Users\ikegami\Desktop\a.jpg /s/b 
\\localhost\C$\Users\ikegami\Desktop\a.jpg 
\\localhost\C$\Users\ikegami\Desktop\x\a.jpg 

>type a.pl 
print `dir \\\\localhost\\C\$\\Users\\ikegami\\Desktop\\a.jpg /s/b` 

>perl a.pl 
\\localhost\C$\Users\ikegami\Desktop\a.jpg 
\\localhost\C$\Users\ikegami\Desktop\x\a.jpg 

---

は、私が個人的にFile::Find::Ruleを使用すると思います。

use File::Find::Rule qw(); 

my $qfns = 
    File::Find::Rule 
    ->name('ui.xml') 
    ->file 
    ->in('//server1/dxx/mxx/rxx');