Patch für URI::Find (gelöst) (Fragen zu Perl-Modulen) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Fragen zu Perl-Modulen · Ersatz für URI::Find

2025-12-15 23:28:38
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
9 Gäste

[thread]19069[/thread]

submit to reddit

Patch für URI::Find [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

Teilbaum:
Patch für URI::Find (25 Artikel) 2014-07-01 12:57

+26 replies
GwenDragon

2014-06-25 12:15

User since
2005-01-17
14904 Artikel
Admin1

Ich habe mal was gepatcht. Ohne Gewähr wie üblich bei Perl Artistic Licence.

Testet bitte mal das URI::Find und URI::Find::Schemeless.
Anhänge

application/zip
URI-Find-PATCHED.zip

Last edited: 2014-06-25 12:16:30 +0200 (CEST)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- bianca
  
  2014-06-27 07:09
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Habe mal ein paar erste Tests gemacht, mein Beispiel mit dem ä sieht auch sehr gut aus.
  
  Frage: Ist das ß auch in URL's zugelassen?
  Last edited: 2014-06-27 07:13:41 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - payx
    
    2014-06-27 09:13
    
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Hallo bianca,
    
    2014-06-27T05:09:57 bianca
    Frage: Ist das ß auch in URL's zugelassen?
    
    Na klar.
    
    Es stimmt allerdings, dass die deutsche Wikipedia-Definition von Internationalisierter Domainname da nicht ganz eindeutig ist:
    
    Quote
    Als internationalisierte Domainnamen (englisch internationalized domain name, IDN), umgangssprachlich auch Umlautdomain oder Sonderzeichendomain, werden Domainnamen bezeichnet, die Umlaute, diakritische Zeichen oder Buchstaben aus anderen Alphabeten als dem lateinischen Alphabet enthalten.
    
    Denn streng genommen ist das Eszett weder ein Umlaut, noch ein Diakritikum oder ein durch ein Diakritikum modifiziertes Zeichen, noch ein Zeichen aus einem nicht-lateinischen Alphabet (es ist nämlich keineswegs mit dem griechischen Beta identisch oder verwandt), sondern eine Ligatur.
    
    Wenn Du hier nach dem Codepoint für ß (00DF) suchst, kannst Du Dich aber vergewissern, dass es trotzdem nicht vergessen wurde.
    
    HTH
    Grüße
    payx
    Last edited: 2014-06-27 09:20:43 +0200 (CEST)
    - bianca
      
      2014-06-27 10:04
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Ich hab auch jetzt gemerkt, dass das ß scheinbar kein Fehler des Moduls oder des Patches ist sondern ein Bug im Internet Explorer zu sein scheint. Der bietet nämlich http://www.xn--beimich-2va.de zwar optisch als Link an (Cursor wird zur Hand, Farbe und Unterstreichung) aber beim Draufklicken passiert garnichts. Im Firefox hingegen klappt das. Die Domain ist nur ein Beispiel, sie existiert nicht.
      10 print "Hallo"
      20 goto 10
- +20 replies
- bianca
  
  2014-06-27 10:05
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Meine Tests für URI::Find sind dann soweit erfolgreich abgeschlossen.
  1000 Dank an GwenDragon!!!!
  
  Was muss bei diesem schemless genau getestet werden?
  10 print "Hallo"
  20 goto 10
  - +19 replies
  - GwenDragon
    
    2014-06-27 10:18
    
    User since
    2005-01-17
    14904 Artikel
    Admin1
    
    URI::Find::Schemeless finded URI ohne Scheme (siehe URL), das bedeutet ohne das http:///, file://, ... davor.
    
    Wenn du es nicht brauchst, musst es nicht testen.
    Last edited: 2014-06-27 10:19:45 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - bianca
      
      2014-06-27 10:18
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Ah ok. Melde mich, wenn ich das auch gemacht habe.
      10 print "Hallo"
      20 goto 10
    - bianca
      
      2014-06-27 10:59
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2014-06-27T08:18:00 GwenDragon
      Wenn du es nicht brauchst, musst es nicht testen.
      
      Doch doch! Das ist gut. Hat mir schon gefehlt. Man gewöhnt sich dann halt die vollständige Schreibweise an aber schön ist das nicht.
      Ich schaue noch heute oder am WE danach!
      10 print "Hallo"
      20 goto 10
    - +16 replies
    - bianca
      
      2014-06-29 06:50
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Dann müsste die Schreibweise www.google.de gefunden werden als Link, richtig?
      10 print "Hallo"
      20 goto 10
      - +15 replies
      - GwenDragon
        
        2014-06-29 10:11
        
        User since
        2005-01-17
        14904 Artikel
        Admin1
        
        Korrekt.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +14 replies
        
        bianca
        
        2014-06-29 10:12
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        OK, klappt bei mir nicht, wird nicht als Link erkannt. Wie sieht das bei dir aus?
        10 print "Hallo"
        20 goto 10
        
        +13 replies
        
        GwenDragon
        
        2014-06-29 10:23
        
        User since
        2005-01-17
        14904 Artikel
        Admin1
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        #!/usr/bin/perl use strict; use warnings; use lib 'lib'; use URI::Find::Schemeless; my $text = <<TXT; Hau doch mal den Gockel auf www.google.com, Oder nutze "google.de". Oder Google.com! TXT my $finder = URI::Find::Schemeless->new(sub { my($uri, $orig_uri) = @_; return "[$orig_uri]<$uri>"; }); $finder->find(\$text); print $text;
        
        ergibt
        
        Code: (dl )
        
        1 2
        
        Hau doch mal den Gockel auf [www.google.com]<http://www.google.com/>, Oder nutze "google.de". Oder Google.com!
        
        Sieht so aus als ob das ! ond die " nicht als Trenner erkannt wird.
        mal schauen wie das Modul definiert, was ein Ende einer URI ist.
        
        //EDIT:
        neuere TLD
        Um solche mit mehr als zwei Zeichen (weiß nicht wie lang die maximal sein dürfen) zu erkennen, muss in Schemless.pm in der Methode top_level_domain_re folgendes
        
        Code (perl): (dl )
        
        return qr/(?:[a-z]{2}|$plain)/i;
        
        ersetzt werden durch
        
        Code (perl): (dl )
        
        return qr/(?:[a-z]{2,20}|$plain)/i;
        
        URI in Anführungszeichen
        Um URI in " zu erkennen muss in Methode schemeless_uri_re
        
        Code: (dl )
        
        (?: ^ | (?<=[\s<>()\{\}\[\]]) )
        
        druch
        
        Code: (dl )
        
        (?: ^ | (?<=["\s<>()\{\}\[\]]) )
        
        ersetzt werden.
        
        //EDIT2:
        Es muss eben definiert werden, welche Trennzeichen verwendet werden.
        Das Modul hat eben auch nur eine bestimmte Heuristik, was als Trenner oder URI-Ende dient.
        Last edited: 2014-06-29 11:05:59 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        bianca
        
        2014-06-29 12:04
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Achsoooo! Ich wusste nicht, dass ich dafür das Modul anders usen muss. Das ist ja doof. Wenn ich beides erkennen will muss ich also erst URI::Find drüber laufen lassen, mir die Stellen merken und dann nochmal mit URI::Find::Schemeless drüber gehen, richtig? Sonst werden die URL's mit Scheme ja zweimal erkannt.
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2014-06-29 14:11
        
        User since
        2005-01-17
        14904 Artikel
        Admin1
        
        Nein, Schemeless fängt URI mit Schma und ohne. Probier's aus mit meinem kurzen Testprogramm ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +6 replies
        
        bianca
        
        2014-06-29 18:26
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Die beiden Codeänderungen haben bei mir jetzt aber zu keinem anderen Ergebnis bei den Testfällen geführt. Auch nicht bei deinem Beispielscript. Wozu genau sind die jetzt gewesen?
        10 print "Hallo"
        20 goto 10
        
        +5 replies
        
        GwenDragon
        
        2014-06-29 18:38
        
        User since
        2005-01-17
        14904 Artikel
        Admin1
        
        2014-06-29T16:26:43 bianca
        Die beiden Codeänderungen haben bei mir jetzt aber zu keinem anderen Ergebnis bei den Testfällen geführt.
        Tut mir leid, meine Glaskugel kennt deine Anforderungen und deine Daten und deine Änderungen nicht! Solange ich von dir keine diesbezüglichen Testdaten und Anforderungen, wann URI erkannt werden müssen, kommen, kann ich nichts helfen.
        Und, du magst mich für raffgierig halten, ein Danke reicht mir nicht; ich verlange keine Bezahlung, aber ein Geschenk wäre angebracht, ausnutzen lassen ist nicht drin.
        Wenn du das nicht willst, dann musst du eben jemand anders bitte.
        Last edited: 2014-06-29 18:48:33 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        bianca
        
        2014-06-29 19:44
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Deine eigenen Beispiele gehen ja auch nicht. Welches Geschenk hast du dir denn vorgestellt?
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2014-06-30 09:32
        
        User since
        2005-01-17
        14904 Artikel
        Admin1
        
        Geschenkgutschein wäre nett.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        GwenDragon
        
        2014-06-30 09:36
        
        User since
        2005-01-17
        14904 Artikel
        Admin1
        
        2014-06-29T17:44:29 bianca
        Deine eigenen Beispiele gehen ja auch nicht.
        Dann hast du in deinem Programm aber irgendwelche Fehler gemacht.
        Zeig doch bitte mal Beispielcode wo es nicht geht, vielleicht lässt sich was im Modul verbessern oder dein Problem eingrenzen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2014-06-30 09:50
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Nein, vergiss es. Das war mein Versehen von gestern, was ich beschrieben hatte.
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        bianca
        
        2014-06-30 06:58
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Hab mir das hier nochmal in Ruhe angeschaut. Also:
        www.google.com und "google.de" funktionieren mit Schemeless bei mir auch. Warum ich gestern gesagt habe, es funktioniert bei mir nicht lag daran, dass ich in der sub noch mehr mache, z.B. Umwandlung von " zu ".
        
        Mehr muss aber m.E. auch nicht, denn da wird eine eindeutige Erkennung extrem schwierig.
        Wenn jemand Fließtext schreibt und hinter dem Satzende-Punkt kein Blank setzt oder das Satzende auf das Zeilenende fällt hat man möglicherweise Ersetzungen, die völlig daneben sind.
        
        Von daher würde ich im Moment das Schemeless Modul garnicht einsetzen, weil es nicht mehr erkennt als das ohne.
        Aber für mich ist es gut, wie es jetzt ist und ich danke dir ganz ganz herzlich, GwenDragon!
        Welches Geschenk hattest du dir vorgestellt? Überraschen kann ich dich nicht, ich hab von dir lediglich eine E-Mail aber damit kann ich dir keine Sahnetorte schicken.
        Last edited: 2014-06-30 07:18:12 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        GwenDragon
        
        2014-06-30 17:51
        
        User since
        2005-01-17
        14904 Artikel
        Admin1
        
        Wenn du irgendwelche Ideen hast, wo das Modul erweitert werden sollte, sag es. Vielleicht kann ich ja was machen und dann dem Modul-Maintainer vorschlagen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        bianca
        
        2014-06-30 18:02
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Nein, ist alles ok jetzt. Danke dir.
        Vielleicht könnte man diesen Stand jetzt auch hier in battie einsetzen, damit die Links richtig erkannt werden.
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2014-07-01 12:57
        
        User since
        2005-01-17
        14904 Artikel
        Admin1
        
        Ich nehme an, dass pq erst bei einem CPAN-Update des Moduls URI::Find das ändert.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- pq
  
  2014-06-29 20:44
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  wie wärs denn mit einem fork auf github, so lassen sich änderungen und testskripte viel leichter austauschen, würde ich denken...
  und mit fertigen tests steigen die chancen, dass michael einen pullrequest annimmt.
  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
- pq
  
  2014-06-30 21:00
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  Splitted to URI::Find und Fixes
  
  Original message by 'GwenDragon':
  [quote]Ich habe jetzt auf meinem Github [url=https://gith...[/quote]
  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

View all threads created 2014-05-05 11:32.