[LWP::Parallel::UserAgent] Modul->can / Modul->elem (gelöst) (Fragen zu Perl-Modulen)

[thread]16104[/thread]

[LWP::Parallel::UserAgent] Modul->can / Modul->elem [gelöst]

Leser: 15

Articles: hide open all | hide show old branches

+7 replies
kristian

2011-03-23 20:33

User since
2005-04-14
684 Artikel
BenutzerIn

Hallo

mit can('foo') kann ich ja abfragen ob ein Modul die Funktion hat.
Was aber ist elem('foo') in dem Zusammenhang?

TIA & Gruß
Kristian

EDIT:
Ich sehe gerade ich könnte _elem() meinen, Kompare zeigt hier wohl Blödsinn.
_elem() sagt mir aber auch nichts...

modedit Editiert von pq: titel ergänzt
Last edited: 2011-03-23 21:22:02 +0100 (CET)
- GwenDragon
  
  2011-03-23 20:49
  
  User since
  2005-01-17
  14784 Artikel
  Admin1
  
  Wo hast du denn sowas drin?
  
  //EDIT: _elem()? Also ich kenne das nur als private Funktion bei HTML::Tree.
  Last edited: 2011-03-23 20:51:27 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- pktm
  
  2011-03-23 20:52
  
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  
  elem() wird irgend etwas aus deinem Modul sein. Um welches Modul handelt es sich?
  Ich habe das bislang nur bei RSS-Modulen gesehen.
  http://www.intergastro-service.de (mein erstes CMS :) )
  - +4 replies
  - kristian
    
    2011-03-23 21:19
    User since
    2005-04-14
    684 Artikel
    BenutzerIn
    
    Hallo,
    
    es geht um einen Bug in LWP/Parallel/UserAgent.pm. Siehe
    und einen Patch dazu. Siehe
    Im Patch findet sich dieses _elem(), es sollte, falls es im Modul ist, in LWP/Parallel/Protocol.pm sein, ist es aber nicht.
    Hmm, das verwundert mich.
    
    LWP/Parallel/UserAgent.pm funktioniert zwar, wenn man die besagte Zeile 1497 auskommentiert allerdings ist das Voodoo, den Patch habe ich noch gar nicht getestet, ich schaue gleich mal.
    Das könnte die Sache ja auch klären...
    
    Gruß
    Kristian
    
    EDIT:
    Folgende Zeile (Patch) wird kommentarlos geschluckt:
    
    Code (perl): (dl )
    
    $protocol->can('parse_head')? $protocol->parse_head($parse_head) : $protocol->_elem('parse_head', $parse_head);
    
    Nur was passiert da?
    $protocol->can('parse_head') ist definitiv false.
    
    Edit2:
    Es scheint das Ding zu geben, zumindest wird es gefunden:
    
    Code: (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
    
    kristian@office:~/perl$ code_search /usr/lib/perl _elem Found in /usr/lib/perl/5.10.1/DB_File.pm at 401 Found in /usr/lib/perl/5.10.1/DB_File.pm at 402 Found in /usr/lib/perl/5.10.1/DB_File.pm at 441 Found in /usr/lib/perl/5.10.1/DB_File.pm at 449 Found in /usr/lib/perl/5.10.1/DB_File.pm at 474 Found in /usr/lib/perl/5.10.1/auto/re/re.so at 453 Found in /usr/lib/perl/5.10.1/auto/threads/shared/shared.so at 17 Found in /usr/lib/perl/5.10.1/B/Deparse.pm at 3146 Found in /usr/lib/perl/5.10.1/Devel/PPPort.pm at 276 Found in /usr/lib/perl/5.10.1/Devel/PPPort.pm at 295 Found in /usr/lib/perl/5.10.1/Devel/PPPort.pm at 1793 Found in /usr/lib/perl/5.10.1/Devel/PPPort.pm at 1812 Found in /usr/lib/perl/5.10.1/Devel/PPPort.pm at 2238 Found in /usr/lib/perl/5.10.1/Devel/PPPort.pm at 3113 Found in /usr/lib/perl/5.10.1/Devel/PPPort.pm at 5595 Found in /usr/lib/perl/5.10.1/Devel/PPPort.pm at 6860 Found in /usr/lib/perl/5.10.1/Devel/PPPort.pm at 6861 Found in /usr/lib/perl/5.10.1/Devel/PPPort.pm at 6964 Found in /usr/lib/perl/5.10.1/Devel/PPPort.pm at 6965 Found in /usr/lib/perl/5.10.1/CORE/proto.h at 142 Found in /usr/lib/perl/5.10.1/CORE/proto.h at 811 Found in /usr/lib/perl/5.10.1/CORE/proto.h at 815 Found in /usr/lib/perl/5.10.1/CORE/proto.h at 2528 Found in /usr/lib/perl/5.10.1/CORE/regcomp.h at 569 Found in /usr/lib/perl/5.10.1/CORE/regcomp.h at 573 Found in /usr/lib/perl/5.10.1/CORE/perl.h at 3821 Found in /usr/lib/perl/5.10.1/CORE/perl.h at 3849 Found in /usr/lib/perl/5.10.1/CORE/embed.h at 50 Found in /usr/lib/perl/5.10.1/CORE/embed.h at 688 Found in /usr/lib/perl/5.10.1/CORE/embed.h at 2378 Found in /usr/lib/perl/5.10.1/CORE/embed.h at 3007
    
    Ich glaube das wird spannend...
    Last edited: 2011-03-23 21:34:15 +0100 (CET)
    - +3 replies
    - pq
      
      2011-03-23 21:37
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2011-03-23T20:19:32 kristian
      
      Code (perl): (dl )
      
      $protocol->can('parse_head')? $protocol->parse_head($parse_head) : $protocol->_elem('parse_head', $parse_head);
      
      Nur was passiert da?
      $protocol->can('parse_head') ist definitiv false.
      
      wenn can() false liefert, wird $protocol->_elem('parse_head', $parse_head) aufgerufen. also die methode _elem auf dem objekt $protocol, welches vermutlich LWP::Protocol ist.
      und die methode _elem liefert einfach $self->{name_des_arguments} bzw. setzt den wert mit dem 2. argument (siehe http://cpansearch.perl.org/src/GAAS/libwww-perl-6....).
      ist wohl, weil man nicht direkt $object->{hashkey} benutzen soll, falls es keine eigene methode dadür gibt. also ein einfacher getter/setter.
      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
      - +2 replies
      - pq
        
        2011-03-23 21:39
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2011-03-23T20:37:35 pq
        wird $protocol->_elem('parse_head', $parse_head) aufgerufen. also die methode _elem auf dem objekt $protocol, welches vermutlich LWP::Protocol ist.
        
        bzw. LWP::Parallel::Protocol, welches von LWP::Protocol erbt.
        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
        
        kristian
        
        2011-03-23 21:47
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        Ah jetzt ja.
        Danke dir!
        Hmmm, warum hatte ich eigentlich schon vermutet, dass du das wissen könntest... ;-)

View all threads created 2011-03-23 20:33.