Mitbekommen, wenn ein Block verlassen wird? (Allgemeines zu Perl)

[thread]17943[/thread]

Mitbekommen, wenn ein Block verlassen wird?

Tags: perl5 Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+5 replies
Muffi

2012-11-29 17:00
User since
2012-07-18
1465 articles
BenutzerIn
Gibts in Perl eine Möglichkeit mitzukriegen, wenn ein Codeblock verlassen wird?
DESTROY bei Objekten muss ja nicht zeitnah aufgerufen werden.

Das was ich mir mal zusammengezimmert hab war:
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 25 26 27 28 29 30 31 32 33 34

package TIE; sub TIESCALAR { my $class = shift; my $code = shift; return bless \$code => $class; } sub DESTROY { ${$_[0]}->(); undef ${$_[0]}; } package BlockExit; sub do { my $var; tie $var, 'TIE', shift; return \$var; } package main; if (1) { my $onExit = BlockExit::do(sub { say "RAUS!"; }); say "DRIN"; } say "DRAUSSEN";
Aber schön sieht auch irgendwie anders aus. Und ich wär mir nicht mal sicher, ob das zwingend zeitnah passieren muss. Weiss das wer?
1 + 1 = 10
- +4 replies
- murphy
  
  2012-11-29 22:53
  
  User since
  2004-07-19
  1776 articles
  HausmeisterIn
  
  Da Perl Speichermanagement über Referenzzähler betreibt, würde ich erwarten, dass der Destruktor eines nicht mehr referenzierten Objektes sofort ausgeführt wird.
  
  Die gleiche Strategie müsste eigentlich auch ohne tie mit einer normalen Referenz auf ein Objekt, das eine DESTROY Methode besitzt, umgesetzt werden können.
  
  perlobj meint zu dem Thema:
  Quote
  [...]
  When the last reference to an object goes away, the object is destroyed. If you only have one reference to an object stored in a lexical scalar, the object is destroyed when that scalar goes out of scope.
  [...]
  
  When C++ is your hammer, every problem looks like your thumb.
  - +3 replies
  - Muffi
    
    2012-11-30 08:45
    
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Hmm, ich dachte im Hinterkopf zu haben, dass man nicht sagen kann, wann DESTROY bei Objekten genau aufgerufen wird.
    1 + 1 = 10
    - +2 replies
    - topeg
      
      2012-11-30 09:00
      
      User since
      2006-07-10
      2611 articles
      BenutzerIn
      
      Das ist bei Java so. Und bei Sprachen mit einem Garbage-Collector Intervall gesteuert und nicht Interrupt gesteuert arbeitet.
      Perl arbeitet Interrupt gesteuert. Wann immer ein Gültigkeitsbereich verlassen wird springt der GarbageCollector an und macht den Speicher frei.
      Um dabei Perl nicht zu sehr aus zu bremsen Gibt es nur einen einfachen Referenzzähler. Der kann z.B zirkuläre Referenzen nicht erkennen. Java und andere Sprachen, benutzen einen Komplexeren Algorithmus um Auch so was zu erkennen. Da das verhätnismäßig langsam ist, Läuft der GarbageCollector in einem eigenen Thread, der zeitgesteuert angestoßen wird.
      - Muffi
        
        2012-11-30 09:03
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Dann hab ich das doch irgendwie falsch im Kopf gehabt. Alles was ich jetzt als Doku gefunden hab sagt auch, dass das sofort weggeputzt wird.
        1 + 1 = 10

View all threads created 2012-11-29 17:00.