无法从 perl 脚本将参数传递给 dir 命令

Question

我无法执行dir 命令，在指定要搜索的文件名all.xml 时出现错误，我无法使用/s 命令进行递归搜索，我收到以下错误@987654324 @ 并且不理解/s 参数是用于递归搜索，程序将其解释为文件路径

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

print $vall;

Answer 1

这与 Perl 无关。您传递给 dir 的参数不正确。

• dir 将 / 解释为选项的开头，除非它被引用，
• 路径中间有一个不应该存在的空格，并且
• /s 不适用于同时包含 / 和文件组件的路径。

此外，除了/s 之外，您可能还需要/b。

固定：

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');