Hash-Tree ausgabe CSV formatierung (gelöst) (Allgemeines zu Perl)

[thread]18810[/thread]

Hash-Tree ausgabe CSV formatierung [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+6 replies

Dakarus

2013-12-18 12:09

User since
2013-12-17
3 Artikel
BenutzerIn

user image

Guten Tag,
Meine ersten Monate mit Perl und langer Programmierpause.

Folgende Situation
Für einen Importer der mit CSV dateien Arbeiten müste ich folgende eingaben erhalten.

Code: (dl )

CLASS_UE;CLASS_UN;
"";"CAD/Blue/Two/B/RMI151LNR";"
"CAD";"/Blue/Two/B/RMI151LNR";"
"CAD/Blue";"/Two/B/RMI151LNR";"
"CAD/Blue/Two";"/B/RMI151LNR";"
"CAD/Blue/Two/B";"/RMI151LNR";"
"unsortiert";"/Green/Three/V/WGZ117WWN";"
"unsortiert/Green";"/Three/V/WGZ117WWN";"
"unsortiert/Green/Three";"/V/WGZ117WWN";"
"unsortiert/Green/Three/V";"/WGZ117WWN";"

Das realisiere ich kurzerhand per:

Code: (dl )

sub array_tree {
    my @vars   = @_;
    my $peon   = scalar @vars;
    my $perent = shift @vars;
    while ( $peon > 0 ) {
        foreach my $sequence (@vars) {

            print "\"$perent\";";
            print '"';
            foreach (@vars) {
                print "/$_";
            }
            print '";"' . "\n";
            $perent = "$perent" . "/" . shift(@vars);
            $peon   = scalar @vars;
        }
    }
    return 1;
}

Das geht schon, ist nur Chaotische Aufzählung. Ein Hash-Tree Struktur existiert ebenfalls.

Code: (dl )

$VAR1 = {
          'CAD' => {
                     'Blue' => {
                                 'Two' => {
                                            'K' => {
                                                     'XFW485YKT' => 1
                                                   },
                                            'B' => {
                                                     'RMI151LNR' => 1
                                                   }
                                          }
                               },
                     'Green' => {
                                  'One' => {
                                             'N' => {
                                                      'NTN181AVN' => 1
                                                    }
                                           }
                                }
                   },

Kann mir vielleicht jemand einen Gedankenanstoß geben wie ich beide Bedingungen, CSV Style und Gliederung nach Tree, Vereine:
Last edited: 2013-12-18 12:18:42 +0100 (CET)

Linuxer

2013-12-18 13:01

User since
2006-01-27
3870 Artikel
HausmeisterIn

Die Hash-Struktur passt IMHO nicht zur CSV-Ausgabe...

Wenn ich Dich richtig verstehe, bekommst Du irgendwoher ein Bündel Daten, die u.a. auch (mal) als Hash-Struktur vorliegen (können?). Diese Daten sollen dann irgendwie nach irgendwelchen uns unbekannten Kriterien in einem CSV-Format ausgegeben werden?

Das Ganze bleibt in Summe für mich sehr unklar.

CSV-Ausgaben würde ich mit einem CSV-Modul erstellen; z.B. mit Text::CSV
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
+2 replies
Dakarus

2013-12-18 13:03
User since
2013-12-17
3 Artikel
BenutzerIn
Code (perl): (dl )

1 2 3 4 5 6 7 8

sub print_tree { my ( $tree, $parent, $chain ) = ( @_, $EMPTY, $EMPTY ); ref $tree eq "HASH" or return; for ( sort keys %$tree ) { print /^\s*\z/ ? "<blank>" : "$parent;". "$chain"."$_", "\n"; print_tree( $tree->{$_}, $_, "$chain"."$_"."_"); } }
... hab´s

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2013-12-18 13:22:51 +0100 (CET)
- Linuxer
  
  2013-12-18 13:38
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Wenn das Thema damit für Dich erledigt ist, dann setz bitte den Thread auf gelöst (oben beim Thread-Titel einzustellen).
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

clms

2013-12-18 13:25

User since
2010-08-29
373 Artikel
BenutzerIn
[default_avatar]

2013-12-18T11:09:47 Dakarus

Code (perl): (dl )

sub array_tree {
    my @vars   = @_;
    my $peon   = scalar @vars;
    my $perent = shift @vars;
    while ( $peon > 0 ) {
        foreach my $sequence (@vars) {

            print "\"$perent\";";
            print '"';
            foreach (@vars) {
                print "/$_";
            }
            print '";"' . "\n";
            $perent = "$perent" . "/" . shift(@vars);
            $peon   = scalar @vars;
        }
    }
    return 1;
}

Das zwar ist nicht Deine eigentliche Frage, aber die Funktion hat erhebliches Verbesserungspotential:

$peon ist überflüssig. Du kannst gleich @vars nehmen. In skalarem Kontext liefert das die Anzahl der Elemente im Array.
Du hast zwei äußere Schleifen, brauchst aber nur eine. $sequence wird nie verwendet.
was soll das return 1?
das innere print "/$_" foreach @vars; lässt sich eleganter durch perlfunc join ersetzen

Damit ergibt sich dann folgender ungetesteter Code

Code (perl): (dl )

sub array_tree {
    my @vars   = @_;
    my $perent = shift @vars;
    while (@vars) {
       print '"$perent";"/'
          .join("/",@vars)
            ."\";\"\n";
        $perent .= "/" . shift(@vars);
    }
}

Dakarus

2013-12-18 14:07

User since
2013-12-17
3 Artikel
BenutzerIn

Danke fürs reinschreiben, vieles ist sicher noch rumgehake.

View all threads created 2013-12-18 12:09.