> #make the archive:
> `tar -cvzf $targetpath $files`;
This to can be write in perl.
perldoc -m Archive::Tar
perldoc -m Compress::Zlib
----- Original Message -----
From: "West, William M" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, June 16, 2003 3:08 PM
Subject: Backup utility (was RE: concatonate to file?)
>
> #!/usr/bin/perl -w
>
> #simple tar archiver... something to make a cron job with
> #in the future :)
>
>
> #thanks for the info for strftime :) now can parse system time and
> #use it
> use POSIX qw(strftime);
>
> # still unclear about '-w' verses 'use warnings'
> use strict;
> use diagnostics;
>
> # where to put the archive::
> my $targetpath = "/tmp/databackup";
> #for timstamping filename:
> my $date = strftime("%A %B %C", localtime time);
> # files to archive:
> my $files = "/home/willy/tmp";
>
> #parse the date information from strftime-- takes the data and
> #removes the spaces
> #$date=~ s/^(\S*\s\S*\s\S*).*/$1/s;
> #the above is no longer needed- was going to use 'date' untill Robin
> #Norwood set me straight :)
> #
> $date=~ s/\s//g;
>
> #concatonate (thanks to rob and tim)
> $targetpath = $targetpath.$date.".bak";
>
> print "path = $targetpath\n"; #debug
>
>
> #make the archive:
> `tar -cvzf $targetpath $files`;
>
>
> #thank you all :)
> #willy
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
