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??

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.