Rekursive durcharbeitung von Arrays (Allgemeines zu Perl)

Gast Gast

2006-08-09 12:40

Hallo & einen wunderschönen guten Morgen

Erstmal: Irgentwie klappt das Anmelden nicht irgentwie bekomme ich immer den Fehler das nicht alle daten gesendet werden konnten. Auch bei der Seite wo man den Einmaligen Code eingeben kann.

So und nun zu meinem Problem:

Ich möche einen Tree zeichnen lassen.

Ich habe "n" Arrays , jedes Array symbolisiert ein Switch.

In den Arrays stehen die Adressen der Switche drin die an das jeweilige Switch angeschlossen sind.

So, ich glaube ich muss das ganze in ein mehrdimensionales Array packen um es rekursiv durchlaufen zu können, aber wie mache ich das am besten automatisiert, da ich nicht weis wie viele switche es sind und wie vile dran angeschlossen sind ?

Dann habe ich gelesen das man eine Subfunktion schreiben muss die sich dann wieder selbst aufruft, allerdings weis ich nicht wie, da ich relativ neu bin bei perl bzw programmieren allgemein.

Könnt ihr mir da auf die Sprünge helfen?

Besten dank im Voraus..

mfg fk

renee

2006-08-09 12:53

User since
2003-08-04
14371 Artikel
ModeratorIn

Kannst Du mal ein paar Beispieldaten posten? Wie sehen die Arrays aus? Wie soll das Ergebnis aussehen?

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Taulmarill

2006-08-09 13:12

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

da die genauen angaben fehlen, erst mal ganz grob. du übergibst einer subroutine eine referenz auf das entsprechende array. jetzt läufst du durchs array und machst für jeden wert der keine referenz ist, was auch immer du mit den daten tun willst. für jede referenz die du findest ruft die sub sich wieder selbst mit eben dieser gefundenen referenz als argument auf. so einfach kann rekursion sein :)
achja, ob ein wert eine referenz ist oder nicht kann man mit der funktion ref testen.

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

renee

2006-08-09 13:31

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich würde Dir empfehlen, ein Hash aufzubauen, der so aussieht:

Code: (dl )

1
2

my %switches = (switch0 => [qw/switch1 switch2 switch3/],
       switch1 => [qw/switch4/],);

Damit wird das ganze einfacher...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Gast Gast

2006-08-09 13:07

Hm irgentwie kann ich nicht auf mein Thema Antworten, und wie schon gesagt registrieren klappt auch nicht....

Also die Arrays sehen wie folgt aus:

@switch0 = qw(switch1 switch2 switch3);
@switch1 = qw(switch4)
@switch2 = qw();
@switch3 = qw();
@switch4 = qw();

Also an switch 0 sind switch 1,2 und 3 angeschlossen und an switch3 ist switch 4 angeschlossen.

Es soll dann mal so aussehen:

switch0
switch1
switch4
switch2
switch3

und so weiter je nach dem wie viele wo angeschlossen sind

renee

2006-08-09 13:37

User since
2003-08-04
14371 Artikel
ModeratorIn

Mit dem Hash würde es dann so gehen:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my %switches = (switch0 => [qw/switch1 switch2 switch3/],
                switch1 => [qw/switch4/],);
                
my $start    = 'switch0';

print_tree(\%switches,$start,0);

sub print_tree{
    my ($hashref,$start,$level) = @_;
    
    my $whitespaces = ' ' x ($level * 5);
    print $whitespaces.$start,"\n";
    
    for my $switch(@{$hashref->{$start}}){
        if(exists $hashref->{$switch}){
            print_tree($hashref,$switch,$level+1);
        }
        else{
            my $whitespaces = ' ' x (($level+1) * 5);
            print $whitespaces.$switch,"\n";            
        }
    }
}

Edit: Fehler beseitigt\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Ronnie

2006-08-09 15:37

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

GraphViz bietet sich hier an:

Code: (dl )

digraph Switches {
  nodesep=0.7
  switch0 -> switch1 
  switch0 -> switch2
  switch0 -> switch3 
  switch1 -> switch4 
}

http://www.ronnie-neumann.de/images/switch.png
Siehe http://www.graphviz.org/ und CPAN:

GraphViz.

Ronnie

2006-08-09 17:23

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Ja, so ziemlich die wichtigsten Formate einschließlich JPG und SVG werden unterstützt.

Gast Gast

2006-08-09 17:16

@renee

Danke das Funktioniert.Ein anstoß in die richtige richtung hätte zwar gereicht aber so is noch besser.

@Ronnie

Das sieht sehr gut aus, mal schauen ob ich das instelliert bekomme.

Gibt es das auch das eine svg oder jpg Datei erstellt wird?

fk

2006-08-10 13:29

User since
2006-08-10
9 Artikel
BenutzerIn
[default_avatar]

Hallo, so nun endlich als angemeldeter User :)

Also das Graphviz ist genau das was ich brauche, nur bekomme ich das unter Windows nicht zum laufen.

Habe mit nmake das Modul installiert und deinen beispielcode ausgeführt da hat er gemeckert das er in @INC nicht RUN PM finden kann, ok hab ich das Modul installiert und in den entsprechenden Ornder Kopiert, nun bekomme ich nen Fehler das im Modul Graphviz ind Line 8 irgent ein Syntax fehler ist.

Was mache ich nun?\n\n