do $file : subs in $file überschreiben meine subs! (Allgemeines zu Perl)

[thread]14471[/thread]

do $file : subs in $file überschreiben meine subs!

Leser: 18

Articles: hide open all | hide show old branches

+8 replies
Gast sman

2010-01-10 18:19
Hi,

ich arbeite mit Perl von deer Commandozeile, rufe dort script.pl auf.
Dieses benutzt ein selbstgeschriebenes package objekte.
Das package enthält ein Objekt mit verschiedenen subs, z.B.
Code (perl): (dl )

sub HR { return "-"; }
Diese sub wird im Programm mehrfach aufgerufen, aber besonders im Destruktor
Code (perl): (dl )

DESTROY { my $s = shift; print $s->HR; }
Der Destruktor meines Objektes wird automatisch beim Beenden von scrpt.pl aufgerufen.

Die Probleme entstehen, wenn ich in einer anderen sub Machwas ein anderes Perl-Script aufrufen möchte:
Code (perl): (dl )

sub Machwas { eval { do "anderes.pl"; }; return 1; }
Dieses andere Script ist völlig simpel, keine objekte oder module, sondern hat lediglich normale subs, z.B. auch eine
Code (perl): (dl )

sub HR { print "-" x ( $_[0] ? $_[0] : 79 ) ."\n"; }
Führe ich nun script.pl aus, und starte darüber dieses "do anderes.pl", geht alles prima, und es beendet auch das friedlich. Danach - immernoch in script.pl, wird HR immer richtig angezeigt, wie vorher auch, wenn es mal aus einer sub heraus mit $s->HR benutzt wird.

Wenn nun jedoch script.pl beende, springt ja der Destruktor meines Objekts an. Und dieser schreibt nun unendlich viele "-" hintereinander ins Fenster, bis ich mit Strg+C abbrechen muss.

Wie kommt es zu diesem komischen Verhalten? Ich verstehe das nicht ganz. Da ich erst kürzlich mit Objektorientierung angefangen hab, hab ich vielleicht etwas übersehen. Aber das Programm ist bisher sehr groß und alles bis auf dieses funktioniert fehlerfrei. Vielleicht kann man auch irgendwie do $file daran hindern subs zu überschreiben? Nach perldoc sollte das ja eigentlich sowieso nicht gehen...

Grüße
Martin
- +7 replies
- pq
  
  2010-01-10 18:33
  User since
  2003-08-04
  12209 Artikel
  Admin1
  Guest sman
  
  Code (perl): (dl )
  
  sub Machwas { eval { do "anderes.pl"; }; return 1; }
  
  dazu kann ich nur generell sagen, dass man sowas heutzutage nicht macht und nicht machen muss.
  IMHO viel sauberer wäre es, wenn du hier stattdessen ein modul mit eigenem package laden würdest und daraus eine subroutine aufrufen würdest. etwa:
  
  Code (perl): (dl )
  
  1 2
  
  require Anderes; Anderes::machwas();
  
  Quote
  Dieses andere Script ist völlig simpel, keine objekte oder module, sondern hat lediglich normale subs, z.B. auch eine
  
  Code (perl): (dl )
  
  sub HR { print "-" x ( $_[0] ? $_[0] : 79 ) ."\n"; }
  
  genau dadurch überschreibt es aber die aktuelle sub HR, da es in dem kontext des packages ausgeführt wird.
  
  Quote
  Vielleicht kann man auch irgendwie do $file daran hindern subs zu überschreiben? Nach perldoc sollte das ja eigentlich sowieso nicht gehen...
  
  wo genau liest du in perldoc, dass man keine subs überschreiben kann?
  das kann man, es sollte nur eine warnung erzeugen. strict und warnings benutzt du, oder? wenn nicht, unbedingt use strict lesen.
  die lösung ist nicht, die sub nicht überschreiben zu lassen, sondern die sub ganz einfach sauber ihrem eigenen package zuzuordnen. dann hat man das problem von vorneherein nicht.
  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
    
    2010-01-10 18:41
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    nachtrag: Anderes.pm sähe dann so aus:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    package Anderes; use strict; use warnings; sub machwas { # tue das, was vorher in anderes.pl stand } 1;
    
    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
  - Gast sman
    
    2010-01-10 18:43
    
    Hallo, vielen Dank für die schnelle Antwort!
    
    In der perldoc zu do heißt es:
    Quote
    It also differs in that code evaluated with do FILENAME cannot see lexicals in the enclosing scope; eval STRING does
    
    use strict benutze ich, ja! Aber keine warnings. Eine warnung würde mir in dem Fall auch nichts bringen, ich will das fremde script ausführen, und höchstens bei einer warnung die Ausführung verhindern. Wenn warnings aber warnt, nachdem das script und besonders die subs geladen sind, bringt das reichlich wenig.
    
    Ich weiß was du meinst, wenn du sagst dass man do nicht benutzen soll und alles vernünftig eingliedern soll. Das ist mir bekannt und so mache ich es auch.
    Nur: Mein Programm iat ein Commandozeilenprogramm, unter Anderem mit der Aufgabe, fremde Perlscripts auszuführen, die irgendwo liegen. Man gibt also den pfad ein und es wird sofort im gleichen Fenster ausgeführt. Egal um welches Programm es sich handelt. Die auszuführenden Perlscripts haben also NICHTS mit meinem Hauptprogramm zutun und können deswegen auch nicht eingegliedert werden.
    
    Gibt es diesbzgl. keine weitere Hoffnung?
    - +2 replies
    - pq
      
      2010-01-10 18:45
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      wenn du ein eigenes skript ausführen willst, warum benutzt du dann nicht system()? do und require sind dafür da, dass sie das bisherige programm beeinflussen. wenn du das gar nicht willst, ist do der komplett falsche weg. benutze einfach
      
      Code (perl): (dl )
      
      system("anderes.pl");
      
      zur fehlerbehandlung siehe perldoc -f system
      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 sman
        
        2010-01-10 18:54
        
        system scheint sich doch wesentlich besser dafür zu eignen. Ich dachte bisher, damit kann man nur so Sachen wir
        
        Code (perl): (dl )
        
        system "start anderes.pl"
        
        ausführen, was ein neues Fenster öffnet und nach dem beenden schließt, was ich beides nicht mochte.
        
        system tut's, vielen Dank!
    - pq
      
      2010-01-10 18:50
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      Guest sman
      In der perldoc zu do heißt es:
      Quote
      It also differs in that code evaluated with do FILENAME cannot see lexicals in the enclosing scope; eval STRING does
      
      naja, da steht aber doch nirgendwo, dass das keine subs überschreiben kann, oder? es geht da um lexicals, die von do nicht eingesehen werden können. subroutinen werden da gar nicht erwähnt.
      
      Quote
      use strict benutze ich, ja! Aber keine warnings.
      
      dann lege ich dir das hiermit ans herz, generell warnings einzuschalten.
      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 anon
      
      2010-01-10 21:26
      
      Guest sman
      Eine warnung würde mir in dem Fall auch nichts bringen, ich will das fremde script ausführen, und höchstens bei einer warnung die Ausführung verhindern.
      
      Code (perl): (dl )
      
      use warnings FATAL => ':all';

View all threads created 2010-01-10 18:19.