Underc0de

Programación Scripting => Perl => Mensaje iniciado por: BigBear en Julio 03, 2011, 09:44:43 PM

Título: [Perl] Funcion savefile()
Publicado por: BigBear en Julio 03, 2011, 09:44:43 PM
Hola , con esta funcion podran crear un archivo y escribir en el
Si el archivo ya existe solo escribe y no lo borra

Código (perl) [Seleccionar]

#By Doddy H
sub savefile {
open (SAVE,">>".$_[0]);
print SAVE $_[1];
close SAVE;
}


Ejemplo de uso

Código (perl) [Seleccionar]

savefile("C:\\Windows\\Logs\\file.txt","hola")