Load many files under Unix

[Ultdrake]

I'm programming a script Perl on Unix and I want to load all *.sta file in a directory. I need help for find a function to read them one after another without know how many or the name of these files...

Thanks
Fred

 

[justice41]

Try something like

my @files = <dir/*.sta>;
for (@files) {

    open STAFILE, &quot;<$_&quot; or warn(&quot;Couldn't open $_: $!&quot;) && next;
    #do stuff here with <STAFILE>;
    #This prints the filename and its first line
    #my $line = <STAFILE>;
    #print &quot;$_ => $line&quot;;
}

jaa

 

[Ultdrake]

j'ai trouvé la solution, merci pour le coup de main...

opendir(REP, ".&quot || die "Probleme $!";
@files = grep { m/.sta/ } readdir REP;
closedir REP;
print "@files\n";