A ver si me podéis echar una mano con esto... (me imagino que para los gurús del Perl les será bastante sencillo).
Tengo un fichero el cual contiene x líneas. Y quiero sustituir por cada línea del fichero el literal ";&;" por este otro "; ;".
Imaginemos que mi fichero se llama prueba.txt. Esto es lo que hago:
Using perl Syntax Highlighting
my $comando = "cat prueba.txt | ";
sustituye($comando);
sub sustituye{
my $file = shift;
open(FH,$file);
while(<FH>)
{
s/;&;/; ;/;
}
close(FH);
}
sustituye($comando);
sub sustituye{
my $file = shift;
open(FH,$file);
while(<FH>)
{
s/;&;/; ;/;
}
close(FH);
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
He probado también a escapar los caracteres de la siguiente forma
Using perl Syntax Highlighting
y tampoco hace nada.
¿Me podéis decir por favor, qué estoy haciendo mal?....
Muchas gracias y un saludo a todos.