note
Anonymous Monk
<p> In today, reading directories is easier with [metamod://Path::Tiny] <c>#!/usr/bin/perl --
use strict; use warnings;
use Path::Tiny qw/ path cwd /;
my $dir = cwd();
my @files = path( $dir )->children;
my @perlFiles = path( $dir )->children( qr/\.pl$/i );
for my $pl ( @perlFiles ){
print "$pl\n";
}
</c>
74013
74013
4