Buenas,
Tengo una expresión regular, la cual la estoy utilizando desde consola, pero me gustaría tratar de hacerla en Perl, ya que me gustaría integrarla a un script que ya tengo.
¿Me pueden ayudar?
sed 's/http*:\/\/*//;s/\/*$/\//' prueba.txt | sort | uniq
Donde prueba.txt es:
http://dominio/index.html
http://dominio/images/
http://dominio/manuales/imagenes/
http://dominio/archivos/archivos.txt
Salida:/
/archivos/
/images/
/manuales/imagenes/
Como verán, la idea es parsear el archivo y quedarme con los directorios.
¿Alguien me puede ayudar?
Saludos.