Mi problema es que quiero hacer un backup de una base de datos y guardarlo en un archivo .sql; mi base de datos se llama bd_sidispol, usuario root clave ' '. Tengo la forma de hacerlo, pero mi problema es que no sé cómo agregar los datos del backup que lo guarda en la variable $mb en el archivo que hago cuando llamo el getSaveFile....
Si me pueden ayudar se lo agradezco, gracias..
Aquí le pongo el código:
Using perl Syntax Highlighting
use Tk;
use DBI;
use MySQL::Backup;
#use strict;
#use warnings;
$mw = MainWindow->new(-title=>"Menu");
$bt1=$mw->Button(-text=>"Backup",-command=>\&backup)->place(-x=>80,-y=>10);
my $types = [ ['Perl files', '.sql'],
['All Files', '*'],];
$mw->MainLoop;
sub backup{
my $save = $mw->getSaveFile(-filetypes => $types,
-initialfile => 'test',
-defaultextension => '.sql');
print qq{You chose to save as "$save"\n#} if $save;
#de aqui quiero que que guarde en el archivo que escriio los datos de la variable $mb que esta abajo
my $mb = new MySQL::Backup('bd_sidispol','localhost','root','',{'USE_REPLACE' => 1, 'SHOW_TABLE_NAMES' => 1});
print $mb->create_structure();
print $mb->data_backup();
}
use DBI;
use MySQL::Backup;
#use strict;
#use warnings;
$mw = MainWindow->new(-title=>"Menu");
$bt1=$mw->Button(-text=>"Backup",-command=>\&backup)->place(-x=>80,-y=>10);
my $types = [ ['Perl files', '.sql'],
['All Files', '*'],];
$mw->MainLoop;
sub backup{
my $save = $mw->getSaveFile(-filetypes => $types,
-initialfile => 'test',
-defaultextension => '.sql');
print qq{You chose to save as "$save"\n#} if $save;
#de aqui quiero que que guarde en el archivo que escriio los datos de la variable $mb que esta abajo
my $mb = new MySQL::Backup('bd_sidispol','localhost','root','',{'USE_REPLACE' => 1, 'SHOW_TABLE_NAMES' => 1});
print $mb->create_structure();
print $mb->data_backup();
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
