Only files starting with xxxx

[Cockneyphil]

This is part of a script which (currently) lists all files in a directory.
How can I alter this script to make it include ONLY the filenames which start with xxxxx ?

 
opendir THEDIR, "$basepath$ARGV[0]" or die "Unable to open directory: 
+$!";
my @allfiles = readdir THEDIR;
closedir THEDIR;
for my $file ( sort { $b <=> $a } @allfiles )
{
    .....
} 

[TheHobbit]

Hi,
Simple enough... Use grep.Replace the line

@allfiles = readdir THEDIR;

with

@allfiles = grep /^xxxxx/,readdir THEDIR;

And you're done!

Cheers

---

Leo TheHobbit

[choocroot]

use the grep function :

@allfiles = grep { m/^xxxx/ } readdir THEDIR;

And you'll need to modify your $numfiles calculation ...

[fundflow]

This is probably the simplest:

@thefiles = <xxxx*>;