在共享驱动器中列出文件

Question

我有共享驱动器中目录的路径

\\remote\dir存储在变量$ path中。

我需要dir1中所有文件的列表。我用了

my @files = glob($path."\\*");

@files为空。我试图逃避$ path中的斜杠。这也行不通。 如何获取\\remote\dir中的文件列表？

我在Windows上。

Answer 1

我发现使用正斜杠更容易，而不是反复转义反斜杠：

my $path = "//dt01/users/steve";

my @files = glob($path."/desktop/*");

print "$_\n" for @files;

输出：

//dt01/users/steve/desktop/test.fil
//dt01/users/steve/desktop/desktop.ini
//dt01/users/steve/desktop/get-pip.py
//dt01/users/steve/desktop/install-tl-20150223

Answer 2

我认为你只需要这样改变你的程序：

my $path = "\\\\remote\\dir";

原因是perl会使用反斜杠作为转义字符。如果你想在字符串中使用反斜杠，则必须用反斜杠转义第二个反斜杠。