Directory Listing to array

[Poetic Justice]

I'm using readdir to extract the listings of the files in a directory. I would like to take the values returned and push them onto an array. Currently the code looks like--

while ( $standir = readdir( DIR ) ) {
       $type = ( -d "$path\\$standir" ) ? "dir" : "file";
       if ($standir =~ m/^\./) {
         $standir = '';
       } else {
          $standir = "$standir" ."\n";
          push(@standir,$standir);
       }
   }

When I test the code (attempt to pop and print the contents of the array), there is nothing there. What am I missing?
Many thanks to the community.
Poetic Justice

[Zaxo]

See readdir, it returns a list.

my @standir = grep {! /^\./} readdir(DIR);

But perhaps glob is more what you want. It will ignore dotfiles.

After Compline,
Zaxo

[tachyon]

Actually while (my $file = readdir DIR) { print "$file\n" } will happily iterate over readdir. Try it. Also your grep solution will skip files like:

.
..
.bashrc
.any_other_unix_style_hidden_file/dir

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[Zed_Lopez]

Did you open DIR with an opendir and not just an open? The department of brevity department suggests:

!/^\./ and push @standir, "$_\n" while ($_ = readdir(DIR))
# or
@standir = grep { !/^\./ } readdir(DIR); # doesn't append \n

[tachyon]

Have a look at Re: Win32 Recursive Directory Listing for some sample code.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[Poetic Justice]

Definitely a good idea, and the sample code is helpful. When I finally finish the project I'll post the full source.
Thanks monks, ,
Poetic Justice

[Poetic Justice]

Getting readdir to return what I want is not the problem. The problem is the array. I've been testing and I finally got the array to be populated using split(/\s/, $standdir) on the list returned by readdir. I've got get the proper control structure in place to pop the data off the array. while(newfil = pop @standir) isn't working for me.
As for brevity, I have to write this script to be used by non-perlmonks. They are VB heretics.
Poetic Justice

[Poetic Justice]

As promised here is the finished code. Mad props and thanks to tachyon, and Zaxo for their comments and assistance.
I would post the whole progam, but all it does is convert the standard IIS Log file to fixed width format for upload to our datawarehouse. Our datastaging component wants files in this format. Don't ask me why, that was before my time at my current employer.


sub listfiles {
   $path = shift;
   $path = "." unless $path;
   opendir( DIR, $path ) || die "Can't open $path: $!";
   !/^\./ and push @loot, "$_\n" while ($_ = readdir(DIR));  
   closedir( DIR );
   return @loot;
}