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

[Peter Makholm <sslug@sslug>]

Michael Schmidt <sslug@sslug> writes:

> *LOL* OK da.
> DIR = ls : lister indhold af mappe
> /S : medtag/rekurser alle mapper under aktueller
> /B : skriv fulde sti til alle filer 

I Perl:

#!perl
use File::Find

my @files;

find(sub { push @files, $File::Find::name}, '/path');

print "$_\n" for (@files)
__END__

-- 
 Peter Makholm     |     Have you ever felt trapped inside a Klein bottle?
 sslug@sslug |                                                      
 http://hacking.dk |