Foro - Perl en Español

por **joss** » 2007-10-27 16:13 @717

Hola a todos!.

Me gustaría saber como puedo recortar texto.

Código: Seleccionar todo: http://www.localhost.com/carpeta/index.php?id=1

Ese ejemplo es una url y es lo que quiero aprender a recortar, la cosa es que me gustaría guardar en una variable el valor de

Código: Seleccionar todo: www.localhost.com/

en este caso.

Actualización: La expresión regular funciona de esta manera:
* decimos que busque (m//) en la variable $url
* usamos la presencia del literal 'http://' como referencia de posición para lo que sigue después
* hay un par de paréntesis de captura, cuyo contenido quedará en la variable $host. $host está entre paréntesis porque el resultado de la expr. reg. es una lista de valores: uno por cada par de paréntesis que pongamos. Solo hay uno, pero sigue siendo una lista de valores.
* dentro de los paréntesis, buscamos cualquier conjunto de caracteres (.*) que estén antes (?) de un '/'.

por **Jenda** » 2007-10-29 06:53 @328

En ese caso podría ser mejor usar un módulo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use URI;

my$uri= URI->new('http://www.localhost.com/carpeta/index.php?id=1');
print$uri->host();
# o quizá
print$uri->host_port();Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4