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]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
