🚀 go-pugleaf

Potrzebowałbym znaleźć regexp który mi wytnie jeden parametr z urla i
zrobi url bez tego parametru, konkretne to wycięcie image=cos lub image=

czyli np. 

/index.php?test=1&image=cos&p=2 => /index.php?test=1&p=2
/index.php?test=1&image=cos&p=2&r=4 => /index.php?test=1&p=2&r=4
/index.php?b=2&a=1&image=cos&p=2&r=4 => /index.php?b=2&a=1&p=2&r=4
/index.php?image=cos&p=3 => /index.php?p=3
/index.php?image=&p=3 => /index.php?p=3
/index.php?p2=2&image=cos => /index.php?p2=2
/index.php?title=image&sometest=1 => /index.php?title=image&sometest=1
/index.php?title=image&someimage=data&test=1 => /index.php?title=image&sometest=1
/index.php?title=image&someimage=data&test=1 => /index.php?title=image&someimage=data&test=1

#!/usr/bin/perl

use common::sense;

my @b = (
   "/index.php?test=1&image=cos&p=2",
   "/index.php?test=1&image=cos&p=2&r=4",
   "/index.php?b=2&a=1&image=cos&p=2&r=4",
   "/index.php?image=cos&p=3",
   "/index.php?image=&p=3",
   "/index.php?p2=2&image=cos",
   "/index.php?title=image&sometest=1",
   "/index.php?title=image&someimage=data&test=1"
);

my @a = (
   "/index.php?test=1&p=2",
   "/index.php?test=1&p=2&r=4",
   "/index.php?b=2&a=1&p=2&r=4",
   "/index.php?p=3",
   "/index.php?p=3",
   "/index.php?p2=2",
   "/index.php?title=image&sometest=1",
   "/index.php?title=image&someimage=data&test=1"
);

my $r = '([^&]*)image=[^&]*&*(.*)';
my $i = 0;
for my $t ( @b ) {
    print $t;
    $t =~ s/$r/\1\2/;
    if ( $t eq  $a[ $i ] ) {
       say " => $t OK";
    }
    else {
       say " => $t <> $a[ $i ] ERROR";
    }
    $i++;
}

wysypuje się na dwóch przykładach:

/index.php?p2=2&image=cos => /index.php?p2=2& <> /index.php?p2=2 ERROR
/index.php?title=image&someimage=data&test=1 => /index.php?title=image&sometest=1 <> /index.php?title=image&someimage=data&test=1 ERROR


i w sumie po pół godzinie nie jestem już pewien czy da się to zrobić
regexpem. Jakieś szybkie pomysły?

  eloy
-- 
-------e-l-o-y----------------------------e-l-o-y-@-k-o-f-e-i-n-a-.-n-e-t------

       jak to dobrze, że są oceany - bez nich byłoby jeszcze smutniej