Perl programming related question.

Lázaro Morales lazaro at frioclima.com.cu
Thu Aug 16 16:09:35 UTC 2012


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://[^/]+/(.*)!;
>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                                     *
*****************************************************************************




More information about the users mailing list