List directory contents

[heaveninflames]

Hi all,

I've searched the net for a while, and tried a lot of things. The script I wrote prints the contents of a directory. It works fine for a directory with no space in it, but with a space it doens't. I tried putting in qoutation marks, but that doesn't help. Anyone some ideas?

#!/usr/bin/perl -w
my $dir = 'c:\Documents and Settings\\\';
@files = <$dir*>;
foreach $file (@files) {
if (-d $file) {
  print "$file [DIR]\n";
  } else {
  my $filesize = -s $file;
  print "$file [$filesize]\n";
  }
}

[vijayarl]

Hi there,

Are you talking abt the directory name having space in it is it ???

like this one :

dir name: xyz abc

Regards,
Vijayarl

[nithinpes]

Try this:

@files = <"$dir*">; # $dir* within quotes

- Nithin

[heaveninflames]

Vijayarl: Yes

Try this:

@files = <"$dir*">; # $dir* within quotes

- Nithin

Nope, doesnt't work. There's no output at all now

[vijayarl]

try this :

my $dir = 'C:/Performance_svap/INPUT FILES'; ### give your directory path here
opendir(DIR, $dir) || die "can't opendir $dir: $! \n"; 
@tmparray = readdir(DIR);
print "@tmparray \n";

Regards,
Vijayarl

[vijayarl]

hi,

and even if you want can go through this post :

http://bytes.com/forum/thread844454.ht ml

jeff has clearly explained how script works & even it avoid reading . & .. (dot & dot dot) contents from the directory.

have a try !!!

Regards,
Vijayarl

[heaveninflames]

Yes!!! U made my day, thanks a lot!