读取Perl中一系列子目录中的所有文件

时间:2016-03-15 14:15:47

标签: perl subdirectory readdir

我想创建一系列子目录中的所有文件的数组,一次创建一个子目录。我当前的代码返回了一个" Bad符号用于dirhandle"此代码最后一行的错误消息。我需要更改为正确读入每个子目录的文件到@ I1_s数组?

app.set('views', __dirname + './templates');

2 个答案:

答案 0 :(得分:4)

readdir适用于使用opendir打开的句柄。您是第一次正确使用它,但错误地尝试第二次用路径输入字符串。

您可能也有兴趣使用File::Find而不是编写自己的实现。

答案 1 :(得分:2)

使用glob功能代替foreach($vm in (get-vm)){ if (Get-NetworkAdapter -vm $vm.name |?{$_.NetworkName -eq "vlan13_VM"}) {$vm.name | export-csv -path c:\scripts\vlans.csv -NoTypeInformation -append } } opendir通常更容易。它的优点是忽略伪目录readdir.以及返回路径而不是裸文件名

我认为您的代码看起来应该是这样的

..