randomfox: (Default)
[personal profile] randomfox
This Perl script adds a time stamp to the file name and copies the file to a backup directory.


#!perl -w
use strict;
require 5.004;

use File::Basename;
use File::Copy;
use File::Spec;

my $BACKUPDIR = 'c:\\backup';

sub doBackup {
    my $fname = shift;
    my $basename = basename $fname;

    my $destbase = sprintf("%08X-%s", time, $basename);
    my $destname = File::Spec->catfile($BACKUPDIR, $destbase);

    print "Backing up $fname to $destname...\n";
    copy($fname, $destname) or die "copy failed: $!\n";
}

@ARGV > 0 or die "Usage: $0 files-to-backup\n";
for my $fname (@ARGV) {
    doBackup $fname;
}

__END__

Profile

randomfox: (Default)
randomfox

November 2012

S M T W T F S
    123
45678910
11121314151617
18192021222324
25262728 2930 

Most Popular Tags

Style Credit

Expand Cut Tags

No cut tags
Page generated Oct. 3rd, 2025 09:05 am
Powered by Dreamwidth Studios