- - arden.

File::Repl is very similar and I have used it a few times. Looking over the examples, File::Repl might be more powerful, and I'm not sure which is actually faster -- but Repl does remind me a lot of tools like the kick-butt rsync, so at least it gives me the warm fuzzies*. I'm considering using File::Repl to mirror my ogg-vorbis directory to my new audio player -- maybe with an X::Osd progress bar :)

* = mooses are fuzzy and warm anyway, it does not take much.

use strict;
use warnings;

use File::Basename        'basename';
use File::Find::Rule      'find';
use File::Path            'mkpath';
use File::Copy            'copy';
use File::Spec::Functions qw/ splitdir catdir splitpath catfile /;

$::PROG         = basename $0;
my($orig, $new) = @ARGV;

die "Usage: $::PROG SRC DEST\n"
  unless defined $new and defined $orig;

my $iter        = find start => $orig;

while(my $ent = $iter->match) {
  if(-d $ent) {
    my $mode = ( stat $ent )[2];
    my @src  = splitdir $ent;
    my $dest =   catdir $new => @src;

    mkpath $dest => 0, $mode
      or die "$::PROG: Couldn't create '$ent': $!";
  } else {
    my @src  = splitpath $ent;
    my $dest =   catfile $new => @src;

    copy $ent => $dest
      or die "$::PROG: Couldn't copy '$ent': $!";
  }
}
[download]

Be wary of the File::Find module, it has a memory leak. See File::Find memory leak I tend to avoid it now.

Is there a Win32 module similar to File::Dirsync or File::Repl mentioned above? My search on ppm3 didn't find anything. I'm looking for a similar solution myself. It my searches prove unsuccessful I'll end up writing my own, just researching now.

Thanks
Dean

Programming these days takes more than a lone avenger with a compiler. - sam
A Standard for the Transmission of IP Datagrams on Avian Carriers

File::Repl works on Win32. ppm probably doesn't have it, but IIRC you can install from CPAN without needing a compiler.

perl -MCPAN -e "install File::Repl".

I would try that -- if you have problems, you may need to download a free copy of nmake from Microsoft (and possibly rename it make) to get CPAN to work, but other than that, it should be fine. Again, I don't think a compiler is required. We use this module at Work on Win32 quite often in our build system. No problems yet!

I'd go for a non-Perl solution, and choice any off:

• cp -R or cp -a
• tar cf - src | (cd dest; tar xf -)
• cpio
• rsync

Abigail

#!usr/bin/perl -W
# pure Perl directory copying script

use File::Find;

$from = $ARGV[0];    # from should be full path
$to   = $ARGV[1];    # to should have / at the end


mkdir( $to ) || die "cant mkdir $to: $!";

find( \&copyroutine, $from );

sub copyroutine
{
if( $_ eq '.' || $_ eq '..' ){ return 1 }

print "got $_\n";

open( FROM, $_ ) || die "cant open $_: $!";
open( TO, "> $to$_" ) || die "cant make $to$_ : $!";

while( $line = <FROM> )
{
   print TO $line;
}

close TO;
close FROM;

}
[download]

I know just how much everyone likes to perfect solutions, and add alternate ones - so I leave it to others to implement recursion and binary handling. The above code works with a flat directory on my trusty 333Mhz windows box.

The guy with the awful signature

Who needs a Perl solution when rsync works on all significant platforms? ... even between platforms!

Last I heard, there's not a working rsync for VMS...yet.

And VMS is significant?
theorbtwo ducks.

Just a non-perlish train of thought...

<!perl>   tar cf - source | ( cd target ; tar xf - )   </!perl>

that's my unox recursive copying incantation.
But how would it translate to Perl?

it seems Archive::Tar only deals with file archives at first sight.
But it might be twisted to work as the tar loop, or not? And what about PAR?

#!/usr/bin/perl

use File::NCopy;

$file = File::NCopy->new(recursive => 1);

$file->copy($dir1, $dir2); # Copy $dir1 to $dir2 recursively
[download]

sub setRecursiveCopyCommand {
    my $OS = $^O; 
    
    if ( $OS eq 'VMS' ) {
       return whatever the hell they do in VMS 
    } elsif ( $OS eq 'PLAN9' ) {
       return whatever the hell they do in PLAN9
    } elsif ( $OS eq monkeys_fly_out_of_my_ass ) {
       you get the picture
    } else {
    ...
}
[download]

Because trying to shell out to xcopy wasn't working =/. Actually by "pure perl" I meant not utilizing any other binary.

Note that by default DOS's xcopy does not copy recursively, you have to give a switch to do that, /E I think.

$ cp -r src/* tgt
[download]