Redefine erzwingen (solved) (Allgemeines zu Perl)

[thread]17462[/thread]

Redefine erzwingen [solved]

Tags: perl5 require Subroutinen redefine erzwingen Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+9 replies
bianca

2012-06-05 16:59

User since
2009-09-13
7016 articles
BenutzerIn

Hi!
Kurze Frage.
Bei dieser Struktur:

require "zweitesscript";
subname ();
sub subname {}

Und angenommen in zweitesscript gibt es die subname auch schon.
Dann verwendet Perl die sub aus zweitesscript. Vermutlich, weil sie beim Aufruf zuerst da ist, oder?

Wie kann ich erzwingen, dass die subname aus dem aktuellen script verwendet wird und nicht die aus dem require'ten?

Danke
10 print "Hallo"
20 goto 10
- guest Muffi
  
  2012-06-05 17:05
  
  Mein erster Gedanke wär jetzt "anderes Package" benutzen gewesen.
  Last edited: 2012-06-05 17:08:54 +0200 (CEST)
- +2 replies
- guest Muffi
  
  2012-06-05 17:16
  
  2012-06-05T14:59:22 bianca
  Vermutlich, weil sie beim Aufruf zuerst da ist, oder?
  
  Ich glaub eher umgekehrt. Die lokale sub wird sofort kompiliert, das require wird erst zur Laufzeit ausgeführt und überschreibt die lokale.
  Eigentlich müsste ein "use" statt "require" helfen.
  
  Aber so wirklich überzeugt, dass das eine gute Idee ist bin ich da nicht. Müsst eigentlich auch warnings geben.
  Last edited: 2012-06-05 17:28:59 +0200 (CEST)
  - bianca
    
    2012-06-05 17:31
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Guest Muffi
    Aber so wirklich überzeugt, dass das eine gute Idee ist bin ich da nicht. Müsst eigentlich auch warnings geben.
    
    Das ist auch nicht für eine produktive Umgebung. Nur für lokale Tests und Entwicklung.
    
    Danke euch!
    10 print "Hallo"
    20 goto 10
- +3 replies
- bianca
  
  2012-06-05 17:17
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Danke Muffi, ich glaube ich weiß nicht, was du meinst.
  
  Muss noch was dazusagen: Ich require'e das andere Script im Grunde nur, um daraus eine bestimmte andere sub zur Verfügung zu haben.
  Kann ich auch ganz gezielt nur eine ganz bestimmte sub aus dem anderen Script require'n? Gibt es eine Syntax dafür?
  
  Edit: Ich meine soetwas in der Art:
  use "../zweitesscript.pl" qw (gewuenschte_sub);
  Wie schreibt man das richtig?
  Last edited: 2012-06-05 17:20:48 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - GwenDragon
    
    2012-06-05 17:34
    User since
    2005-01-17
    14835 articles
    Admin1
    
    2012-06-05T15:17:04 bianca
    Kann ich auch ganz gezielt nur eine ganz bestimmte sub aus dem anderen Script require'n? Gibt es eine Syntax dafür?
    
    Schau dir bitte mal genau an, was use und import macht.
    
    Code (perl): (dl )
    
    use BLAH qw(&blubb);
    
    ist äquivalent zu
    
    Code (perl): (dl )
    
    1 2
    
    require BLAH; BLAH->import('&blubb');
    
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - bianca
      
      2012-06-05 17:41
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      2012-06-05T15:34:41 GwenDragon
      
      Code (perl): (dl )
      
      1 2
      
      require BLAH; BLAH->import('&blubb');
      
      Ist denn hierbei im Moment des require nicht sowieso schon alles drin was BLAH enthält?
      Dann hätte ich ja wieder alles statt nur die eine gewünschte sub, oder?
      10 print "Hallo"
      20 goto 10
- +2 replies
- GwenDragon
  
  2012-06-05 17:23
  User since
  2005-01-17
  14835 articles
  Admin1
  Du weißt, dass ein require dann Inhalte des Namensraum deines Programms schreibt?
  
  Alles eine Frage des Überschreibens des Stash.
  
  Beispiel:
  
  main.pl
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #!/usr/bin/perl use strict; no warnings; require "mampf.pl"; if (defined &brat) { print "NO! I'm veggie!\n"; *brat = sub { print 'Tofu!!!' }; } brat();
  
  mampf.pl
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  #!/usr/bin/perl sub brat { print "wurst\n"; } 1;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2012-06-05 17:30
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Danke für das Beispiel.
    Klappt wunderbar.
    10 print "Hallo"
    20 goto 10

View all threads created 2012-06-05 16:59.