sslug-teknik team mailing list archive

[Michael Rasmussen <mir@xxxxxxxxx>]

On Mon, 28 Feb 2011 15:01:03 +0100
Asbjorn Grandt <asbjorn@xxxxxxxxxx> wrote:

> Ikke helt, denne ignorerer ikke /../../
> Jeg har prøvet med f.eks. /\/\w+\/\.\./ men hvis segmentet før /../
> indeholder et . eller andet ikke-alfanumerisk tegn matcher den jo ikke.
>
#!/usr/bin/perl

my $url = "/test/test.cgi/../../";

$url =~ /^\/(.+?)\/\.\./;

print "$1\n" if $1;

exit;

$ perl /tmp/test.pl 
test/test.cgi

Det går da vist meget godt? Bemærk (.+?)

-- 
Hilsen/Regards
Michael Rasmussen
http://pgp.mit.edu:11371/pks/lookup?op=get&search=0xE3E80917
A computer is like air conditioning: it becomes useless when you open
windows.