Perl Regular Expression help

[rakeshou]

I need to extract the name of the file open_a.pl from the URL like:

http://localhost/cgi-bin/open_a.pl?group_id=41

Thank you

 

[stevexff]

What have you tried so far?

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[rakeshou]

So far I have tried

my $referer = new URI($q->referer);
#gives you the url

$referer =~ m!/(.*)/!;
#extracts between first and last /

$referer =~ m!$1(.*)\?!;
#extracts from what ever was extracted by statement 2 till ?

prints $1;
#prints file name

seems to be working but I am sure there are shorter and easier ways of doing this..

Thanks for looking into the matter.

rak

 

[brigmar]

How about:

my $referer = new URI($q->referer);
my ($filename) = $referer =~ m#.*/(.*)\?#
print $filename;

 

[rakeshou]

Wow, thats what I wanted.

Thank you,

Appreciate it.