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.
http://freshmeat.net/redir/ibackup/44196/url_homepage/ibackup 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 PROTECTED] -- Kevin Old <[EMAIL PROTECTED]> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
