Re: regex a url

Well, one way, a this-is-what-I-would-do-because-I-am-lazy way, is

$bar = "http://www.merchandisemarket.net/shop/s_images/aaa_small.gif";
@foo = split(/\//, $bar);
$foocount = @foo;
$filename = $foo[$foocount];
[download]

Who's a jigga what?

Comment on Re: regex a url Download Code

Replies are listed 'Best First'.
Re^2: Regex a URL by tadman (Prior) on Oct 06, 2002 at 05:36 UTC
No! It isn't. `my @foo = qw[ a b c d e f ]; my $foo_count = @foo; # $foo_count is 6 my $foo_last = $foo[$foo_count]; # There is no $foo[6] so undef my $real_last = $foo[-1]; # Always works` [download] A lazier way is: `(split(/\//, $bar))[-1]`	[reply] [d/l] [select]
Re: Re: regex a url by diotalevi (Canon) on Oct 06, 2002 at 03:16 UTC
I like that but I like this even more. There's a general uncertainty about what constitutes the filename in an url so there isn't any 100% way to write this. This is a case where you just have to know your data. Anyhow... to borrow from Kage I'm just grabbing those elements that look filename-ish. `$bar = "http://www.merchandisemarket.net/shop/s_images/aaa_small.gif"; @foo = grep /\w\.\w{3,4}$/, split m\|/\|, $bar;` [download] __SIG__ `printf "You are here %08x\n", unpack "L!", unpack "P4", pack "L!", B::svref_2object(sub{})->OUTSIDE`	[reply] [d/l] [select]