Opened by Crian at 2004-07-08 21:52
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Dann poste ich mal meinen Lösungsansatz. Irgendwo ist da noch ein Fehler drin, habe ihn aber nicht gefunden:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
print Dumper walk('./rdw01_testsuit');
exit;
sub walk {
my $here = {};
chdir shift;
for (<*>) {if (-d $_) { $here->{$_} = walk($_) } else { $here->{$_} = ''};}
return $here;
}