#!/usr/bin/perl
use strict;
use DBI;

my $dbh;

my $host= 'localhost';
my $db = 'database';
my $db_user = 'username';
my $db_password = 'password';

my $dbh = DBI->connect("dbi:mysql:$db:$host", "$db_user", "$db_password", {RaiseError=>1, PrintError=>1});

my $sth = $dbh->prepare('select name, pass from users;');
$sth->execute();

while (my @data = $sth->fetchrow_array()) {
        #Uppercase initial character in username required for MediaWiki:
        my $wiki_name = ucfirst($data[0]);
        my $pass = $data[1];
        print("name:$wiki_name, pass:$pass\n");

        #Deletion:
        my $sth = $dbh->prepare("delete from wiki_user where user_name = '$wiki_name';");
        $sth->execute();

        #Insertion:
        my $sth = $dbh->prepare("insert into wiki_user values (NULL, '$wiki_name', '$wiki_name', '$pass', '', '', '',
'', '', NULL, NULL, NULL);");
        $sth->execute();
}