Perl MySQL Backup script

[evilnerds.com]

Ik heb een backup script geschreven voor mysql in perl. Voorheen maakte ik altijd een backup van de complete database met alle databases in 1 SQL bestand, het was op die manier alleen erg lastig om een individuele database te restoren.

Dit script maakt van elke database een individueel .sql bestand en op het laatst gzip't hij alle bestanden. Hij plaatst deze bestanden in een map met de datum (wordt automatisch aangemaakt).

Het enige wat je nog moet instellen is de variable basepath, dit moet een geldige map zijn. En je moet de DBI->connect string aanpassen, hier moet een geldig mysql username en wachtwoord in (met toegang tot alle databases).

Met een cronjob kan je deze inroosteren zodat het dagelijks automatisch draait.

Ik hoop dat jullie er wat aan hebben. Mochten jullie nog opmerkingen en/of verbeteringen hebben laat het dan weten

#!/usr/bin/perl

my $date = `date +%Y%m%d`;
chomp($date);
my $basepath = '/var/backups/mysql';

use DBI;
$db = DBI->connect("dbi:mysql:database=;host=localhost;user=;password=")
        or die "Couldn't connect to database: $DBI::errstr\n";

my $sth = $db->prepare("SHOW DATABASES");
$sth->execute();

`mkdir $basepath/$date`;

while (@data = $sth->fetchrow_array()) {
        my $dbname = $data[0];
        my $target = "$basepath/$date/$dbname.sql\n";
        print $target;
        `/usr/bin/mysqldump -Q --database $dbname > $target`;
}
`gzip -f $basepath/$date/*`;
$db->disconnect();

[MarkvE]

Persoonlijk vindt ik dit mooier op te lossen met een .sh bestandje met SSH commando's en een cronjob, dan middels Perl/PHP. Want nu doe je het vrij omslachtig; je geeft via Perl SSH commando's door terwijl je net zo goed direct met SSH de commando's kunt uitvoeren en hetzelfde kunt bereiken.

[evilnerds.com]

Klopt dat was ook mijn eerste plan om gewoon een bash scriptje te schrijven maar ik wist niet hoe ik dan alle database namen in een array kon krijgen zodat ik dan alle databases kan backuppen.

[Mikey]

voor bash:

for i in `/usr/bin/mysql -uadmin -p$password -e 'show databases'|grep -v Database`;
  do /usr/bin/mysqldump -uadmin -p$password $i > $i.sql && tar -cf $i.tar $i.sql && gzip -S .gz $i.tar && rm -rf $i.sql;
done

[wv-]

ofwel schrijf je deftig perl, ofwel schrijf je bash, maar geen bash in perl

Alle system commando's die je uitgevoerd hebt, kan je veranderen door een of andere routine in perl. Een betere oplossing zou dus zijn om ofwel alles te herschrijven in perl, zonder commando's te executen (alleen waar het niet anders kan) of een bash scriptje schrijven, zoals het al bijna was.

Als je dan toch gebruik maakt van perl, altijd volgende lijnen eerst zetten:
use strict;
use warnings;