#!/usr/bin/perl

#--- основные переменные
$mysql_login = 'root';
$mysql_pass = 'root';
$logs_folder = '/usr/backup/auto/';

($sec,$min,$hour,$mday,$mon,$year,$wday) =  localtime ( time );
$year +=  1900 ;
$mon +=  1 ;

$dir = "$year_".setformatnumber($mon)."_".setformatnumber($mday)."";
sub setformatnumber {
	 if  ($_[ 0 ] <  10  ) {  return  '0'.$_[ 0 ] }
	 else  {  return  $_[ 0 ] }
}

@name_bases = (
	'base1',
	'base2'
);

 system ("mkdir $logs_folder/$dir");

 foreach  $name_base (@name_bases)
{
	 system ("mysqldump -u".$mysql_login." -p".$mysql_pass." ".$name_base." |gzip >".$logs_folder."/".$dir."/".$name_base."_".setformatnumber($hour)."-".setformatnumber($min)."-".setformatnumber($sec).".sql.gz");
}