5 de enero de 2010

Copiar, borrar, mover archivos en Perl


Para manejar archivos en perl tenemos el módulo: File::Copy

#!/usr/bin/perl
use File::Copy;

Copiar un archivo:
copy ("$file1","$file2") or die "Copy failed: $!";

Borrar una archivo:
unlink ($file2);

Mover archivo:
move ("$file1","$file2");

3 comentarios:

  1. hola que tal, mira incorpore ese codigo en uno que ya tenia, se trata de buscar un archivo, luego de que lo encuentra pues muestra el link para su descarga y por ultimo ese archivo debe ser movido de directorio, para cuando lo vuelvan a buscar, pues ya no aparezca, gracias, te dejo el codigo en PHP:

    ResponderEliminar
  2. Este comentario ha sido eliminado por el autor.

    ResponderEliminar
  3. sabes si hay alguna manera de decir en ves de un "or die", setear un booleano para notificar por correo electronico que ha habido un error de copia. asi no mato el script si no lo finalizo enviando dicho correo.
    sabes como puedo sustituirlo

    gracias
    saludos
    GaladCreative.com

    ResponderEliminar