The URI::URL module (part of the URI distribution) has many methods for returning the various parts of a URL.

"Perl makes the fun jobs fun
and the boring jobs bearable" - me

first: ++davorg for already providing the really real right answer. in perl, there's always MTOWTDI, but some are better than others, and ones other people have already written properly and debugged are often best.

if you really want a regex to get everything after the last /, i think the easiest way is

(my $file = $url) =~ s~^.*/~~;
[download]

my ($file) = $url =~ m~([^/]*)$~;
[download]

i also wanted to point out that in BigJoe's solution it is more idiomatically perl to say $array[-1] than $array[$#array]. this is useful to me because it may not always be clear how to get the last valid index of an array that is, say, stored as the second item in an anonymous array reffed by a hash entry... meaning $hash{stuff}[1]. but &091;-1&093; always works

update: as per the tachyon beam. no, i didn't test it because at the moment i am away from easy perl access. mea culpa. fixx0red.

my ($file) = $url =~ m~[^/]*$~;

You didn't test this did you? You need to capture:

my ($file) = $url =~ m~([^/]*)$~;

tachyon
[download]

$URL = "http://www.your.com/your/url/text.txt";
my @list = split(/\//, $URL);
print $list[$#list];
[download]

use File::Basename;

print basename 'http://www.plenty.org/downloads/crap.exe';
[download]

yesbut, what if the URL is ...?

http://www.plenty.org/downloads/crap.exe?foo=/path/to/something
[download]

xoxo,
Andy

%_=split/;/,".;;n;u;e;ot;t;her;c; ".   #   Andy Lester
'Perl ;@; a;a;j;m;er;y;t;p;n;d;s;o;'.  #   http://petdance.com
"hack";print map delete$_{$_},split//,q<   andy@petdance.com   >

#!/usr/bin/perl -w

use strict;

my $url = "http://www.oreilly.com/catalog/lperl3/index.html";
my ($page) = $url =~ /.*\/([^\/]*)/;
print $page;
[download]

This does what you want

$url = 'http://www.fubar.com/fileXXX.txt';

# name and extension
($file) = $url =~ m|^.*/(.*)$|;
print "$file\n";

# if you want the name without the extension
$ext ='txt';
($file) = $url =~ m|^.*/(.*)\.$ext$|o;
print "$file\n";
[download]

Note with the second RE you can hard code in $ext if you want. The o at the end is a compile once directive It make the regex faster but means that if you change $ext on the fly this regex will not care! Just remove the o if you need to do this.

cheers

tachyon

$url = 'http://www.fubar.com/fileXXX.txt';
$url =~ m{^[\w\/\:\.]+\/([\w\.]+)$};
$file = $1;
[download]