How to process every file in a directory that matches a pattern

You can use the glob operator to get a list of all files in the current directory like this:

@files = glob("*.*");

foreach $file (@files) {
print "$file\n" if -f $file;
}


you can modify your glob pattern to get a list of all the filenames that end with .pl, like this:

# look for all *.pl files
@files = glob("*.pl");

foreach $file (@files) {
print "$file\n" if -f $file;
}