Verzeichnis kopieren inkl. Files & Unterordner - #133303 (Allgemeines zu Perl)

GwenDragon

2010-02-19 12:29

User since
2005-01-17
14836 Artikel
Admin1

Es gibt ein Modul names CPAN:

File::Copy::Recursive.

Code (perl): (dl )

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

my $fromdir = '/tmp/myfiles';
my $todir = '/home/peter';
dircopy($fromdir,$todir) or die $!;

Ansonsten könntest du auch unter Linux den folgenden Systemaufruf starten:

Code (perl): (dl )

my $returnval = qx( cp -a $fromdir/* $todir/ );

Unter Windows müsste ein xcopy-Aufruf ähnliches tun.

Code (perl): (dl )

my $returnval = qx( xcopy /S /E /V $fromdir\*.* $todir\ );

//EDIT: Typos beim qx
Last edited: 2010-02-19 12:35:43 +0100 (CET)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten