[Melbourne-pm] I <3 map & grep
Toby Corkindale
toby.corkindale at strategicdata.com.au
Wed Oct 26 22:07:45 PDT 2011
But perhaps, a little too much..
I just found myself this:
use Config::General qw(ParseConfig);
...
opendir(my $dir, $self->sites_dir) or die..;
my %sites = map { $_->{name} => Streuth::Site->new($_) }
map { { ParseConfig($_) } }
grep { -f $_ }
map { File::Spec->catfile($self->sites_dir, $_) }
grep { /^[-_a-zA-Z\d\.]+$/ }
readdir($dir);
closedir $dir;
return \%sites;
More information about the Melbourne-pm
mailing list