Teilstring extrahieren (gelöst) (Perl/CGI)

[thread]18180[/thread]

Teilstring extrahieren [gelöst]

Tags: perl5 CGI Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+6 replies
chmod777

2013-03-04 07:22
User since
2009-09-14
82 Artikel
BenutzerIn
Hi!

ich möchte aus einer url einen teil entfernen. Und zwar sieht die url so aus:
Code: (dl )

run.cgi?taki=222&act=foo&temp=bar
und ich möchte "taki=222&" herausgelöst haben. Meine Versuche mit
Code: (dl )

=~ s/taki(.*)\&//g;
bewirken, dass bis zum letzten vorkommenden "&" extrahiert wird - es sollte jedoch das erste vorkommen berücksichtigt werden.

wie muss ich den befehl umbauen?
- +3 replies
- renee
  
  2013-03-04 07:39
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Du darfst nicht gierig sein ;-) .* versucht, möglichst viele Zeichen aufzunehmen. Nimm mal .*? ...
  
  Code: (dl )
  
  =~ s/taki(.*?)&//g;
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - chmod777
    
    2013-03-04 07:46
    
    User since
    2009-09-14
    82 Artikel
    BenutzerIn
    
    ups - gier & geiz ;-)
    
    danke!!
  - murphy
    
    2013-03-04 12:22
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Alternativ könnte man im Suchmuster für den Wert zum Schlüssel das Trennzeichen & ausschließen. Und außerdem wäre es vermutlich nicht dumm, auf & oder Ende der Zeichenkette zu matchen, falls der gesuchte Parameter am Ende steht.
    
    Daher mein Vorschlag:
    
    Code (perl): (dl )
    
    ... =~ s/taki[^&]*(&|\z)//g;
    
    When C++ is your hammer, every problem looks like your thumb.
- +2 replies
- Linuxer
  
  2013-03-04 12:55
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Man könnte auch das Modul URI verwenden und damit die URL zerlegen, bearbeiten und neu zusammensetzen.
  
  Beispiel:
  
  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; use URI; my $url = 'run.cgi?taki=222&act=foo&temp=bar'; my $uri = URI->new( $url ); my %params = $uri->query_form; delete $params{taki}; $uri->query_form( %params ); print $uri->as_string;
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Muffi
    
    2013-03-04 13:25
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Mein eindeutiger Favorit.
    Mit ner "billigen" regex-lösung fällst irgendwann mal drüber. Spätetens wenn sich der Code per STRG+C-V verbreitet.
    1 + 1 = 10

View all threads created 2013-03-04 07:22.