charly

#!/usr/bin/perl -w
use strict;
use warnings;

use DBI;

exit unless (grep(/mysql/,DBI->available_drivers));

my $db = "mysql";
my $host = "localhost";
my $port = "8889";

my $dsn = "DBI:mysql:database=$db;host=$host;port=$port";

my $username = "root";
my $passwd = "root";

my $dbh = DBI->connect($dsn,$username,$passwd) or die "connexion impossible $DBI::errstr";
my $sth = $dbh->prepare("SELECT Host, User, Password FROM user;");

$sth->execute() or die "$DBI::errstr";

open(OUTFILE,">DBI.csv") or die "ouverture en �criture impossible: $!";

while(my($uhost,$user,$upasswd) = $sth->fetchrow_array()) {
        print OUTFILE "$uhost,$user,$upasswd\n";
}

$sth->finish();
$dbh->disconnect();

close OUTFILE;

open(INFILE,"DBI.csv") or die "ouverture en lecture impossible: $!";

while(<INFILE>) {
        next unless ($_ =~ /^.*,.*,.*$/);

        my ($uhost,$user,$upass) = split /,/, $_;
        print "Host: $uhost, User: $user, Password: $upass\n";
}

close INFILE;