$ perl -l
use strict;
use warnings;
my $db_name="2007_12_01_04_49_15";
my @date=split /_/,$db_name;
$date[2]=$date[2]-1;
$db_name=join '_',@date;
print $db_name;
__END__
2007_12_0_04_49_15