Mike Flannigan wrote: > Do you guys know what is wrong here. I'm trying to > copy a directory recursively. I thought some combination > of these commands might work, but all give various errors > like "Invalid Argument". > > This is on Win32. > > > use strict; > use warnings; > use File::NCopy qw(copy); > > my $dir1 = "C:/Lame"; > > my $dir2 = "C:/Copy2"; > > copy \1,"$dir1","$dir2" or die "Copy failed: $!"; > #copy "$dir1","$dir2" or die "Copy failed: $!"; > #copy $dir1,$dir2 or die "Copy failed: $!"; > > > #my $file = File::NCopy->new(recursive => 1); > #my $file = File::NCopy->new(u_chmod => \&my_chmod,f_check => \&my_fcheck); > #$file->copy "$dir1","$dir2" or die "Copy failed: $!"; > > > __END__ > >
Never mind. I finally found one that works: use strict; use warnings; use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove); my $dir1 = "C:/Lame"; my $dir2 = "C:/Copy2"; dircopy($dir1,$dir2) or die "Copy failed: $!"; __END__ This was much harder than it should be. Mike _______________________________________________ Houston mailing list [email protected] http://mail.pm.org/mailman/listinfo/houston Website: http://houston.pm.org/
