I do this sort of thing but more in a "cleanup" capacity rather than "backup." The following code simply looks for any files in the current directory with an extension of .xcp and deletes any where the modification date is greater than 10 days old.
#!C:/perl/bin/perl.exe;
use strict;
use warnings;
use Cwd;
# delete .xcp files older than 10 days
#Identify my current directory and record it to $cdir
my $cdir = getdcwd();
#create an array of all files with an exntesion of .xcp
my @files = glob("*.xcp");
foreach my $file (@files) {
# for each element of the array delete if mod date is greater than 10
+days
unlink "$cdir\\$file" if -M $file > 10;
}
A quick google search for "perl file attributes" presented
This link to a list of file characteristics (along with many others) you can use as evaluation criteria.
I hope this helps.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.