HTML

Bagoj úr blogja

Kíváncsi Bagoj befigyel a Linux belsejébe, illetve különféle Linux terjesztéseket próbál ki. Ha jó napja van, scriptet ír Neked.

Friss topikok

Könyvtárak grafikus megjelenítése 2.

2008.07.09. 08:31 bagoj ur

 

Béla kérésére átjavítottam a kódot, de a kommentekben összeesett volna, úgyhogy gondoltam, egy új postban írom meg:

#!/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));
    }
    push(@edges,"\t\"$RelativePath/$fajl\" -> \"$RelativePath\"");
    push(@nodes,"\t\"$RelativePath/$fajl\" [label = \"$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 "}";
Remélem, ezzel elindítok egy olyat, mint a Hey, Scripting Guy! ahol Windowsos scripteket lehet kérni és a blogban megcsinálják (csak persze én Linuxosakat vállalok). :-) Nem lenne ellenemre mondjuk, csak határidőt nem tudok vállalni rá.

 

3 komment

Címkék: linux grafika parancssor fájlrendszerek dotty graphviz

A bejegyzés trackback címe:

https://bagojur.blog.hu/api/trackback/id/tr30612298

Kommentek:

A hozzászólások a vonatkozó jogszabályok  értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai  üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a  Felhasználási feltételekben és az adatvédelmi tájékoztatóban.

béla 2008.07.09. 22:43:55

Hála és köszönet! Jövök egy sörrel! :-)

bagoj.ur 2008.07.11. 09:22:06

Ha mindazt a sört behajtanám, amit ígért valaki, egy évig ki se józanodnék... :-) Szívesen csináltam meg.

atomgape 2008.07.17. 14:26:50

Na akkor most figyelj: kéne nekem egy script, amivel egy könyvtárban vagy könyvtárszerkezetben tömeges átnevezést tudok csinálni. Azaz mondjuk sok ilyen fájlnevem van:

Snoop Dogg - 01 - Bathtub -source.mp3
Snoop Dogg - 02 - Doggy Dogg World (feat. Tha Dogg Pound and The Dramatics) -source.mp3
(...)

Jó lenne, ha ki tudnám szedni a "-source" részt a végéről és a "Snoop Dogg - " részt az elejéről. Próbálkoztam, de a szóközök mindig kifogtak rajtam, így egyesével kell átneveznem.