Some time ago, Chris Adams said:
Of course, being perl, there's more than one way to do it. I would do something like: my ($file) = $url =~ m!^http://%5B%5E/%5D+/(.*)!; That would strip off the leading protocol/host, leaving the rest. If there was a subdirectory in the URL (e.g. http://host/some/file.zip) the above would result in $file = "some/file.zip". If you always only want the last part (following any slashes): my ($file) = $url =~ m!([^/]+)$!; This would take http://host/some/file.zip and give $file = "file.zip".
Wow!, fantastic solution, thanks very much Chris.
***************************************************************************** * Este mensaje de correo electrónico ha sido procesado por el * * Servidor de Correo Electrónico de Frioclima y es un correo * * válido para el dominio: frioclima.com.cu * *****************************************************************************