Hash Größe ermitteln (solved) (Allgemeines zu Perl)

[thread]18309[/thread]

Hash Größe ermitteln [solved]

Tags: perl5 hash größe Similar Threads

Readers: 20

Articles: hide open all | hide show old branches

+14 replies
bianca

2013-05-07 19:02
User since
2009-09-13
7016 articles
BenutzerIn
'nabend!

Geht das hier auch eleganter, weniger rechen- und speicherintensiv und schneller?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl -w use strict; use warnings; my %FORM = ( a=>'abc', b=>'defg', ); print "Test: '".length(join('',map {defined($FORM{$_}) ? $_.$FORM{$_} : $_} keys %FORM))."'\n";
Ich hätte gern die Gesamtgröße des Hashes, also die Keys + die Values.
Im Beispiel muss 9 rauskommen.
10 print "Hallo"
20 goto 10
- +8 replies
- pq
  
  2013-05-07 19:11
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  say do { no warnings; length join "", %FORM };
  oder
  say do { no warnings; my $sum; $sum += length for %FORM; $sum };
  
  vielleicht interessiert dich aber auch Devel::Size
  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
  - +7 replies
  - bianca
    
    2013-05-07 19:18
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    2013-05-07T17:11:56 pq
    say do { no warnings; length join "", %FORM };
    Das bringt nicht 9 sondern 5 raus.
    
    2013-05-07T17:11:56 pq
    say do { no warnings; my $sum; $sum += length for %FORM; $sum };
    Das ist gut! Danke dir.
    10 print "Hallo"
    20 goto 10
    - +6 replies
    - pq
      
      2013-05-07 19:25
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      2013-05-07T17:18:10 bianca
      2013-05-07T17:11:56 pq
      say do { no warnings; length join "", %FORM };
      Das bringt nicht 9 sondern 5 raus.
      
      welche perl-version?
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      $ perl -wE' my %FORM = ( a => "abc", b => "defg" ); say do { no warnings; length join "", %FORM }; say $];' 9 5.010001 $ perl -wE' my %FORM = ( a => "abc", b => "defg" ); say do { no warnings; length join "", %FORM }; say $];' 9 5.016000
      
      ggfs. bugreport erstellen.
      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
      - +5 replies
      - bianca
        
        2013-05-07 19:32
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2013-05-07T17:25:25 pq
        2013-05-07T17:18:10 bianca
        2013-05-07T17:11:56 pq
        say do { no warnings; length join "", %FORM };
        Das bringt nicht 9 sondern 5 raus.
        
        welche perl-version?
        
        Quote
        This is perl, v5.10.1 (*) built for MSWin32-x86-multi-thread
        
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        pq
        
        2013-05-07 19:35
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        da hast du aber dann eine kaputte version.
        was sagt:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        use 5.010; my %FORM = ( a => "abc", b => "defg" ); say for %FORM; say join "", %FORM;
        
        ?
        oder ist dir das egal?
        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
        
        2013-05-07 20:12
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2013-05-07T17:35:48 pq
        da hast du aber dann eine kaputte version.
        was sagt:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        use 5.010; my %FORM = ( a => "abc", b => "defg" ); say for %FORM; say join "", %FORM;
        
        ?
        
        Quote
        a
        abc
        b
        defg
        aabcbdefg
        
        2013-05-07T17:35:48 pq
        oder ist dir das egal?
        Nein, keineswegs.
        Es verunsichert mich, dass wir verschiedene Ergebnisse zu haben scheinen. Aber ich mache bestimmt wieder irgend was falsch.
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        pq
        
        2013-05-07 20:16
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        und was sagt:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        use 5.010; my %FORM = ( a => "abc", b => "defg" ); say for %FORM; say join "", %FORM; my $x = length join "", %FORM; say $x; say length join "", %FORM;
        
        ?
        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
        
        2013-05-07 20:23
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2013-05-07T18:16:00 pq
        und was sagt:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        use 5.010; my %FORM = ( a => "abc", b => "defg" ); say for %FORM; say join "", %FORM; my $x = length join "", %FORM; say $x; say length join "", %FORM;
        
        ?
        
        Quote
        a
        abc
        b
        defg
        aabcbdefg
        9
        9
        
        Du, ich glaube ich spinne langsam. Jetzt bekomme ich mit do { no warnings; length join "", %FORM } auch die 5 von vorhin nicht mehr reproduziert. Langsam drehe ich komplett durch. Bin mir 100 % sicher, dass da vorhin 5 stand. Aber jetzt nicht mehr.
        Habe genau das Script von vorhin leider nicht mehr.
        10 print "Hallo"
        20 goto 10
- +4 replies
- rosti
  
  2013-05-07 19:36
  User since
  2011-03-19
  3463 articles
  BenutzerIn
  Wenn Dich eine Kopie nicht stört:
  
  Code (perl): (dl )
  
  1 2 3
  
  # betrachte den hash als array my @helper = %FORM; print length join '', @helper;
  - pq
    
    2013-05-07 19:38
    
    User since
    2003-08-04
    12208 articles
    Admin1
    
    und wozu die übung?
    print length join "", %FORM
    geht doch genauso.
    bzw. wenn bei bianca meine variante kaputt ist, wird es auch diese sein.
    kopie nicht nötig.
    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
    
    2013-05-07 20:13
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    2013-05-07T17:36:38 rosti
    Wenn Dich eine Kopie nicht stört:
    
    Eine Kopie hat meine Ursprungsversion ja mehr oder weniger temporär auch schon angelegt, wollte ich eigentlich verhindern.
    10 print "Hallo"
    20 goto 10
  - bloonix
    
    2013-05-08 10:17
    
    User since
    2005-12-17
    1615 articles
    HausmeisterIn
    
    2013-05-07T17:36:38 rosti
    # betrachte den hash als array
    
    Ähm, wie bitte? Listenkontext und so, ne? Also bitte, du bist doch auch kein Anfänger mehr :-)
    What is a good module? That's hard to say.
    What is good code? That's also hard to say.
    One man's Thing of Beauty is another's man's Evil Hack.
- bloonix
  
  2013-05-08 10:15
  User since
  2005-12-17
  1615 articles
  HausmeisterIn
  Ein paar grundlegende Hints:
  
  "-w" + "use warnings" macht keinen Sinn. Lass "-w" weg. Warnungen aus Fremdmodulen will man nicht sehen, eventuell nur fürs Debugging.
  
  %FORM bitte klein schreiben. Es gibt Ideen zum Perlstyle - in den Perldocs zu finden.
  
  Code: (dl )
  
  1 2 3
  
  our $FORM; my $form; package Form::Action;
  
  So ist es deutlich lesbarer (indent 4, Leerzeichen zwischen =>):
  
  Code: (dl )
  
  1 2 3 4
  
  my %form = ( a => 'abc', b => 'defg' );
  
  Nun zu deiner Frage:
  
  Code: (dl )
  
  print length join "", %form;
  
  What is a good module? That's hard to say.
  What is good code? That's also hard to say.
  One man's Thing of Beauty is another's man's Evil Hack.

View all threads created 2013-05-07 19:02.