Re: Quickest way to get a list of all folders in a directory

[tokpela]

in reply to Quickest way to get a list of all folders in a directory

Your backslashes in double quotes represents an escaped character. You could use single quotes:

'\\pcname-vm\c$\program files\adobe'

Or you could use double quotes with multiple escaping to compensate for the escaping:

"\\\\pcname-vm\\c$\\program files\\adobe" 

Or, finally, you could use forward slashes:

"//pcname-vm/c$/program files/adobe"

Also, you should remove any non-directories from your list.

use strict;
use warnings;

my $directory = "//pcname-vm/c$/program files/adobe";

open(NDIR, $directory) or die "Error: $!";

my @folders;

while (my $filename = readdir(NDIR)) {

   # skip the . and .. directories
   next         if ($filename =~ /^.+$/); 

   my $folder   = "$directory/$filename";

   # skip if not a directory
   next         if (! -d $folder); 

   push(@folders, $filename);

}

close(NDIR);

foreach (@folders) {
  
   print "$_\n";

}

[ig]

'\\pcname-vm\c$\program files\adobe'

In a single-quoted string, '\' is special. See Quote Like Operators, which says:

A backslash represents a backslash unless followed by the delimiter or another backslash, in which case the delimiter or backslash is interpolated.

So, your single quoted string should be:

'\\\\pcname-vm\c$\program files\adobe'

[mweb]

$/ is the input line separator, set to newline by default. $\ is the output record separator, set to undef by default. Several of these examples have not addressed these. It sounds like the OP is going to iterate over a list of system names and assemble the directory in parts. Single quotes and concatenation recommended:

  my $nodename = 'pcname-vm';
  my $directory = '//'.$nodename.'/c$/program files/adobe';