regulärer Ausdruck zum Ersetzen eines Parameters (Allgemeines zu Perl)

[thread]14405[/thread]

regulärer Ausdruck zum Ersetzen eines Parameters

Leser: 16

Articles: hide open all | hide show old branches

+5 replies
tadeus

2009-12-21 21:50
User since
2009-10-09
19 Artikel
BenutzerIn
Hallo zusammen,

ich möchte aus einem String der HTML Quelltext enthält, aus jeder Adresse einen bestimmten Parameter rauslöschen.
Beispiel:
Die Adressen sind alle so aufgebaut:
Code: (dl )

axp/linker.php?gr=2&id=2s6d23&url=http://www.google.de
Von diesen Adressen möchte ich immer den id Parameter rauslöschen. Ich weis das ich das mit nem regulären Ausdruck machen muss, hab aber wenig Erfahrung darin.

Könnte mir hier kurz jemand beim Ausdruck hierfür behilflich sein?

Vielen Dank

Grüße
Last edited: 2009-12-22 10:33:59 +0100 (CET)
- +3 replies
- MatthiasW
  
  2009-12-21 22:11
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Ich hab es nicht ausgiebig getestet also ist es vermutlich fehleranfällig:
  
  Code (perl): (dl )
  
  1 2
  
  $addr = 'axp/linker.php?gr=2&id=2s6d23&url=http://www.google.de/'; (my $new = $addr) =~ s/(\?)id=[^&]*&|&id=[^&]*/$1/;
  
  perlrequick
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +2 replies
  - tadeus
    
    2009-12-21 22:25
    
    User since
    2009-10-09
    19 Artikel
    BenutzerIn
    
    Danke schonmal aber da gibts bei mir nen Fehler.
    - MatthiasW
      
      2009-12-21 22:46
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Etwas mehr Infos wären hilfreich :-) Ansonsten ist mir gerade aufgefallen, dass perl warnt, wenn $1 undefiniert ist. Falls du das gemeint hast, sollte es hiermit laufen:
      
      Code (perl): (dl )
      
      1 2
      
      my $addr = 'axp/linker.php?gr=2&id=2s6d23&url=http://www.google.de/'; (my $new = $addr) =~ s/(?<=\?)id=[^&]*&|&id=[^&]*//;
      
      MfG
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
- Gast anon
  
  2009-12-21 23:09
  Argh, immer diese Selbstfrickeleien. Wozu gibt's Module?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  > re.pl $ use URI $ use URI::QueryParam $ my $u = URI->new('axp/linker.php?gr=2&id=2s6d23&url=http://www.google.de/', 'http') axp/linker.php?gr=2&id=2s6d23&url=http://www.google.de/ $ $u->query_param_delete('id') 2s6d23 $ "$u" axp/linker.php?gr=2&url=http%3A%2F%2Fwww.google.de%2F

View all threads created 2009-12-21 21:50.