Opened by roooot at 2009-04-15 22:34
Code (perl): (dl
)
1 2 3
opendir my $LOGDIR, qq{./+logs/~$uid} or die "$!"; my @logs = map { !m/^\./ ? s/\.log// : () } readdir($LOGDIR); closedir($LOGDIR);
|
Thread map + readdir
(18 answers)
Opened by roooot at 2009-04-15 22:34 Code (perl): (dl
)
1 2 3 opendir my $LOGDIR, qq{./+logs/~$uid} or die "$!"; my @logs = map { !m/^\./ ? s/\.log// : () } readdir($LOGDIR); closedir($LOGDIR); |