🚀 go-pugleaf

Hola "F" <esnewsfQuItAeStO@EsToCaMbIeNyahoo.es>
el Mon, 12 Dec 2005 05:11:19 GMT escribiste:

> Tengo una seria de cadenas, en formato windows (Esto es con el separador de 
> directorios, con la barra \ en lugar del /)
> 
> `Por ejemplo
> 
> C:\prueba\prueba\otracosa\otracosa\fichero.txt
> 
> que se obtiene, directamente con un readdir
> 
> bien, yo quiero sustuir los primeros directorios por ejemplo quitar 
> "C:\prueba\prueba\" y dejar solo "otracosa\otracosa\fichero.txt"
> 
> Para eso podria hacer
> 
> $dirquitar= "C:\\prueba\\prueba\\";
> $direntrada="C:\\prueba\\prueba\\otracosa\\otracosa\\fichero.txt";
> 
> $direntrada=~ s/^$dirquitar/$direntrada/gi;
> 
> ¿que pasa?, que no funciona por que $dirquitar, encuntra caracteres \, que 
> interepra como secuencias de escape al analizar la expresion regular, y no 
> los toma literales, y me gustaria evitar eso  ¿alguna idea?

sustituir los \ de entrada por alguna otra cosa (perldoc tr), procesar
y después recuperar los \ originales a partir de la *otra cosa*

la otra cosa podría ser \\, / o cualquier cosa que no esperes encontrarte
en las entradas

otra posibilidad, para este caso, es usar length, substr y eq para
determinar la longitud de $dirquitar, separar direntrada en sus dos
partes y comparar los strings.

-- 
Gonzalo Pérez de Olaguer Córdoba <gpoc@iies.es>
PGP key 2861C704 --- F206 5671 6789 425D 111C  1302 214F 1934 2861 C704