Alle Verzeichnisse Verzeichnisse in Datei ausgeben - #74149 (Allgemeines zu Perl)

wiederlader

2007-02-08 08:36

User since
2007-01-03
36 Artikel
BenutzerIn
[default_avatar]

[quote=renee,07.02.2007, 16:48]

Code: (dl )

use File::Find;
my @dirs;
find(\&wanted,"C:\\");

my $file = '/path/to/file';
open my $fh, '>', $file or die $!;
print $_,"\n" for @dirs;
close $fh;

sub wanted{
    push @dirs,$File::Find::name if -d $File::Find::name;
}

[/quote]
Hallo Renee,
was bewirken die folgenden Zeilen ? (das print ist mir klar, nur das mit dem Dateihandel verstehe ich noch nicht)

Code: (dl )

my $file = '/path/to/file';
open my $fh, '>', $file or die $!;
print $_,"\n" for @dirs;
close $fh;

Edit betterworld: Code-Tags heilgemacht (bitte mit [/code] schliessen)\n\n