Elegante Syntax für Hash-Def (gelöst) (Allgemeines zu Perl)

[thread]14872[/thread]

Elegante Syntax für Hash-Def [gelöst]

Leser: 18

Articles: hide open all | hide show old branches

+12 replies
bianca

2010-03-27 12:41
User since
2009-09-13
6978 Artikel
BenutzerIn
Guten Tag!

Habe hier ein zweidimensionales Hash zu definieren für eine Tabelle.
Meine Syntax gefällt mir nicht, ich bin überzeugt, es gibt in Perl schönere und vor allem kürzere Methoden.
Code (perl): (dl )

1 2 3 4 5 6 7 8

#!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my %tabelle; $tabelle{head}{(keys %{$tabelle{head}}) + 1} = 'foo'; $tabelle{typ}{(keys %{$tabelle{typ}}) + 1} = 'N'; $tabelle{head}{(keys %{$tabelle{head}}) + 1} = 'bar'; $tabelle{typ}{(keys %{$tabelle{typ}}) + 1} = 'A'; print Dumper(%tabelle);
Wie kann man das eleganter schreiben?
Danke
10 print "Hallo"
20 goto 10
- +11 replies
- esskar
  
  2010-03-27 12:51
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  wie benutzt du hash-of-hash und nicht hash-of-array?
  
  also so
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  #!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my %tabelle; push @{ $tabelle{head} }, 'foo', 'bar'; push @{ $tabelle{typ} }, 'N', 'A'; print Dumper(%tabelle);
  
  bzw
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my %tabelle = ( head => [qw/foo bar/], typ => [qw/N A/] ); print Dumper(%tabelle);
  - +10 replies
  - bianca
    
    2010-03-27 12:58
    User since
    2009-09-13
    6978 Artikel
    BenutzerIn
    
    2010-03-27T11:51:58 esskar
    wie benutzt du hash-of-hash und nicht hash-of-array?
    
    Ist unübersichtlich. Meine Werte sind nicht so kurz wie foo und bar.
    
    Ist das hier i.O. oder gibt's Fallen?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    #!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my %tabelle; foreach my $line (split /\n/,<<KONSTANTE foo N bar A KONSTANTE ) { $line =~ s/\t\t/\t/g while $line =~ /\t\t/; ( $tabelle{head}{(keys %{$tabelle{head}}) + 1}, $tabelle{typ}{(keys %{$tabelle{typ}}) + 1}, ) = split /\t/,$line; } print Dumper(%tabelle);
    
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - renee
      
      2010-03-27 13:14
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Unabhängig vom Problem:
      
      Das hier:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      $line =~ s/\t\t/\t/g while $line =~ /\t\t/; ( ... ) = split /\t/,$line;
      
      würde ich eher
      
      Code (perl): (dl )
      
      ( ... ) = split /\t+/, $line;
      
      schreiben
      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/
      - +2 replies
      - bianca
        
        2010-03-27 13:17
        
        User since
        2009-09-13
        6978 Artikel
        BenutzerIn
        
        2010-03-27T12:14:43 renee
        würde ich eher
        
        Code (perl): (dl )
        
        ( ... ) = split /\t+/, $line;
        
        schreiben
        
        Jau, hast Recht, hab ich gemacht.
        
        Frage: Wenn ich das auf einen Mac hochlade (der ja m.W. nur \r kennt) würde das trotzdem funktionierten mit dem Trenner \n?
        10 print "Hallo"
        20 goto 10
        
        renee
        
        2010-03-27 13:20
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Du solltes dann beim Aufteilen der Zeilen vielleicht mit $/ arbeiten... Da ist standardmäßig das "richtige" drin...
        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/
    - +6 replies
    - renee
      
      2010-03-27 13:16
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      2010-03-27T11:58:11 bianca
      2010-03-27T11:51:58 esskar
      wie benutzt du hash-of-hash und nicht hash-of-array?
      
      Ist unübersichtlich. Meine Werte sind nicht so kurz wie foo und bar.
      Ich würde es trotzdem machen...
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      #!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my %tabelle; foreach my $line (split /\n/,<<KONSTANTE foo N bar A KONSTANTE ) { my ($head,$typ) = split /\t+/, $line; push @{ $tabelle{head} }, $head; push @{ $tabelle{typ} }, $typ; } print Dumper(%tabelle);
      
      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/
      - +5 replies
      - bianca
        
        2010-03-27 13:20
        
        User since
        2009-09-13
        6978 Artikel
        BenutzerIn
        
        2010-03-27T12:16:26 renee
        Ich würde es trotzdem machen...
        
        Neee, kann ich nicht, muss mit dem Hash später in anderen fertigen Routinen weiterarbeiten.
        Es muss zwingend diese Struktur haben:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        $VAR1 = 'head'; $VAR2 = { '1' => 'foo', '2' => 'bar' }; $VAR3 = 'typ'; $VAR4 = { '1' => 'N', '2' => 'A' };
        
        Euer Vorschlag macht daraus
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        $VAR1 = 'head'; $VAR2 = [ 'foo', 'bar' ]; $VAR3 = 'typ'; $VAR4 = [ 'N', 'A' ];
        
        Das passt nicht rein.
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        renee
        
        2010-03-27 13:22
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Dann ist aber nicht mehr "Unübersichtlichkeit" der Grund...
        
        Dann mach halt:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        #!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my %tabelle; foreach my $line (split /\n/,<<KONSTANTE foo N bar A KONSTANTE ) { my ($head,$typ) = split /\t+/, $line; my $counter = scalar keys %{ $tabelle{head} || {} }; $tabelle{head}->{$counter} = $head; $tabelle{typ}->{$counter} = $typ; } print Dumper(%tabelle);
        
        Edit: Noch ein "|| {}" eingebaut
        Last edited: 2010-03-27 13:25:32 +0100 (CET)
        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/
        
        +3 replies
        
        bianca
        
        2010-03-27 13:31
        
        User since
        2009-09-13
        6978 Artikel
        BenutzerIn
        
        2010-03-27T12:22:38 renee
        Dann ist aber nicht mehr "Unübersichtlichkeit" der Grund...
        
        Ja, sorry, hatte ich unterschlagen, mein Fehler.
        
        Hab jetzt einiges eingebaut aber wie bekomme ich $/ noch elegant in das split rein?
        split /$// geht nicht und split /"$/"/ geht auch nicht?
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        #!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my %tabelle; my $trenner = $/; foreach my $line (split /$trenner/,<<KONSTANTE foo N bar A KONSTANTE ) { my $counter = (keys %{$tabelle{head}}) + 1; ($tabelle{head}->{$counter},$tabelle{typ}->{$counter}) = split /\t+/,$line; } print Dumper(%tabelle);
        
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        renee
        
        2010-03-27 13:35
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Diese zwei Varianten sollte es tun:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        split m!$/!, <<KONSTANTE; KONSTANTE # vs split "$/", <<KONSTANTE; KONSTANTE
        
        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/
        
        bianca
        
        2010-03-27 13:38
        
        User since
        2009-09-13
        6978 Artikel
        BenutzerIn
        
        2010-03-27T12:35:04 renee
        Diese zwei Varianten sollte es tun:
        
        Extrem geil, Danke DIR vielmals!
        
        Meine Endlösung also folgende:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        #!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my %tabelle; foreach (split m!$/!, <<KONSTANTE foo N foo2 X bar A KONSTANTE ) { my $counter = (keys %{$tabelle{head}}) + 1; ($tabelle{head}->{$counter},$tabelle{typ}->{$counter}) = split /\t+/,$_; } print Dumper(%tabelle);
        
        10 print "Hallo"
        20 goto 10

View all threads created 2010-03-27 12:41.