Subroutine xyz redefined at... verhindern (gelöst) (Allgemeines zu Perl)

[thread]19524[/thread]

Subroutine xyz redefined at... verhindern [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+9 replies
bianca

2015-02-23 08:29
User since
2009-09-13
7016 Artikel
BenutzerIn
Gibt es eigentlich eine Möglichkeit, Fehlermeldungen beim require abzufangen und das Hauptscript dann nicht sterben zu lassen?
Beispiel:
Code (perl): (dl )

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

#!/usr/bin/perl use strict; use warnings; my @dispatchtab = ( { moduldatei => 'test_extern.pl', aufruf => \&testsub, }, { moduldatei => 'test_extern2.pl', aufruf => \&testsub, }, ); for my $ref (@dispatchtab) { my $script = 1; eval <<"EVAL_CODE"; require "$ref->{moduldatei}" or $script = 0; EVAL_CODE if ($script) { print $ref->{aufruf}->('a'); } }
Die Scripte test_extern.pl und test_extern2.pl sehen identisch aus wie folgt:
Code (perl): (dl )

1 2 3 4 5 6 7 8

#!/usr/bin/perl use strict; use warnings; sub testsub { return "Gewonnen! Sub $_[0]\n"; } return '1';
Wie kann ich jetzt die Meldung
Quote
Undefined subroutine &main::testsub called at test.pl line 20.
abfangen und vor allen Dingen das Script nicht sterben lassen?
10 print "Hallo"
20 goto 10
- +5 replies
- Muffi
  
  2015-02-23 08:44
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Nimm doch einfach den Vorschlag mit UNIVERSAL can vom letzten thread und schreib ein if davor.
  
  edit: äääh - kann es sein, dass du immer noch den gleichen falschen Vorschlag wie am Anfang des letzten Threads benutzt?
  Last edited: 2015-02-23 08:47:24 +0100 (CET)
  1 + 1 = 10
  - bianca
    
    2015-02-23 10:23
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Ich bekomme das nicht gebacken. Hab jetzt dies hier versucht, klappt aber nicht, wirft Undefined subroutine &main::testsub called at test.pl line 27.:
    
    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
    
    #!/usr/bin/perl use strict; use warnings; my @dispatchtab = ( { moduldatei => 'test_extern.pl', aufruf => \&testsub, unit => 'test1', }, { moduldatei => 'test_extern2.pl', aufruf => \&testsub, unit => 'test2', }, ); for my $ref (@dispatchtab) { my $source = do{ my $fh = IO::File->new; $fh->open($ref->{moduldatei},'r') or die $!; read($fh, my $buffer, -s $fh); $fh->close; "package $ref->{unit};\n".$buffer; }; eval "$source"; UNIVERSAL::can($ref->{unit},$ref->{aufruf}); # statt $ref->{moduldatei} print $ref->{aufruf}->('a'); }
    
    Was mache ich falsch?
    10 print "Hallo"
    20 goto 10
  - +3 replies
  - Linuxer
    
    2015-02-23 11:55
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Den Vorschlag mit UNIVERSAL verstand ich schon letztens nicht; nur konnte ich ihn nicht verfolgen und nachlesen.
    
    Hier werden doch Dateien per perlfunc require() eingebunden, die nur Subroutinen bereitstellen.
    Da stecken keine Objekte und/oder Methoden; jedenfalls habe ich das aus den Posts so nicht rausgelesen.
    
    UNIVERSAL ist nun aber die "base class for ALL classes (blessed references)".
    
    Klingt schon mal nicht sehr passend hier.
    Ausserdem findet sich in der entsprechenden Perldoc in der Synopsis noch folgendes:
    
    perldoc UNIVERSAL
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    ... $sub = Class->can("print"); $sub = eval { $ref->can("fandango") }; $ver = $obj->VERSION; # but never do this! $is_io = UNIVERSAL::isa($fd, "IO::Handle"); $sub = UNIVERSAL::can($obj, "print");
    
    Wichtig ist der zweite Absatz. Daher befürchte ich, dass UNIVERSAL hier nicht weiterhelfen kann und schlicht falsch ist.
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - +2 replies
    - Muffi
      
      2015-02-23 13:34
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Ich glaub der Grund, warum das da steht ist, dass die Vererbung kaputt geht.
      In dem Fall ist das aber kein Objekt, noch nicht mal eine "Klasse", sondern einfach nur ein package. Und da sollte can schon funktionieren.
      
      Aber wenn da jemand mehr weiss... da würd ich gern dazulernen.
      
      edit: stackoverflow. Hier für isa statt can, aber prinzipiell sollts ja egal sein. Betrifft probleme, die hier eigentlich nicht vorhanden sein sollten.
      Last edited: 2015-02-23 13:38:23 +0100 (CET)
      1 + 1 = 10
      - bianca
        
        2015-02-23 17:35
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2015-02-23T12:34:26 Muffi
        edit: stackoverflow.
        
        Ist da für mich auch was dabei zum ausprobieren für meine Frage? Ich erkenne das nicht, weil ich die dortigen Sachen nicht kenne.
        10 print "Hallo"
        20 goto 10
- +2 replies
- Linuxer
  
  2015-02-23 18:55
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Subroutine ... redefined at ... ist eine Warning und nur deswegen sollte das Skript nicht sterben.
  
  Man kann diese Warnung sauber abschalten, indem man ein no warnings 'redefine' vor die Definition der Subroutine setzt; in diesem Fall wohl vor das perlfunc require. Das "Problem" hier ist aber dann, dass wohl im externen Skript ein use warnings; steht, welches dann auch diese Warnung wieder einschaltet.
  
  Denkansatz: Die alten Skripte per Skript (ein Perl-Einzeiler kann das machen) bearbeiten und das "no warnings 'redefine'" hinter das "use warnings;" automatisiert einbauen lassen, damit diese Warnung nicht mehr geworfen wird, wenn diese Skripte nun (wie oben skizziert) eingebunden werden.
  
  Ich habe hier mittlerweile eher das Gefühl, dass Du anstatt - wie Du an anderer Stelle ja angemerkt hast - 5 Jahre in die Überarbeitung der alten Skripte zu investieren, Du lieber 5 Jahre in die Suche nach einem Workaround investierst, wie Du diese alten Skripte mit diesem wilden Konstrukt weiterhin am Leben halten kannst?
  
  edit: Satzbau korrigiert
  Last edited: 2015-02-23 20:03:37 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - bianca
    
    2015-02-23 19:32
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Ja, du hast Recht. Ich hab schon viele doppelte sub Namen eliminiert. Aber der Ehrgeiz ist trotzdem vorhanden, auch dieses Problem zu lösen, selbst dann, wenn es kein Problem mehr ist.
    Aber scheinbar gehört das in die Kategorie "Strukturfehler beheben" und nicht in "Syntax ändern". Ist auch eine gute Erkenntnis.
    10 print "Hallo"
    20 goto 10
- bianca
  
  2015-03-19 09:27
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Mittlerweile habe ich so gut wie alle doppelten sub Namen geändert, daher ist die Frage gleich doppelt beantwortet.
  Danke euch!
  10 print "Hallo"
  20 goto 10

View all threads created 2015-02-23 08:29.