require'd sub löschen (solved) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-03-16 11:24:16
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online
1 guest

[thread]19522[/thread]

submit to reddit

require'd sub löschen [solved]

[solved]

Tags: perl5 Similar Threads

Readers: 17

Articles: hide open all | hide show old branches

+18 replies
bianca

2015-02-22 08:10
User since
2009-09-13
7016 articles
BenutzerIn
Angetrieben durch Bad name after... wäre meine Frage, ob man geladenen Code nicht einfach auch wieder entladen kann, um zum einen die Gefahr von selben sub Namen zu entschärfen und auch den Speicher nicht zu voll zu knallen?

Testscripte:
test.pl:
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 use strict; use warnings; my @dispatchtab = ( { moduldatei => 'test_extern.pl', aufruf => \&testsub, string => defined, }, { moduldatei => 'test_extern2.pl', aufruf => \&testsub, }, # hier sind natürlich noch ganz viele ); for my $ref ( @dispatchtab ) { require $ref->{moduldatei}; my %back; if (defined $ref->{string}) { $back{text} = $ref->{aufruf}->($ref->{moduldatei}); } else { $ref->{aufruf}->($ref->{moduldatei},\%back); } print "$back{text}\n"; undef &testsub; # hier das &testsub muss aus einer Variable kommen, kann so nicht bleiben }
test_extern.pl:
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';
test_extern2.pl:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl use strict; use warnings; sub testsub { my ($val,$back) = @_; $back->{text} = "Gewonnen! Sub $val\n"; return; } return '1';
Funktioniert perfekt. Frage: Wie kann ich im obersten Script das &testsub für das undef aus einer Variablen holen? Denn tatsächlich heißen die leider nicht alle testsub.
Läuft das auf die selben Problemen hinaus, die im anderen Thread schon beschrieben wurden oder gibt es hierfür eine ganz einfache Möglichkeit?

Ein Versuch mit undef $ref->{moduldatei}; brachte nichts, es verhält sich als gäbe es diese Zeile nicht, also "...redefined at...".

Gäbe es eine Möglichkeit, zu scannen, welche sub's es im geladenen Code gibt und diese alle wieder zu löschen? Denn es kommt hinzu, dass solch ein externes Script manchmal nicht nur aus einer sub besteht. Und ich brauche eben nach Ausführung der sub das alles nicht mehr.

Editiert von bianca: Versuch ergänzt
Last edited: 2015-02-22 08:15:08 +0100 (CET)
10 print "Hallo"
20 goto 10
- +14 replies
- murphy
  
  2015-02-23 16:23
  User since
  2004-07-19
  1776 articles
  HausmeisterIn
  Warum sollte man überhaupt den Namensraum mit Prozeduren verkleistern, die man später wieder loswerden will?
  
  Perlmodule haben doch einen Rückgabewert, also warum nicht sowas in der Form
  
  Code (perl): (dl )
  
  1 2
  
  my $coderef = require "stuff.pl"; $coderef->("world");
  
  machen, wobei stuff.pl dann etwas in der Art
  
  Code (perl): (dl )
  
  sub { my ($name) = @_; say "Hello $name!"; }
  
  enthält?
  
  Die anonyme Coderef jedenfalls wird man leichter und sauberer wieder los als einen Namensraumeintrag.
  When C++ is your hammer, every problem looks like your thumb.
  - +5 replies
  - bianca
    
    2015-02-23 17:32
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Das Script sammelt in einer Schleife bei allen ext. Scripten bestimmte Ausgaben ein. Und die ext. Scripte sind teilweise uralt, wo ich halt noch einen schlechten Stil in Perl hatte. Wenn ich die aber alle anfasse hab ich Arbeit bis in 5 Jahren. Da hab ich keine Lust drauf.
    
    Daher suche ich als Übergangslösung eben eine Möglichkeit, die Abfragen auch dann zu machen, wenn die sub Namen mehrfach vorkommen, bis ich die sub Namen überall geändert habe.
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - jan
      
      2015-02-23 17:42
      
      User since
      2003-08-04
      2536 articles
      ModeratorIn
      
      Nimm ein Wrapper-Script, das die Sachen einsammelt und zurückgibt und starte das als eigenen Prozess.
      - bianca
        
        2015-02-23 18:18
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Danke für die Idee. Muss ich mal prüfen, ob das weniger Aufwand ist als die Elimination der doppelten sub Namen.
        10 print "Hallo"
        20 goto 10
    - +2 replies
    - guest wer
      
      2016-02-13 18:13
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      my $package = 'my_import'.'::'.md5_hash($file); if( eval "package $package; return require '$file';" ){ if( $code = $package::can('function') ){ $code->(...); } }
      
      Last edited: 2016-02-13 18:49:59 +0100 (CET)
      - bianca
        
        2016-02-14 08:46
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Sieht nach Hack aus :)
        10 print "Hallo"
        20 goto 10
  - +8 replies
  - bianca
    
    2016-02-13 10:49
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Ich habe hierzu eine Anschlussfrage.
    This is perl 5, version 18, subversion 4 (v5.18.4) built for MSWin32-x64-multi-thread
    
    test_coderef.pl:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    #!/usr/bin/perl use strict; use warnings; use 5.010; lauf(1); lauf(2); sub lauf { my $coderef = require "test_coderef_sub$_[0].pl"; $coderef->("world"); }
    
    test_coderef_sub1.pl:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    use strict; use warnings; use 5.010; sub { say "Hello $_[0] 1 "; }
    
    test_coderef_sub2.pl:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    package test; use strict; use warnings; use 5.010; sub { say "Hello $_[0] 2 "; }
    
    Läuft wunderbar:
    
    Quote
    d:\temp>perl test_coderef.pl
    Hello world 1
    Hello world 2
    
    ABER:
    Quote
    d:\temp>perl -c test_coderef_sub1.pl
    Useless use of reference constructor in void context at test_coderef_sub1.pl line 7.
    test_coderef_sub1.pl syntax OK
    
    Was bedeutet das in diesem Zusammenhang und wie kann ich dieses verwirrende "Useless use..." los werden?
    10 print "Hallo"
    20 goto 10
    - +7 replies
    - GwenDragon
      
      2016-02-13 15:40
      
      User since
      2005-01-17
      14816 articles
      Admin1
      
      sub ohne einen Funktionsnamen liefert eine Referenz auf die anonyme sub zurück.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +6 replies
      - bianca
        
        2016-02-13 17:10
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Und wie bekomme ich die Meldung weg?
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2016-02-13 17:25
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        no warnings "void";
        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
        
        GwenDragon
        
        2016-02-13 17:27
        
        User since
        2005-01-17
        14816 articles
        Admin1
        
        Die requireden Module müssen ja was zurückl leifern, das hast du ja mit der sub als letzte erreicht.
        
        Ich tippe mal drauf, das sowas geht:
        
        Code: (dl )
        
        1 2 3 4
        
        my $ret = sub { say "Bloiuoia!" }; $ret;
        
        Oder die Warnungen abschalten für void, siehe http://perldoc.perl.org/warnings.html
        Last edited: 2016-02-13 17:29:23 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        bianca
        
        2016-02-13 18:19
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Danke pq und GwenDragon!
        Aber irgendwie ist das ein komisches Gefühl. Eine Fehlermeldung behebe ich an sich lieber als die Warnung abzuschalten. Ist denn an diesem Code etwas nicht in Ordnung? Oder woran liegt es, dass diese Lösung von Perl Spezis empfohlen, von Perl selbst aber mit einer Warnung versehen wird?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        renee
        
        2016-02-14 08:22
        
        User since
        2003-08-04
        14371 articles
        ModeratorIn
        
        Eine Warnung ist nur eine Warnung und ist ein Hinweis auf ein *mögliches* Problem. Wenn man weiß was man (bzw. der Code) tut, kann man Warnungen auch abschalten.
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        bianca
        
        2016-02-14 08:46
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        OK
        Danke euch!
        10 print "Hallo"
        20 goto 10
- +2 replies
- rosti
  
  2015-02-24 08:35
  User since
  2011-03-19
  3548 articles
  BenutzerIn
  Bitte nimm Dir einfach mal ein bischen mehr Zeit und entwickle Dein Verständnis für Packages und Namespaces. Der von mir gezeigte Hack
  
  Code (perl): (dl )
  
  eval "package $packname; $source";
  
  ist allenfalls ein Behelf, zeigt jedoch, dass es möglich ist, gleichnamige Funktionen nicht nur dem Namen nach, sondern auch über die Deklaration der Package (Namespaces) zu organisieren. Genau aus diesem Grund ist auch no warnings 'redefine'; keine Lösung. Ein Programmierer sollte zu jeder Zeit ganz genau wissen, was sein Code tut, nur dann kann er auch garantieren, dass sein Code zuverlässing das macht, was er soll.
  
  Vor einiger Zeit hatte ich mich in einer Firma beworben, wo ich eine ähnliche Situation vorfand, was das Organisieren von Code betrifft. Da habe ich angefangen aufzuräumen, aber der Geschäftsführer wollte das nicht, obwohl der von ihm selbst entwickelte Code die reinste Katastrophe war: Unüberschaubar, fehleranfällig und bei der Fehlersuche lief mir die Zeit davon. Du siehst doch selbst, dass Dir die Zeit wegläuft und dass Dich Improvisieren nicht weiter bringt.
  
  Grundlagenwissen ist eine Sache. Die andere Sache ist die Erfahrung. Lass Dir Letzteres nicht entgehen, es kommt der AHA-Effekt mit Sicherheit und der Moment wo Du sagen kannst: Oh Mann, warum habe ich das nicht gleich so gemacht.
  Last edited: 2015-02-24 08:38:57 +0100 (CET)
  http://blog.rolfrost.de/
  
  The art of steam.
  - bianca
    
    2015-02-24 09:10
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Ja, ist OK. Ich nehme mir die Zeit fürs Aufräumen anstatt Improvisieren. Hab ich verstanden.
    10 print "Hallo"
    20 goto 10
- bianca
  
  2015-03-19 09:28
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Gelöst mit Subroutine xyz redefined at... verhindern.
  10 print "Hallo"
  20 goto 10

View all threads created 2015-02-22 08:10.