Si vous êtes comme moi et que vous avec le binlog d'activé sur vos BD et que à chaque années il vous arrive de vous rendre compte que ça serait une bonne idée de purger une partie de ces logs mais que vous ne vous rappelez jamais comment, voici un petit truc que vous pouvez mettre dans votre planificateur de taches:


#!/usr/bin/perl 

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect('DBI:mysql:', 'root', 'r00t')
    or die "Could not connect to mysql server: $DBI::errstr";

my $return = 
$dbh->do(
'PURGE MASTER LOGS BEFORE DATE_SUB(CURDATE(), INTERVAL 60 DAY)'
);

$dbh->disconnect();