Foro - Perl en Español

por **BigBear** » 2011-11-23 19:21 @848

Tengo un problema con el siguiente código porque estoy abriendo un array para escribirlo en un archivo de texto. Lo que quiero hacer es que cuando esté escribiendo en el archivo poder reemplazar las \ por \\, las / las dejo como están, solo son las \.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @files =
 
('C:/xampp/htdocs/aca.txt','C:/xampp/htdocs/aca.txt',niclog','/var/log/exim/paniclog','/var/lo/exim/rejectlog','/var/log/exim_rejectlog');
 
open(FILE,">>aca.txt");
 
for my $linea(@files) {
$linea=~s/\/\\//;
print FILE '"'.$linea.'",';
}
close FILE;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¿ Alguien puede ayudarme ?

Foro - Perl en Español

Reemplazar barras

Reemplazar barras

Publicidad

Re: Reemplazar barras

¿Quién está conectado?