Re: 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'
[download]

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

"\\\\pcname-vm\\c$\\program files\\adobe"
[download]

Or, finally, you could use forward slashes:

"//pcname-vm/c$/program files/adobe"
[download]

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";

}
[download]

Comment on Re: Quickest way to get a list of all folders in a directory Select or Download Code

Replies are listed 'Best First'.
Re^2: Quickest way to get a list of all folders in a directory by mweb (Initiate) on Aug 13, 2009 at 17:33 UTC
$/ 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';` [download]	[reply] [d/l]
Re^2: Quickest way to get a list of all folders in a directory by ig (Vicar) on Aug 13, 2009 at 17:18 UTC
'\\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'` [download]	[reply] [d/l]