Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
my $next_backup_file = "daily-incremental-backup." . `date +%Y%m%d`;

print "*$next_backup_file*\n";

Select or download this

#
# Get time for now.
...

my $next_backup_file = sprintf("daily-incremental-backup.%04i%02i%2i",
    $NOW{'year'} + 1900, $NOW{'mon'} + 1, $NOW{'mday'});