##!/usr/bin/perl

##########################################################
# Configuration
my $host = '';
my $database='';
my $db_1='';
my $db_2='';
my $user='';
my $password='';
##########################################################
# Program
use FindBin;

use lib "$FindBin::Bin/..";

use strict;
use warnings;
use Socket;

%main::ua = ();


	$main::db = undef;

	@main::db_connect = (
							"DBI:mysql:mysql:$main::host",
							$main::user,
							$main::password
						);


use Mysql;

$db = Mysql->connect(host, database, user, password);

$db->selectdb($database);

$query = db->query(SELECT * FROM $db_1 );

while (%hash = $query->fetchhash) {
unlink ('/etc/bind/.'$hash{'name'}.'.db');

open(file, ">$query->ausgabe";
$querys = $db->query(SELECT * FROM $db_1');

close (file);
}

#!/Perl/bin/perl

use strict;
use warnings;
use DBI;
use Config::Auto;
use Data::Dumper qw/Dumper/;

my $config = Config::Auto::parse('test_mysql.config');

my $dsn         = $config->{dsn};
my $username    = $config->{username};
my $password    = $config->{password};
my $options     = { AutoCommit => 1, };

my $dbh = DBI->connect($dsn, $username, $password, $options) or die "cannot connect to db: " . DBI::errstr();

my $stmt = "SELECT * FROM testabelle";
my $sth = $dbh->prepare($stmt) or die "error prepare: " . $dbh->errstr();
my $rv = $sth->execute() or die "error execute: " . $dbh->errstr();;

if( $rv == "0E0" ) {
    print "keine Werte";
}else{
    while( my $href = $sth->fetchrow_hashref() ) {
        print Dumper $href;
    }
}

$sth->finish();

$dbh->disconnect();

#!/Perl/bin/perl

use strict;

my %CFG = ();

$CFG{dsn} = "DBI:mysql:test:localhost";
$CFG{username} = "benutzername";
$CFG{password} = "passwort";

\%CFG;