Session-Id aus Urls entfernen - #134504 (Allgemeines zu Perl)

topeg

2010-03-11 23:27

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Warum das if?

Code (perl): (dl )

1
2
3

$new_url =~ s/\&amp;/&/g;
my $joined=join('|',qw(sessionid lsessionid jsessionid SID PHPSESSID SessionID BV_SessionID osCsid));
$new_url =~ s/[?&;](?:${$joined})=[^&;]+//ig;

Außerdem gibt es noch Probleme wenn es die Sessionid am Anfang steht dann haust du nämlich auch das "?" mit raus und die URL ist falsch oder ungültig
Das könnte man so lösen:

Code (perl): (dl )

1
2
3

$new_url =~ s/\&amp;/&/g;
my $joined=join('|',qw(sessionid lsessionid jsessionid SID PHPSESSID SessionID BV_SessionID osCsid));
$new_url =~ s/([?&;])(?:${$joined})=[^&;]+/$1 eq '?'? '?':''/ige;

Oder du nimmt CPAN:

URI das dir vieles beim normieren der URL abnimmt.