Busqueda+Reemplazo binario
Publicado por juan (20 intervenciones) el 22/10/2001 14:06:11
Hola, quisiera saber como se realizar una busqueda binaria y reemplazarla. Ej:
$org = pack("H8", "686f6c61");
$des = pack("H8", "484f4c41");
...
read (DAT, $dato, $long);
if ($dato =~ s/$org/$des/){
print "Reemplazado...\n";
}
...
En este caso funciona, el problema surge cuando en $org ó $des se encuentra caracteres como '\' (valor 5c hexa).
¿hay alguna forma de escapar estos caracteres de forma automatica?
¿cuales son todos los caracteres que hay que escapar?
$org = pack("H8", "686f6c61");
$des = pack("H8", "484f4c41");
...
read (DAT, $dato, $long);
if ($dato =~ s/$org/$des/){
print "Reemplazado...\n";
}
...
En este caso funciona, el problema surge cuando en $org ó $des se encuentra caracteres como '\' (valor 5c hexa).
¿hay alguna forma de escapar estos caracteres de forma automatica?
¿cuales son todos los caracteres que hay que escapar?
Valora esta pregunta
0