Hi there. Another nix way is to use
‘rsync’ with any —exclude you want
To put in a .sh file plus cron is the
lazy way of Life.
Cheers.
El El sáb, 1 feb 2025 a las 16:43, Ruprecht Helms (privat) <
rhe...@rheynmail.de> escribió:
> Hi,
>
> I do my backups to the nas by a short bash-script using the wput-command.
> That is combined with a cronjob that does ist every hour.
>
> Its not the perl-way but a seamilar.
>
> Regards,
> Ruprecht
>
> On 01.02.25 15:34, Martin McCormick wrote:
> > This is perl 5, version 36, subversion 0 (v5.36.0) built for
> x86_64-linux-gnu-thread-multi
> > (with 53 registered patches, see perl -V for more detail)
> >
> > Copyright 1987-2022, Larry Wall
> >
> > The issue here is trying to copy directories of files
> > from the main SSD drive to various thumb drivesthat must be
> > mounted on the system for the copy to occur.
> >
> > The program flawlessly did every single thing I told it to
> > so there are up to 4 directories, each with a mounted thumb drive
> > sitting there waiting on pins and needles for the gush of
> > anticipated data but the only way I've gotten this to work in the
> > past is to cheat by using the system command and standard unix
> > copying commands as in:
> >
> > system("cp -p -r \"$docname\" \"/$guides[1]\"/");
> >
> > The way this program was supposed to copy a disk folder
> > to a corresponding thumb drive is written:
> >
> > dircopy ("\"weekly\", \"/weekly/\"") or die!$;
> >
> > It always dies at the copy command and it is nothing to
> > do with permissions as I can sit here and execute a command from
> > the shell like:
> >
> > date >/weekly or whatever the mounted drive is called and the command
> > succeeds normally.
> >
> > Here is the first part of the program which is 137 lines
> > long and nothing else is failing except for the directory copies:
> >
> > #!/usr/bin/perl -w
> > use strict;
> > use warnings::unused;
> > use IO::Handle;
> > use File::HomeDir;
> > use Cwd qw(getcwd);
> >
> > #use File::Copy "cp";
> > use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
> > use File::Find;
> > use File::Spec;
> >
> > I suspect several of those modules aren't needed but the
> > program does exactly what I need it to do until the copy occurs.
> > The directories are their and populated with other directories
> > which should all be copied to selected thumb drives as whole
> > directories and running in debug mode as in perl -d shows thit to
> > be true so the only issue to solve is that dircopy command. You
> > will notice another File::Copy module commented out that is
> > supposed to take cp commands but didn't either. It boils down to
> > none of these copy modules appear to be working in this case.
> >
> > The actual copy command I am using is:
> >
> > dircopy(" $dir , /$dir") or die !$;
> > $dir in this case is the directory name which could be one of 4
> > possible names but it doesn't matter because there has not been
> > one bit copied using either of the two modules I tried and the
> > dircopy module does exactly what one needs in this particular
> > case but silently fails 100% of the time.
> >
> > Thanks for any good ideas since this appears to be quite useful
> > but hasn't shown that side of it's behavior yet.
> >
> > Martin McCormick
> >
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
