Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
print "\n";
my @f = path( 'someDir' )->children( qr/someFile*/i );
print "found  $_\n" for @f;

Select or download this

someDir
|-- SOMEFILE.tmp
...
found  someDir/somefile.dat
found  someDir/SOMEFILE.tmp
found  someDir/someFile.txt