Re: Regular expression

[Ron Grabowski]

>   print "$1 \n" if $text =~ /\/(.+):/;
>   print "$1 \n" if $text =~ /\/([^\/]+):/;

Or you could do it in one line:

(split/:\s/)[2] =~ m|.*/(.*)$|;

_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users