Backup scheme

[Ned Cunningham]

Hi,

I have a script that runs and zips a file, then copies it to another directory on another system.
It also goes through and renames each file so that it keeps 14 files. The script I am using is just using system renames and I would like to truly do this in Perl.

So I have started new.

Heres what I have so far.....

Snip
Use File::Copy;
Foreach $dfile (glob("c:/ned/ned/*back.zip")) {
$numcount=substr($dfile,-11,3);
++$numcount;
$ddfile = $numcount . substr($dfile,-8);
copy("$dfile", "$ddfile") or warn;
}

I would like to increment each file as it gets a day older, then tuning the oldest file into a weekly file, the above does not work.

Any ideas to get me on a BETTER path.

Thankx

Ned Cunningham
POS Systems Development
Monro Muffler Brake
200 Holleder Parkway
Rochester, NY 14615
(585) 647-6400 ext. 310
[email]ned.cunningham@monro.com[/email]

[Kevin Old]

Ned,

Here's a great script I use that is written in Perl. Might be a good
starting point or might save you a ton of work.

[url]http://freshmeat.net/redir/ibackup/44196/url_homepage/ibackup[/url]

HTH,
Kevin

On Thu, 2004-01-22 at 12:18, Ned Cunningham wrote:

> Hi,
>
> I have a script that runs and zips a file, then copies it to another directory on another system.
> It also goes through and renames each file so that it keeps 14 files. The script I am using is just using system renames and I would like to truly do this in Perl.
>
> So I have started new.
>
> Heres what I have so far.....
>
> Snip
> Use File::Copy;
> Foreach $dfile (glob("c:/ned/ned/*back.zip")) {
> $numcount=substr($dfile,-11,3);
> ++$numcount;
> $ddfile = $numcount . substr($dfile,-8);
> copy("$dfile", "$ddfile") or warn;
> }
>
> I would like to increment each file as it gets a day older, then tuning the oldest file into a weekly file, the above does not work.
>
> Any ideas to get me on a BETTER path.
>
> Thankx
>
> Ned Cunningham
> POS Systems Development
> Monro Muffler Brake
> 200 Holleder Parkway
> Rochester, NY 14615
> (585) 647-6400 ext. 310

[email]ned.cunningham@monro.com[/email]
--
Kevin Old <kold@kold.homelinux.com>