Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: BigBear en 11 Octubre 2011, 18:10 pm



Título: [Perl] Funcion savefile()
Publicado por: BigBear en 11 Octubre 2011, 18:10 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
  1. #By Doddy H
  2. sub savefile {
  3. open (SAVE,">>".$_[0]);
  4. print SAVE $_[1];
  5. close SAVE;
  6. }


Ejemplo de uso


Código
  1. savefile("C:\\Windows\\Logs\\file.txt","hola")
  2.