[Perl] Funcion savefile()
Publicado: 04 Oct 2015, 17:22
Hola , con esta funcion podran crear un archivo y escribir en el , si el archivo ya existe solo escribe y no lo borra.
#By Doddy H
sub savefile {
open (SAVE,">>".$_[0]);
print SAVE $_[1];
close SAVE;
}
Ejemplo de usosavefile("C:\\Windows\\Logs\\file.txt","hola")