Re: [PERL] Linux/Perl eq. til DOS DIR/S/B

[Peter Makholm <sslug@sslug>]

Michael Schmidt <sslug@sslug> writes:

> Min plan er så at at substituere sti-informationen før filnavnet med
> "|", "+" og "-" -tegn for at visualisere filtræet.

Til dette ville jeg nok lave en løkke ala:

#perl

my @todo = ('.');

while($dir = shift @todo) {
    opendir DH, $dir;
    for (readdir DH) {
        # skriv ud.
        # tilføj til den rigtige side af @todo hvis det er et katalog.
    }
}

__END__

-- 
 Peter Makholm     |      I laugh in the face of danger. Then I hide until
 sslug@sslug |                                          it goes away
 http://hacking.dk |                                             -- Xander