Sample perl/mysql code

mysql.pl

#!/usr/bin/perl -w --

use warnings;
use strict;
use utf8;

package DoMysql;

use DBI;

sub connect {
	my $class = shift;
	my $self = {
		dbh	=> undef,
	};
	
	$self->{dbh} = DBI->connect( @_ ) or die "Connect error: " . $DBI::errstr;
	bless $self, $class;
}
sub DESTROY {
	my $self = shift;
	
	if ($self->{dbh}) {
		$self->{dbh}->disconnect;
		undef $self->{dbh};
	}
}
sub do {
	my $self = shift;
	my $sth = $self->{dbh}->prepare( shift ) or die "Prepare error: " . $self->{dbh}->errstr;
	my $code = shift;
	my $rc = undef;
	
	if ($sth->execute) {
		if ($sth->rows and ref($code) eq 'CODE') {
			# output field name(s)
			$code->( join ("\t", @{ $sth->{NAME} }) );
			
			# output results
			while ( my $row = $sth->fetch ) {
				$code->( join ("\t", map { $self->{dbh}->quote( $_ ) } @{ $row  }) );
			}
		}
		$sth->finish;
	}
	else {
		die "Execute error: " . $self->{dbh}->errstr;
	}
}

package main;

eval {
	DoMysql->connect(
		"DBI:mysql:database=chanceweb;host=localhost;mysql_init_command_timeout=1",
		undef, # username
		undef, # password
		{
			mysql_enable_utf8 => 1,
			mysql_init_command => 'SET NAMES utf8',
			RaiseError => 1,
			AutoCommit => 0
		}
	)->do(
		join(' ', @ARGV),
		sub {
			print @_, "\n";
		}
	);
};
if ($@) {
	die $@;
}

1;

__END__