Foro - Perl en Español

por **explorer** » 2011-01-30 10:14 @468

No entiendo la pregunta.

Buscando por Internet, aquí hay un ejemplo de instalación con el ppm desde la línea de comandos:

ppm install File-Copy-Recursive

#!/usr/local/bin/perl
 
#use warnings;
 
use File::Copy::Recursive qw(dircopy);
 
print "start\n";
 
$origen="c:\\interfaz_pagos\\entrada\\BANCOMER";
$origen="c:\\interfaz_pagos\\entrada\\BANORTE";
$destino="c:\\interfaz_pagos\\prueba";
#mkdir($destino) or die "Could not mkdir $target_dir: $!";
 
dircopy($origen, $destino) or die "la Copia fallo: $!";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¡¡Saludos!!

por **explorer** » 2011-01-31 14:25 @642

Según el manual, parece que no. Tendrás que repetir el comando.

por **cagarza** » 2011-01-31 14:34 @648

Excelente, señor, ya hice ese cambio y me funcionó:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/local/bin/perl
 
#use warnings;
 
use File::Copy::Recursive qw(dircopy);
 
print "start\n";
 
$origen="c:\\interfaz_pagos\\entrada\\BANCOMER";
$origen1="c:\\interfaz_pagos\\entrada\\BANORTE";
$destino="z:\\searchlight.mmredes.com\\brmpagosqas\\entrada";
 
dircopy($origen, $destino) or die "la Copia fallo: $!";
dircopy($origen1, $destino) or die "la Copia fallo: $!";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **cagarza** » 2011-02-02 18:54 @829

Me funcionó bien la opción de file::copy::recursive pero también me está copiando la carpeta destino sobre la carpeta destino.

#!/usr/local/bin/perl

#use warnings;

use File::Copy::Recursive qw(dircopy);

print "start\n";

$origen1="c:\\interfaz_pagos\\entrada\\AFIRME";
$origen2="c:\\interfaz_pagos\\entrada\\BANAMEX";
$destino="z:\\entrada";

dircopy($origen1, $destino) or die "la Copia fallo: $!";
dircopy($origen2, $destino) or die "la Copia fallo: $!";

Me copia lo siguiente: z:\\entrada\\entrada

Cuando solo quiero que me copie los archivos dentro de la ruta destino.

por **explorer** » 2011-02-02 19:08 @838

Quizás tengas que activar la opción $File::Copy::Recursive::CPRFComp, o poner un '/' al final de entrada.

Recuerda que no es necesario escribir

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$origen1="c:\\interfaz_pagos\\entrada\\AFIRME";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

sino que vale con hacerlo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$origen1="C:/interfaz_pagos/entrada/AFIRME";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(Windows entiende la barra inclinada de Unix)

Foro - Perl en Español

Copiar librería perl5lib en máquina local

Re: Copiar librería perl5lib en máquina local

Publicidad

Re: Copiar librería perl5lib en máquina local

Re: Copiar librería perl5lib en máquina local

Re: Copiar librería perl5lib en máquina local

Re: Copiar librería perl5lib en máquina local

Re: Copiar librería perl5lib en máquina local

¿Quién está conectado?