Beyaz.Net İpucu

Tar Yedekleme

#!/usr/bin/perl

$path = `date "+%Y%m%d"`;

$path = substr $path,0,-1;

$path = $path . "db";

$komut = "mkdir /var/backups/" . $path;

system $komut;

$komut = "tar -czvf /var/backups/".$path."/db.tar.gz /var/db/mysql/tif";

system $komut;

-----------------