Purge MySQL Binary Logs

purge_bin_logs.pl

#!/usr/bin/perl

use strict;

use DBI;
use Getopt::Std;

sub purge_logs {
	my $db_ip = shift;
	my $db_name = shift;
	my $db_user = shift;
	my $db_pass = shift;
	my $sth;
	my $db;
	my $query;
	my @logs;
	my $log;
	my $i;

	$db = DBI->connect("DBI:mysql:$db_name:$db_ip", $db_user, $db_pass);
	if($db) {
		$query = "SHOW MASTER LOGS";
		$sth = $db->prepare($query) ;
		if($sth->execute()) {
			while(my ($log) = $sth->fetchrow_array()) {
				push(@logs, $log);
			}
			if(@logs > 3) {
				$i = (@logs - 3);
				if(exists($logs[$i])) {
					$sth->finish();
					$query = "PURGE MASTER LOGS TO '$logs[$i]' ";
					$sth = $DB->prepare( $query ) ;
					if(!$sth->execute()) {
						print("Error cannot execute $query\n");
					}
				}
			}
		} else {
			print "Failed to execute: $query \n";
		}
		@logs = ();
		$sth->finish();
		$db->disconnect() ;
	} else {
		print "Cannot connect to $db_ip\n";
	}
}

MAIN: {
	purge_logs("localhost", "mysql", "root", "asdfqwer");
}