map + readdir - #120613 (Allgemeines zu Perl)

roooot

2009-04-15 23:07

User since
2008-03-03
276 Artikel
BenutzerIn
[default_avatar]

argh sorry pq, nun habe ich beim ewigen Rumeditieren den essentiellen Teil rausgelöscht, der die Problemstellung von grep unterscheidet. Mit grep könnte ich theoretisch ja alle . / .. Dateien rausfiltern. Ich will bei den gefundenen dann aber nach der Filterung noch die Dateiendung .log entfernen.

Der Code, wie er eignetlich lauten sollte:

Code (perl): (dl )

    opendir my $LOGDIR, qq{./+logs/~$uid};
    my @logs = map (
        do {
            if($_ !~ m/^\./xms) {
                $_ =~ s/\.log//xms;
            }
        }
    , readdir $LOGDIR);
    closedir $LOGDIR;

Viele Grüße :)