Problema borrado línea de archivo
Publicado: 2009-03-03 08:43 @405Hola, amigos:
He borrado por línea de comando una línea de un archivo haciendo...
... hasta aquí todo OK.
... pero luego en un archivo.pm hago lo mismo y no me resulta el borrado del archivo (intentado de varias formas posibles)...
... el código me imprime HOLA MUNDO, pero no me borra la línea del archivo.
¿Quién me puede dar una idea de qué puede ser el error ..!!??
Agradeciendo de antemano...
Saludos
He borrado por línea de comando una línea de un archivo haciendo...
- Código: Seleccionar todo
perl -n -i.bak -e "/3202016/||print" C: \\CASEALERT2.txt
... hasta aquí todo OK.
... pero luego en un archivo.pm hago lo mismo y no me resulta el borrado del archivo (intentado de varias formas posibles)...
Using perl Syntax Highlighting
#!C:\perl\bin\perl.exe -w
use CGI;
#`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`;
#open(AN,`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`);
#close(AN);
#@output = `perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`;
system(`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`);
print "Content-type: text/html\n\n";
print "<center><h1>HOLA MUNDO!</h1></center>\n";
exit(1);
use CGI;
#`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`;
#open(AN,`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`);
#close(AN);
#@output = `perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`;
system(`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`);
print "Content-type: text/html\n\n";
print "<center><h1>HOLA MUNDO!</h1></center>\n";
exit(1);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
... el código me imprime HOLA MUNDO, pero no me borra la línea del archivo.
¿Quién me puede dar una idea de qué puede ser el error ..!!??
Agradeciendo de antemano...
Saludos
