Extracting urls

[steve silvers]

The below snippet works ok but needs some improvement. Basically I'm 
querying data in a text area, can be very long. I just want to grab out the 
name of the document(s) in each row.

while (($Data) = $sth->fetchrow_array) {
        $Data =~ m|(\w+)://([^/:]+)(:\d+)?/(.*)(\w+)|;
        print "$4\n";
} # End while
The problem is when there are more than one the line will look like
docs/test3548.html  http://server/docs/test3548.html
Plus many lines keep extra junk after it. With the above snippet I only want 
to return all the documents names ie:

test11223.html
test43223.html
etc...
Any help greatly appreciated
Steve
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs