in reply to Fetching last part of url

my $page;
$something =~ m!([^/!]*$)! and $page = $1;

[download]
Update: fix typo: from  m!([^/!]*$)!to  m!([^/]*$)!.
Boris

Replies are listed 'Best First'.
Re^2: Fetching last part of url
by CombatSquirrel (Hermit) on Sep 09, 2004 at 17:10 UTC 
    #!perl

use strict;
use warnings;

my $myfetch = 'http:\\myurlinfo\mypage.html';
$myfetch =~ m!([^/!]*$)! ?
   print $1 :
   print 'Whoops...';
__END__
Unmatched [ in regex; marked by <-- HERE in m/([ <-- HERE ^// at (eval
+ 1) line 7.

    [download]
    Probably you meant 
    #!perl

use strict;
use warnings;

my $myfetch = 'http:\\myurlinfo\mypage.html';
$myfetch =~ m!([^\\]+)$! ?
   print $1 :
   print 'Whoops...';
__END__
mypage.html

    [download]

    Cheers,
    CombatSquirrel.
    Entropy is the tendency of everything going to hell.
[reply]
[d/l]
[select]
      Oops, no I mean m!([^/]*$)! sorry.
      Boris
[reply]
[d/l]

In Section Seekers of Perl Wisdom