Sometimes it is useful to be able to take a quick look on the table structure of a database your working with. Most of the time I use phpMyAdmin for this. Additionally I wanted a small script that I can quickly use in my terminal.
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Data::Dumper;
my $table = shift @ARGV || 'people';
my $dbh = DBI->connect("DBI:mysql:database=experts;host=localhost",
"developer", "secret", {'RaiseError' => 1});
my $sth = $dbh->prepare("SELECT * FROM $table");
die "Error: " . $dbh->errstr . "\n" unless ($sth);
die "Error: " . $sth->errstr . "\n" unless ($sth->execute);
my $names = $sth->{'NAME'};
my $type = $sth->{'mysql_type_name'};
my $length = $sth->{'mysql_length'};
my $is_nullable = $sth->{'NULLABLE'};
my $is_pri_key = $sth->{'mysql_is_pri_key'};
my $is_autoinc = $sth->{'mysql_is_auto_increment'};
$sth->finish();
$dbh->disconnect();
my @structure = map {
{
f_name => $names->[$_],
f_type => $type->[$_],
f_length => $length->[$_],
f_nullable => $is_nullable->[$_] ? 1 : 0,
f_pri_key => $is_pri_key->[$_] ? 1 : 0,
f_autoinc => $is_autoinc->[$_] ? 1 : 0,
};
} (0..$#{$names});
die Dumper \@structure;