Re: Open a folder

[Anonymous Monk]

in reply to Open a folder

#!/usr/bin/perl --
use Cwd;
use File::Find::Rule;
my @dirs = ( cwd() );
my @textfiles = find( 'file', 'name', qr/\.txt$/i, 'maxdepth', 1, 'in', \@dirs );