Foro - Perl en Español

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.

Con una expresión regular, sacamos lo que queremos...


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 '/'.

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

Bienvenido a los foros de Perl en Español, Jenda.

Lo único que te faltaría en tu ejemplo con el módulo URI es el '/' final, que necesita joss.

Gracias No sé cuánto tiempo voy a poder invertir en ese foro, pero espero poder ayudar a los novatos mejorando al mismo tiempo mi español

Pues, es fácil añadir el '/' si de verdad lo necesita.

Código: Seleccionar todo

print $uri->host() . '/';