map + readdir - #120614 (Allgemeines zu Perl)

Gast wer

2009-04-15 23:09

Code (perl): (dl )

1
2
3

opendir(my $LOGDIR, "./+logs/~$uid") or die "$!";
my @logs = map {!/^\./xms ? $_ : "" } readdir($LOGDIR);
closedir($LOGDIR);

oder willst du eher sowas?:

Code (perl): (dl )

1
2
3

opendir(my $LOGDIR, "./+logs/~$uid") or die "$!";
my @logs = grep { !/^\./xms } readdir($LOGDIR);
closedir($LOGDIR);