"Unter"-Hash move'en? (Allgemeines zu Perl)

[thread]14153[/thread]

"Unter"-Hash move'en?

Leser: 21

Articles: hide open all | hide show old branches

+26 replies
bianca

2009-10-18 14:22
User since
2009-09-13
7016 Artikel
BenutzerIn
Hi!

Folgender Hash:
Code (perl): (dl )

1 2 3 4

my %test; $test {ebene1_anders} = 'test_erste_ebene'; $test{ebene1}{test1} = 'test 1, 2. Ebene'; $test{ebene1}{test2} = 'test 2, 2. Ebene';
Nun möchte ich, dass aus dem Hash %test der ganze "Baum" {ebene1} in einen ganz neuen Hash namens %test2 ge-move'd wird.
Geht das nur per foreach() mit delete() oder geht's auch schöner/schneller/perliger?
10 print "Hallo"
20 goto 10
- +25 replies
- pq
  
  2009-10-18 14:30
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  $test2{ebene1} = delete $test{ebene1};
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +19 replies
  - bianca
    
    2009-10-18 14:40
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Das sieht schon ziemlich easy aus, aber das Ergebnis muss bitte eine Ebene höher.
    
    Nach dem Move soll 'test 1, 2. Ebene' in $test2{test1} stehen und nicht in $test2{ebene1}{test1}.
    10 print "Hallo"
    20 goto 10
    - +18 replies
    - pq
      
      2009-10-18 14:44
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      Code (perl): (dl )
      
      1 2
      
      my $tmp = delete $test{ebene1}; @test2{ keys %$tmp } = values %$tmp;
      
      ist's so recht?
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +14 replies
      - bianca
        
        2009-10-18 14:46
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Geil, hab vielen Dank!
        10 print "Hallo"
        20 goto 10
        
        +13 replies
        
        pq
        
        2009-10-18 14:52
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wenn %hash2 vorher leer ist, geht auch:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        my $tmp = delete $hash{ebene1}; %hash2 = %$tmp; # oder gleich %hash2 = %{ delete $hash{ebene1} };
        
        edit: %test in %hash umbenannt
        Last edited: 2009-10-18 16:58:45 +0200 (CEST)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        bianca
        
        2009-10-18 14:53
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Jau, das ist doch mal perlig!
        
        Klasse, danke Dir.
        Ergänzung war gut, denn mein neuer Hash ist tatsächlich leer.
        10 print "Hallo"
        20 goto 10
        
        +8 replies
        
        leo11
        
        2009-10-18 16:29
        
        User since
        2008-08-14
        250 Artikel
        BenutzerIn
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        DB<6> print Dumper \%test $VAR1 = { 'ebene1' => { 'test1' => 'test 1, 2. Ebene', 'test2' => 'test 2, 2. Ebene' }, 'ebene1_anders' => 'test_erste_ebene' }; DB<7> my $tmp = delete $test{ebene1}; DB<8> %test2 = %$tmp; DB<9> print Dumper \%test $VAR1 = { 'ebene1_anders' => 'test_erste_ebene' }; DB<10> print Dumper \%test2 $VAR1 = {};
        
        Wieso enthält %test2 nicht die gelöschten Werte?
        
        +5 replies
        
        bianca
        
        2009-10-18 16:42
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Vielleicht weil Du in Zeile 8 indirekt
        
        Code (perl): (dl )
        
        %test2 = %delete $test{ebene1};
        
        anstatt
        
        Code (perl): (dl )
        
        %test2 = %{ delete $test{ebene1} };
        
        verwendest?
        
        Edit: "in Zeile 8 indirekt" ergänzt
        Last edited: 2009-10-18 16:44:16 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        leo11
        
        2009-10-18 16:47
        
        User since
        2008-08-14
        250 Artikel
        BenutzerIn
        
        schon klar. Der 2'te von pq gezeigte Weg mit
        
        Code (perl): (dl )
        
        %test2 = %{ delete $test{ebene1} };
        
        geht auch.
        Trotzdem wüßte ich gern wieso das mit
        
        Code (perl): (dl )
        
        1 2
        
        my $tmp = delete $test{ebene1}; %test2 = %$tmp;
        
        nicht geht.
        
        +2 replies
        
        bianca
        
        2009-10-18 16:50
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Leienhaft würde ich sagen, weil man die indirekte Ansprache von Hashes nicht ohne geschweifte Klammer machen kann.
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2009-10-18 16:51
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        bitte was?
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        pq
        
        2009-10-18 16:50
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        also hier geht das:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        perl -w my %test = ( 'ebene1' => { 'test1' => 'test 1, 2. Ebene', 'test2' => 'test 2, 2. Ebene' }, 'ebene1_anders' => 'test_erste_ebene', ); use Data::Dumper; my $tmp = delete $test{ebene1}; my %test2 = %$tmp; print Dumper \%test; print Dumper \%test2; __END__ $VAR1 = { 'ebene1_anders' => 'test_erste_ebene' }; $VAR1 = { 'test1' => 'test 1, 2. Ebene', 'test2' => 'test 2, 2. Ebene' };
        
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +2 replies
        
        Gast LanXoff
        
        2009-10-18 16:53
        
        weil du im Debugger kein my vernünftig nutzen kannst.
        
        (jede Zeile wird evaluiert und hat ihren eigenen Scope)
        
        ...gehört zu den pissigeren Sachen in Perl
        
        lass das my also weg!
        
        leo11
        
        2009-10-18 16:59
        
        User since
        2008-08-14
        250 Artikel
        BenutzerIn
        
        Guest LanXoff
        lass das my also weg!
        
        Und schon geht es.
        
        +3 replies
        
        Gast LanXoff
        
        2009-10-18 16:56
        
        2009-10-18T12:52:01 pq
        wenn %hash2 vorher leer ist, geht auch:
        ...
        
        Code (perl): (dl )
        
        %test2 = %{ delete $test{ebene1} };
        
        wieso soll %test2 (resp "%hash2") vorher leer sein?
        
        +2 replies
        
        pq
        
        2009-10-18 16:57
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Guest LanXoff
        wieso soll %test2 (resp "%hash2") vorher leer sein?
        
        ich meinte %hash2. wenn er nicht leer ist, würde man damit alle werte überschreiben.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        Gast LanXoff
        
        2009-10-18 17:05
        
        OK, ich verstehe wie du die Fragestellung verstehst, hängt davon ab ob man von "moven" auch "mergen" erwartet.
      - +3 replies
      - Gast LanXoff
        
        2009-10-18 17:40
        
        wenn gewollt ist dass die Einträge gemergt werden, geht auch
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my $tmp = delete $test{ebene1}; %test2=( %test2, %$tmp ); # oder einzeilig %test2=( %test2, %{ delete $test{ebene1} } );
        
        die Reihenfolge entscheidet hier Wessen werte eventuell überschrieben werden.
        
        mod-edit pq: falsches quote-tag entfernt
        Last edited: 2009-10-18 18:04:49 +0200 (CEST)
        
        +2 replies
        
        pq
        
        2009-10-18 17:51
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        du hast meinen code im zitat verändert. das habe ich so nie geschrieben.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        Gast LanXoff
        
        2009-10-18 18:02
        
        oh cut&paste fehler.
        
        hab natürlich _ich_ so geschrieben!
  - +5 replies
  - bianca
    
    2009-10-18 14:59
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Kleine Frage noch dazu:
    
    Code (perl): (dl )
    
    if (delete $test{ebene1_anders}) {}
    
    Ist die Rückgabe das Ergebnis von delete im Sinne von Erfolg/Mißerfolg oder ist es auf jeden Fall immer der Inhalt von $test{ebene1_anders} ?
    10 print "Hallo"
    20 goto 10
    - +4 replies
    - pq
      
      2009-10-18 15:00
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      perldoc -f delete
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +3 replies
      - bianca
        
        2009-10-18 15:05
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-10-18T13:00:36 pq
        perldoc -f delete
        
        und
        
        Code (perl): (dl )
        
        if ()
        
        ist immer ein "scalar context", richtig?
        10 print "Hallo"
        20 goto 10
        
        bianca
        
        2009-10-18 16:00
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Formuliere die Frage anders:
        
        Code (perl): (dl )
        
        if (delete $test{ebene1_anders}) {}
        
        ist scalar context?
        10 print "Hallo"
        20 goto 10
        
        MatthiasW
        
        2009-10-18 20:01
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Soetwas brauchst du doch nicht nachzufragen, dass kann man schnell selbst testen:
        
        Code (perl): (dl )
        
        perl -E 'sub foo{$_=wantarray?"list":"scalar"}if(foo){say}'
        
        Sollte deine Frage beantworten ;-)
        
        Es ist immer der Inhalt von $test{ebene1_anders}. Der Code in dem if wird also nur dann ausgeführt, wenn sich hinter dem Schlüssel ebene1_anders des Hashes %test ein wahrer Wert verbirgt.
        
        Erfolg/Mißerfolg (im Sinne von: Eintrag existierte, oder eben nicht) kriegst du damit also nicht raus. Dafür gibt es exists.
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View all threads created 2009-10-18 14:22.