Filter filenames by pattern

perl grep readdir
Bi. picture Bi. · Jun 11, 2009 · Viewed 23.8k times · Source

I need to search for files in a directory that begin with a particular pattern, say "abc". I also need to eliminate all the files in the result that end with ".xh". I am not sure how to go about doing it in Perl.

I have something like this:

opendir(MYDIR, $newpath);
my @files = grep(/abc\*.*/,readdir(MYDIR)); # DOES NOT WORK

I also need to eliminate all files from result that end with ".xh"

Thanks, Bi

Answer

Alex Brown picture Alex Brown · Jun 11, 2009

try

@files = grep {!/\.xh$/} <$MYDIR/abc*>;

where MYDIR is a string containing the path of your directory.

Related questions

Command line: search and replace in all filenames matched by grep

I'm trying to search and replace a string in all files matched by grep: grep -n 'foo' * will give me output in the form: [filename]:[line number]:[text] For each file returned by grep, I'd like to modify the file …

Read More
Positive/Negative lookahead with grep and perl

my login.txt file contains following entries abc def abc 123 def abc abc de tha ewe when i do the positive lookahead using perl, i'm getting the following result cat login.txt | perl -ne 'print if /(?)abc\s(?=def)/' …

Read More
grep substring between two delimiters

I have a lot of bash scripts that use perl expressions within grep in order to extract a substring between two delimiters. Example: echo BeginMiddleEnd | grep -oP '(?<=Begin).*(?=End)' The problem is, when I ported these scripts …

Read More