my $db_name="2007_12_13_04_49_15";
my @date=split /_/,$db_name;
$date[2]=$date[2]-1;
$db_name=join '_',@date;