can() und require (gelöst) (Allgemeines zu Perl)

[thread]14986[/thread]

can() und require [gelöst]

Leser: 37

Articles: hide open all | hide show old branches

Teilbaum:
can() und require (12 Artikel) 2015-12-02 21:21

+13 replies
bianca

2015-07-23 08:41

User since
2009-09-13
7016 Artikel
BenutzerIn

Frage hierzu: kann es sein, dass ->can() sich geändert hat? Ich bekomme hier mit Perl Strawberry 5.18.x 64Bit auf Windows sowohl vor als auch nach dem require() den selben Wert "CODE(0x3c07f18)", wenn ich auf die darin enthaltene sub{} abfrage.

modedit Editiert von pq: subtree erstellt
Last edited: 2015-12-02 21:21:10 +0100 (CET)
10 print "Hallo"
20 goto 10
- +12 replies
- GwenDragon
  
  2015-07-23 15:40
  User since
  2005-01-17
  14835 Artikel
  Admin1
  Weiß nicht was du tust.
  Bei mir geht es so:
  
  jjj.pl
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  use strict; use warnings; use 5.018; package jjj; sub YYY { my $y = shift // q{ ~ \o/ ~ /o\ ~ \o/ }; say $y; } 1;
  
  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 35 36 37 38 39 40 41 42 43 44 45 46 47
  
  use strict; use warnings; use 5.018; my %dispatch = ( lach => \&Booh::laugh, foo => \&main::bar, bar => \&baz, yipp =>\&jjj::YYY, ); require "jjj.pl"; package Booh; sub laugh { my $lach = shift // 'hahahahahahah'; say $lach; } 1; package main; sub bar { my $knete = shift // 'is nich'; say "Bar $knete aus der Kasse"; } sub baz { say 'Bar und Baaaatz'; } ########## my $coderef = Booh->can('laugh'); $coderef->('hihia'); # Boo::laugh(....) $dispatch{lach}->('Gacker!!!!!!!!!!!!!!!'); # auch Boo::laugh(....) $coderef = main->can('bar'); $coderef->(); $coderef->('100 EURO'); $coderef = jjj->can('YYY'); $coderef->(); $coderef->('Yippi'); $dispatch{'yipp'}->('hollaaaaaa'); 1;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +11 replies
  - bianca
    
    2015-07-24 07:57
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Achso und ich dachte, vor dem require() würde jjj->can('YYY') false oder 0 und danach true oder 1 liefern. Das hab ich mir selbst irgendwie so abgewandelt und nie ein Problem damit gehabt. Allerdings kann ich nicht beschwören, dass aus anderen Gründen es an der Stelle nie zu einem Problem kam, z.B. durch require() an anderer Stelle vor der ->can() Abfrage.
    
    Hatte ich das falsch verstanden damals oder hat sich der Rückgabewert jetzt bis zur 5.18.4 geändert?
    Hast du zufällig noch ein Strawberry 5.10.1 parallel installiert, GwenDragon und könntest mal schauen, was vor und nach dem require() der Rückgabewert ist? Das hatte ich nämlich benutzt, als ich den Thread 2010 eröffnete.
    10 print "Hallo"
    20 goto 10
    - GwenDragon
      
      2015-07-24 09:28
      
      User since
      2005-01-17
      14835 Artikel
      Admin1
      
      can vor und nach require:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      use strict; use warnings; use feature 'say'; say "Perl $]"; my $vor = jjj->can('YYY'); say "vor require: ",!defined($vor)?"undef":$vor; require "jjj.pl" and say "require"; my $nach = jjj->can('YYY'); say "nach require: ",!defined($nach)?"undef":$nach; 1;;
      
      Perl 5.010001
      vor require: undef
      require
      nach require: CODE(0x44df7c)
      
      Perl 5.012003
      vor require: undef
      require
      nach require: CODE(0x43e36c)
      
      Perl 5.014004
      vor require: undef
      require
      nach require: CODE(0x1efe6bc)
      
      Perl 5.018004
      vor require: undef
      require
      nach require: CODE(0x1e3ad6c)
      
      Perl 5.022000
      vor require: undef
      require
      nach require: CODE(0x6026a4)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - jan
      
      2015-07-24 09:38
      
      User since
      2003-08-04
      2536 Artikel
      ModeratorIn
      
      Kannst Du mal deinen Testcode dazu posten?
    - +8 replies
    - bianca
      
      2015-07-26 09:22
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Hab das jetzt mal noch weiter aufgedröselt bei mir und wenn ich es auf das Nötigste zusammen stauche kommt das hier raus:
      
      test.pl:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
      
      #!/usr/bin/perl use strict; use warnings; if (1==1) { require 'test2.pl'; } print 'vorher: '.main->can('test')."\n"; require 'test2.pl'; print 'nachher: '.main->can('test')."\n"; { package testtest; require 'test2.pl'; } testtest::test();
      
      test2.pl:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      use strict; use warnings; sub test { print "Hallo\n"; } return '1';
      
      Oben die Bedingung symbolisiert etwas, was ich erst bei ganz genauem Hinschauen fand, das hatte ich vorher übersehen. Ich konnte mir die Fehlermeldung "Undefined subroutine &testtest::test called at test.pl line 17." nicht erklären.
      Deshalb baute ich eine Ausgabe des Rückgabewertes von ->can('test') ein. Auch das begriff ich nicht, weil es vor und nach dem require() gleich war.
      Jetzt erst begreife ich, dass Perl ein require() immer nur einmal ausführt. Und da es das oben in der Bedingung schon gemacht hat brauchte es das unten im package nicht mehr tun. Und das war mein Verständnisfehler.
      Vielen Dank an Dich, GwenDragon! Sonntag gerettet.
      
      Frage: darf ich davon ausgehen, dass Perl tatsächlich alle folgenden require() für die selbe Datei wirklich ignoriert, es sich also gänzlich neutral für den Arbeitsspeicher verhält?
      
      Editiert von bianca: Frage ergänzt
      Last edited: 2015-07-26 09:23:57 +0200 (CEST)
      10 print "Hallo"
      20 goto 10
      - +7 replies
      - GwenDragon
        
        2015-07-26 11:30
        
        User since
        2005-01-17
        14835 Artikel
        Admin1
        
        require wird nur einmal ausgeführt.
        
        require funktioniert einfach gesagt so:
        
        if exists file.pl in @INC then return
        else do file.pl
        
        wenn du die Datei immer wieder neu einbinden, willst musst du do verwenden.
        Last edited: 2015-07-26 11:33:39 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2015-07-26 17:31
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        OK, danke dir
        10 print "Hallo"
        20 goto 10
        
        +5 replies
        
        pq
        
        2015-12-02 11:20
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        das muss ich kurz kommentieren: hier handelt es sich um den hash %INC und nicht das array @INC. in @INC stehen die INClude-pfade, in denen nach modulen gesucht wird. in %INC stehen die geladenen module (dateien).
        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
        
        2015-12-02 11:29
        
        User since
        2005-01-17
        14835 Artikel
        Admin1
        
        Danke für den Hinweis.
        Mein Fehler.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        bianca
        
        2015-12-02 18:02
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Achso und über das Hash "schaut" Perl dann ob das Modul schon drin ist?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2015-12-02 18:15
        
        User since
        2005-01-17
        14835 Artikel
        Admin1
        
        C:\>perl -MCGI -e "print qq($_ $INC{$_}\n) for keys %INC" warnings/register.pm C:/strawberry/perl/lib/warnings/register.pm Carp.pm C:/strawberry/perl/site/lib/Carp.pm vars.pm C:/strawberry/perl/lib/vars.pm Exporter.pm C:/strawberry/perl/site/lib/Exporter.pm strict.pm C:/strawberry/perl/lib/strict.pm warnings.pm C:/strawberry/perl/lib/warnings.pm CGI/Util.pm C:/strawberry/perl/site/lib/CGI/Util.pm base.pm C:/strawberry/perl/site/lib/base.pm CGI.pm C:/strawberry/perl/site/lib/CGI.pm if.pm C:/strawberry/perl/lib/if.pm
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2015-12-02 21:11
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Kapiert. Danke dir.
        10 print "Hallo"
        20 goto 10

View all threads created 2010-05-02 13:09.