Re^2: finding a file exist amongst many files

[t-rex]

thanks for the reply steve. basically i am looking for if a file with tpsm_x exists, so on the shell it is pretty easy to find this. i want to know its perl counterpart, nevertheless i can try this but i don't want to install this package(legacy code issues).

[Corion]

Have you looked at glob or at bsd_glob in File::Glob ?

[stevieb]

Take two, with builtins only. Note that with readdir, it doesn't keep the whole path, so you have to add it back manually:

use warnings;
use strict;

my $dir = 'test';

opendir my $dh, $dir or die $!;

while (readdir $dh){
    if (/tpsm_.*/ && -f "$dir/$_"){
        print "$dir/$_ is a file\n";
    }
}

update: or use glob as Corion said :)