Béla kérése volt egy kis program, ami a könyvtárszerkezetről rajzol egy ábrát. Ez például igen hasznos lehet website-ok sitemap-jének megalkotásához, persze kis tuningolás biztosan kell hozzá; de ha SVG-be generáljátok le, akkor szépen Inkscape-pel editálni is tudjátok a végeredményt, és vektorosan akármekkorában el tudjátok menteni. ;-)
#!/usr/bin/perl -w

our @nodes;
our @edges;

sub rddir{
my $RelativePath = shift;
my $counter = shift;
if($counter>10){return;}
my @files;

  @files = <$RelativePath/*>;
  foreach $fajl(@files){
    if($fajl=~/^\.{1,2}$/){next;}
    $fajl =~ s/^.*\/(.*)$/$1/;
    if(-d $fajl){
        rddir("$RelativePath/$fajl",($counter+1));
    }
    $RelativePath =~ s/^.*\/(.*)$/$1/;
    push(@edges,"\t\"$fajl\" -> \"$RelativePath\"");
    push(@nodes,"\t\"$fajl\"");
  }
}

rddir(".",0);
print "digraph konyvtarak {\n\tnode [shape = box];rankdir=\"RL\";\n";
foreach $anEdge(@edges){print "$anEdge;\n";}
foreach $aNode(@nodes){print "$aNode;\n";}
print "}";Ha valaki esetleg tudna a kódon tömöríteni, azt külön értékelném...! :-) Szóval, a használata annyi, hogy le kell tenni egy fájlba, legyen mondjuk "dir2svg.pl" aztán
perl dir2svg.pl > output.dot
dot -o konyvtarak.svg -T svg output.dotA graphviz csomag még mindig kell hozzá! És Windows alatt biztosan nem fog működni, az egyszerűség kedvéért nem használtam a Perl opendir, readdir függvényeit, így kisebb a kód. ;-) Az eredményt pedig láthatjátok balra. Ahogyan a 9. sorból kiedrül, csak 10 mélységű könyvtárszerkezetet listáz, erre való a $counter változó. Ha nem tetszik, lehet növelni vagy csökkenteni. Ugyanúgy nem kezeli le a symlinkeket stb. szóval kis fejlesztés még ráfér.

Mindenkinek jó szórakozást!