Frage zur richtigen Speicherverwendung (Allgemeines zu Perl)

[thread]14537[/thread]

Frage zur richtigen Speicherverwendung

Leser: 22

Articles: hide open all | hide show old branches

+15 replies
bianca

2010-01-24 14:32
User since
2009-09-13
7016 Artikel
BenutzerIn
Bin gerade etwas unsicher, ob ich die richige Syntax verwende.
Ich möchte, dass mein Hash %hash nur EINMAL im Speicher gehalten wird und auch nicht temporär oder anderweitig intern vervielfältigt wird.
Außerdem soll es so performant wie möglich sein, weil es zig mal durchlaufen werden muss.

Ist folgender Code dazu korrekt?
Wenn ich nach meinem Windows Task-Manager gehe ist der Code Scheiße, weil die CPU auf 100 % hoch geht und das ganze Teil mit sub ca. 5 Sekunden läuft. Speicher braucht ca. 3 MB, was sich nicht wesentlich erhöt nach dem sleep.

Wie kann ich das optimieren?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

#!/usr/bin/perl -w use strict; use warnings; use diagnostics; my $anzahl = 1000; my %hash; for (1..$anzahl) { $hash{'foo' . $_} = 'test'; } print "Pause, fertig definiert\n"; sleep 5; print "Laeuft weiter\n"; my $start = time (); for my $nr (1..$anzahl) { # $hash{'foo' . $nr} = "test$nr"; # Variante direkt %hash = &test (\%hash,$nr); # Variante mit sub } print "Laufzeit: " . (time () - $start) . " Sekunden\n"; sub test { my %hash = %{$_[0]}; my $nr = $_[1]; $hash{'foo' . $nr} = "test$nr"; return %hash; }
10 print "Hallo"
20 goto 10
- +4 replies
- murphy
  
  2010-01-24 14:52
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  In der Subroutine test wird in Zeile 20 eine Kopie des übergebenen Hashes erzeugt. Anschließend wird in Zeile 16 der alte Hash wiederum destruktiv durch die Kopie ersetzt. Der gesamte Hash wird also in jedem Schleifendurchlauf zweimal neu aufgebaut und zeitweise doppelt im Speicher gehalten. Man könnte etwas Speicher und Zeit sparen, wenn man stattdessen direkt auf die übergebene Referenz zugreifen würde. Ersatz für sub test ab Zeile 19:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  sub test { my ($hr, $nr) = @_; $hr->{"foo$nr"} = "test$nr"; }
  
  Ersatz für Zeile 16:
  
  Code (perl): (dl )
  
  &test(\%hash, $nr);
  
  (edit: Codebeispiel korrigiert)
  Last edited: 2010-01-25 11:42:01 +0100 (CET)
  When C++ is your hammer, every problem looks like your thumb.
  - +3 replies
  - bianca
    
    2010-01-24 15:25
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Danke, das ist Klasse!
    
    Frage: Wie lösche ich innerhalb der sub das ganze Hash?
    $hr = (); klappt nicht, beim nächsten Durchlauf kommt das ganze Hash wieder in die sub rein.
    
    Danke
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Gast wer
      
      2010-01-24 15:37
      
      Code: (dl )
      
      %{$hash_ref}=();
      - bianca
        
        2010-01-24 15:44
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Danke Dir.
        10 print "Hallo"
        20 goto 10
- +10 replies
- Gast wer
  
  2010-01-24 14:52
  In Zeile 20 erstellst du ein Kopie.
  besser:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  sub test { my $hash_ref = $_[0]; my $nr = $_[1]; $hash_ref->{'foo' . $nr} = "test$nr"; }
  
  Und der Aufruf:
  
  Code (perl): (dl )
  
  test(\%hash,$nr);
  
  Die Regel ist einfach. Bei einer Referenz wird die Adresse zum Speicherort kopiert wo sich der Wert/Array/Hash befindet, nicht der eigentliche Wert/Array/Hash. Sobald du derefenzierst erzeugst du eine Kopie.
  - +2 replies
  - murphy
    
    2010-01-24 14:59
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Beim Dereferenzieren wird noch keine Kopie erzeugt, ansonsten hätte ja jeder Zugriff auf ein Element eines Hashes über eine Referenz zur Folge, dass der Hash kopiert würde.
    
    Das Problem ist vielmehr, dass eine Zuweisung wie my %hash = ...; auf der rechten Seite einen Listenkontext hat und ein Hash im Listenkontext in eine Folge abwechselnder Schlüssel und Werte expandiert. Steht also links und rechts des Zuweisungsoperators ein Hash, so wird der rechte Hash zunächst in eine Liste verwandelt und dann der linke Hash mit den Listenelementen als Inhalt neu aufgebaut.
    When C++ is your hammer, every problem looks like your thumb.
    - Gast wer
      
      2010-01-24 15:38
      
      hast recht.
  - +7 replies
  - Hagen
    
    2010-01-24 15:13
    User since
    2007-09-06
    233 Artikel
    BenutzerIn
    
    Ist nicht ganz zum Thema, aber vielleicht kann man das kurz erklären weil es hier verwendet wurde:
    
    Code (perl): (dl )
    
    1 2
    
    $hr->{foo$nr} = "test$nr"; $hr->{'foo'.$nr} = "test$nr";
    
    macht beides das gleiche. Gibt es Vor- bzw. Nachteile bei der Verwendung von ' ... oder ist das egal?
    ... wenn man mal von der Lesbarkeit absieht.
    Gruß
    Hagen
    - murphy
      
      2010-01-24 16:42
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Doppelte Anführungszeichen mit interpolierten Variablen werden vom Perlcompiler intern in einfache Anführungszeichen und Stringverkettungsoperationen umgesetzt. Geschweifte Klammern, die einen Hashindex einschließen implizieren wiederum doppelte Anführungszeichen. Welche Schreibweise man wählt ist Geschmackssache und sollte zur Laufzeit keinen Unterschied machen.
      
      Zusammengefasst:
      $hr->{foo$nr} ⇔ $hr->{"foo$nr"} ⇔ $hr->{'foo' . $nr}
      
      Korrektur: $hr->{foo$nr} ist, entgegen meiner Behauptung nicht äquivalent mit $hr->{"foo$nr"}. Man kann die Quotes anscheinend nur dann weglassen, wenn im Hashindex keine Variablenreferenzen vorkommen.
      Last edited: 2010-01-25 11:40:53 +0100 (CET)
      When C++ is your hammer, every problem looks like your thumb.
    - +5 replies
    - pq
      
      2010-01-25 10:58
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      hm, merkwürdig. bei mir kommt da bei der ersten zeile folgender fehler:
      "Can't call method "foo" without a package or object reference"
      
      wieso geht das bei dir und murphy fehlerfrei?
      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
      - Taulmarill
        
        2010-01-25 11:08
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Glaube nicht, dass das bei den anderen läuft. Schau dir mal an, was B::Deparse daraus macht:
        
        Code (perl): (dl )
        
        1 2
        
        $ perl -MO=Deparse -e'$hr->{foo$nr} = 1' $$hr{$nr->foo} = 1;
        
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        +2 replies
        
        pq
        
        2010-01-25 11:14
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        deswegen hat es mich ja gewundert.
        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
        
        Taulmarill
        
        2010-01-25 11:17
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Ist sogar dokumentiert. Gefunden in perldata:
        
        Quote
        In fact, an identifier within such curlies is forced to be a string, as is any simple identifier within a hash subscript. Neither need quoting. Our earlier example, $days{'Feb'} can be written as $days{Feb} and the quotes will be assumed automatically. But anything more complicated in the subscript will be interpreted as an expression. This means for example that $version{2.0}++ is equivalent to $version{2}++ , not to $version{'2.0'}++ .
        
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - murphy
        
        2010-01-25 11:36
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        2010-01-25T09:58:37 pq
        [...]
        wieso geht das bei dir und murphy fehlerfrei?
        
        Weil ich es gar nicht getestet habe — ich habe mich offensichtlich falsch erinnert, was das automatische Quoting bei Hashindizes angeht.
        
        Sorry für die Fehlinformation :-(
        When C++ is your hammer, every problem looks like your thumb.

View all threads created 2010-01-24 14:32.