Foro - Perl en Español

¡¡Hola!!

Nuevamente necesito ayuda, estoy tratando de copiar un fichero de una carpeta a otra y la verdad no sé qué estoy haciendo mal, estoy realizando la prueba con un *.txt, y también necesito pasar carpetas de una ruta a otra en Windows.

#!/usr/bin/perl


use strict;
use File::Find;
use File::Copy;

my $dir = 'C:\\Users\\pgaviri\\Desktop\\Probar.txt';
my $path = "C:\\Users\\pgaviri\\Documents";

find(\&imprimir_archivo, $dir);

sub imprimir_archivo{
my $elemento = $_;
print "$elemento\n" if -f $elemento;
}

copy("Probar.txt", $path);


Mil gracias si me pueden ayudar.


Cordialmente: Chascarrilla

Prueba esto

Notas:

• no necesitas usar File::Find si solo vas a copiar un archivo
• en Windows puedes usar la barra diagonal '/' igual que en UNIX/Linux, y te ahorras el tener que "escaparlas"

Muchas gracias por tu ayuda, es muy importante para mi. ¡¡¡¡YA Funciona!!!!