by

get a pattern from a text file

do you mean

• list only file names that match a pattern
• read a pattern from a file's contents?

"get a pattern" sounds like the latter, but your example looks more like the former.

I like Path::Tiny for such tasks, e.g. the following would show you all files in the tree where the name starts with "mdp". Note this doesn't use shell patterns like glob (with * and ?) but perl's own regexes.

use strict;
use warnings;
use Path::Tiny qw/path/;

for ( path('/nfs/fm/stod/stod1031/w.eakanoje.101/power/')->children( q
+r/^mdp/ ) ) {
    print $_ . $/;
}
[download]