Regexp::Common gibt keine Werte zurück (gelöst) (Fragen zu Perl-Modulen)

[thread]18525[/thread]

Regexp::Common gibt keine Werte zurück [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+4 replies
MarkusH

2013-08-18 12:24
User since
2012-04-08
161 Artikel
BenutzerIn
Hallo,

in diesem Forum habe ich vor kurzem gelernt, dass man HTML nicht mit Regex bearbeiten sollte.
Ich versuche das ab jetzt zu beherzigen und verwende für ein Script zwei Module.
Mich interessieren von einer HTML-Seite die Links, die wiederum in einer Tabelle hinterlegt sind.
Mit HTML::TableExtract wird die HTML-Seite geparst. Die Links liegen dann in der Form vor, wie unter $link im Schnipsel.
Das Modul Regexp::Common lass ich dann über $link drüberlaufen um die URL zu extrahieren.
Leider gibt das Modul aber keine Werte zurück und ich weiß nicht warum.
Die print Anweisung innerhalb des If-Blocks wird ausgegeben.
Außerdem erhalte ich gleich zum Programmstart die als Kommentar markierte Meldung.

Hier mein Schnipsel:
Code (perl): (dl )

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

#!/usr/bin/perl -w use strict; use warnings; use Regexp::Common qw /URI/; my $link = '<a href="https://aaa.bbb.ccc.ddd.com/path/filename.msi">name.msi</a>'; my $cap = 'leer'; if ($RE{URI}{HTTP}{-scheme => qr/https/}{-keep}{-i}->matches($link)) { $cap = $1; print "HTTPS URI gefunden" . "\n\t" . "$cap" . "\n\n"; } print "Done!"; #Can't Regexp::Common::FIRSTKEY at C:/Program Files (x86)/ActiveState Komodo IDE 7/lib/support/dbgp/perllib/perl5db.pl line 197.
$q =~ /(bb|[^b]{2})/
- +3 replies
- payx
  
  2013-08-18 13:07
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo MarkusH,
  
  mit Zeile 10 so:
  
  Code (perl): (dl )
  
  if ($link =~ m[$RE{URI}{HTTP}{-scheme => qr/https/}{-keep}{-i}]) {
  
  funktioniert es (unplausiblerweise). Das scheint mir ein Bug im Modul zu sein(?)
  
  HTH
  Grüße
  payx
  
  PS: Die von Dir zitierte Warnmeldung kommt bei mir nicht. Strawberry Perl 5.16 unter Win7 (64bit) mit Regexp::Common Version 2013031301.
  
  Editiert von payx: PS
  Last edited: 2013-08-18 13:16:55 +0200 (CEST)
  - +2 replies
  - MarkusH
    
    2013-08-18 14:01
    
    User since
    2012-04-08
    161 Artikel
    BenutzerIn
    
    Danke payx, so funktioniert es auch bei mir!
    $q =~ /(bb|[^b]{2})/
    - payx
      
      2013-08-19 09:57
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo,
      
      ich habe diesen Fall gerade per Mail an den/die Maintainer/in von Regexp::Common mitgeteilt.
      
      Grüße
      payx

View all threads created 2013-08-18 12:24.