use IO::Dir;
use File::Spec::Functions 'rel2abs';

my $d     = IO::Dir->new("your_dir_here") or die("ack - $!");
my @files = map rel2abs($_), grep -f, $d->read;
[download]

_________
broquaint

my $dir = 'c:';

opendir(DIR, "$dir\\");
my @files;
while(my $file = readdir(DIR)){
    push(@files, "$dir\\$file") unless(-d "$dir\\$file");
}
closedir(DIR);

print "$_\n" foreach(@files);
[download]

Yes.. i´ve already use that..!! Is this the best way or the most efficent way? Or is preferably to use modules instead of perl built in commands?

I´ve made this code:

use strict;
use warnings;

my $path="c:\\teste";

sub procura_ficheiros{
($path)=@_;
opendir(DIR, $path) ||die "$!";
my @files=grep{/\.c$/} readdir(DIR);
close (DIR);

return @files;
}

my @res=procura_ficheiros($path);
foreach my $fich (@res){
  my $final=$path."\\".$fich;
  print "Ficheiro: $path\\$fich\n";
    print "Final: $final\n";
}
[download]

It works.. but is it the most efficcient??

Thank you once again

Nuno

You might want to have a look at the 'glob' function. It allows a wildcard expression and puts the results in an array.
eg. (yes, it's cygwin, so YMMV)


#!/bin/perl

use strict;
use warnings;

foreach (glob ( "/cygdrive/c/temp/*" ))
{
  print $_, "\n";
}
[download]


Not amazingly _efficient_ (or so I'd imagine, I haven't profiled glob) but pretty straightforward code.

Try using Benchmark to test the efficiency. I tried it, but I couldn't get broquaint's code to work. I was getting and empty directory listing. It may be a problem over here, haven't really looked into it yet.

I don't address efficiency here. Unless your directory is very big, your approach should be efficient enough.

Just a couple of comments on your code, though:

1) In windows, you don't need to use the backslash as a path separator thingy, you can use a forward slash, which doesn't need escaping. This means that instead of typing for example:

You can do:

which is a lot easier to type (and easier to read).

2) Change your line:

to:

3) Re the first line inside your sub:

This is usually written something like:

or else:

Note that this uses a distinct variable limited to the scope of the sub, which is generally a Good Idea. Indeed, you could even do away with this line and have as the first line of your sub:

4) Lastly, considering this line:

I would recommend that you also test that everything that you put into @files really is a file (rather than a directory, for example):

dave

perl -MFile::Find -e "find(\&w,shift);sub w{print \"$File::Find::name\
+n\"}" c:/temp
[download]