Proficiencies

mysql> describe proficiencies; +-------------+-------------+------+-----+---------+-------+ | Field | Type | Null | Key | Default | Extra | +-------------+-------------+------+-----+---------+-------+ | proficiency | varchar(50) | NO | | | | | s | int(11) | YES | | NULL | | | ra | varchar(20) | NO | | | | | cm | int(11) | YES | | NULL | | | class | varchar(30) | YES | | NULL | | | source | varchar(30) | YES | | NULL | | +-------------+-------------+------+-----+---------+-------+ ##

##

|Acting|1|Cha|0|Bd, Hu|
|Adaptation|2|Int|0|Wa 10+, R 11+|HL|
|Administration|1|Int|1|Pr|SM|

##

##

#!/usr/bin/perl
use strict;
use DBI;
use DBD::mysql;

my $dsn = "DBI:mysql:database=player;";
my $dbh = DBI->connect($dsn, "root", "secretpassword");

open IN, " )
{
  chomp;
  my ($null,$prof,$s,$ra,$cm,$class,$source) = split /\|/;

  my $sql =<prepare($sql);
  $sth->execute;
}
print "finished loading table\n";

##

##

#!/usr/bin/perl
use strict;
use DBI;
use DBD::mysql;
use Template;

my $tt = Template->new();
my $dsn = "DBI:mysql:database=player;";
my $dbh = DBI->connect($dsn, "root", "secretpassword");
my @items;

my $sql = qq|SELECT * from proficiencies ORDER BY proficiency ASC;|;
my $sth = $dbh->prepare($sql);
$sth->execute;
while ( my @row = $sth->fetchrow_array() )
{
  push @items, \@row;
}

my $vars = { items => \@items };

print "Content-type: text/html\n\n";
$tt->process("prof.tmpl", $vars) or die $tt->error();

##

##


Proficiencies



[% FOREACH row IN items %]

[% END %]


  Proficiency
  S
  RA
  CM
  Class(es)
  Source(s)

  [% row.0 %]
  [% row.1 %]
  [% row.2 %]
  [% row.3 %]
  [% row.4 ? row.4 : " " %]
  [% row.5 %]