trying to copy files to multiple dirs where destinations are on txt

[jonathan184]

Hi I am trying to copyfiles and dirs keeping there permissions intact and copy to multiple destinations which are on a data.txt file
on the txt file i put
test1
test2

So where ami going wrong?

 
#!/usr/bin/perl
use File::Copy;
 
my $srcdir = "/var/www/virtual/website/htdocs/drop";
 
opendir(DIR, $srcdir) or die "Can't open $srcdir: $!";
@files = readdir(DIR);
close(DIR);
 
open (MYFILE, '/var/www/virtual/website/htdocs/data.txt');
foreach (<MYFILE>) {
    chomp;
    print "$_\n";
    my $file = @files;
    my $dest = "/var/www/virtual/website/htdocs/$_";
    close (MYFILE);
 
    my $file = @files;
    my $source = "$srcdir/$file";
 
    copy($source, $dest) or die "Copy $old -> $dest failed: $!";
    print "copy completed";
}
 
 
 

[KevinADC]

I'm a bit confused.

@files has a lits of files and folders? Do you want to copy all those files and folders to new folder(s) : test1 and test2?

[jonathan184]

yes that is correct, the destination folder names would be in the text file

I'm a bit confused.

@files has a lits of files and folders? Do you want to copy all those files and folders to new folder(s) : test1 and test2?

[KevinADC]

OK, well, unfortunately your code is not correct, as you already know since it's not doing what you hoped. I have to run right now, but I'll check back later and see if you still need help.

[jonathan184]

I am getting this error when doing this code
Unsuccessful stat on filename containing newline at D:/Perl/lib/File/Copy.pm lin
e 95.
Copy d:\prod\test\drop -> d:\prod\test\test1
failed: No such file or directory at copynow.pl line 22.

#!/usr/bin/perl
 
#use warnings;
#use strict;
 
use File::Copy;
 
open (MYFILE, 'd:\\prod\\test\data.txt');
for $line (<MYFILE>) {
    chomp;
    print "This is the destination $line\n";
    close (MYFILE);
 
    my $srcdir = "d:\\prod\\test\\drop";
    my $dest = "d:\\prod\\test\\$line";
 
 
    copy($srcdir, $dest) or die "Copy $srcdir -> $dest failed: $!";
 
    print "\n\n****** script restarting *******\n";
    sleep 2;
}
 

OK, well, unfortunately your code is not correct, as you already know since it's not doing what you hoped. I have to run right now, but I'll check back later and see if you still need help.

[KevinADC]

I think your last bit of code should be like this:

#!/usr/bin/perl
 
#use warnings;
#use strict;
 
use File::Copy;
 
open (MYFILE, 'd:/prod/test/data.txt') or die "$!";
while (<MYFILE>) {
   chomp;
   print "This is the destination $_\n";
   my $srcdir = "d:/prod/test/drop";
   my $dest = "d:/prod/test/$_";
   copy($srcdir, $dest) or die "Copy $srcdir -> $dest failed: $!";
   print "\n\n****** script restarting *******\n";
   sleep 2;
}
close(MYFILE);
 

but I am not sure it will work even with the code corrected. Note that you can use forward-slashes in the file paths even though you are probably using windows.

[docsnyder]

@jonathan184

File::Copy() does not work recursively.

Try this:

use File::Copy;
 
$destDirFile = '<file that contains the target directories>';
$destRoot    = '<destination root dir>';
$srcDir      = '<src dir>';
 
sub fCopy {
  my($src, $dest) = @_;
  my($user, $group, $mode) = (stat($src))[4,5,2];
  my($srcDir, $destDir);
 
  ($destDir = $dest) =~ s!^(.*)/[^/]+$!$1!;
  ($srcDir  = $src)  =~ s!^(.*)/[^/]+$!$1!;
 
  mkdir($destDir, (stat($srcDir)[2])) if ( ! -d $destDir );
 
  copy($src, $dest);
  chmod($mode, $dest);
  chown($user, $group);
}
 
sub rCopy {
  my($root, $src, $dest) = @_;
  my($srcPath)  = $root . ($src ? '/' : '') . $src;
  my($destPath) = $dest . ($src ? '/' : '') . $src;
  my($fd);
 
  if ( -d $srcPath ) {
 
    opendir($fd, $srcPath) or die "$!";
 
    for $file ( readdir($fd) ) {
      next if ( $file =~ /\.\.?/ );
      rCopy($root, $src . ($src ? '/' : '') . "$file", "$dest");
    }
 
    closedir($fd);
  }
  elsif ( -f $srcPath ) {
    fCopy($srcPath, $destPath);
  }
}
 
open (MYFILE, $destDirFile) or die "$!";
 
while (<MYFILE>) {
   chomp;
 
   print "This is the destination $_\n";
 
   my($dest) = "$destRoot/$_";
 
   rCopy($srcDir, undef, $dest);
}
 
close(MYFILE);

Greetz, Doc

[docsnyder]

Oops,

chown($user, $group);

should be

chown($user, $group, $src);

;o)

[jonathan184]

Thank you guys that helped me. I really appreciate it.