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 [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
