Back after a much needed vacation with another perl code snippet. This one creates a simple form using information pulled from the structure of a database table. The form it creates is not meant to be the end product - rather it gets a lot of the "grunt work" done, and you can then edit the resulting form to change fields to drop-downs, remove fields that shouldn't be edited, etc. It will also try to guess at a decent label for each field, based on the table name.
This script uses the same get_fields() function that outlined in my previous post.
As always, I'm sure this isn't the "perfect" code, and of course it can be improved - but it does work, and may perhaps be a useful starting block for someone else...
Usage - pretty simple - run the script and give it a database table name to use. It'll spit the html back out, which you can save in a text file or whatever.
This script uses the same get_fields() function that outlined in my previous post.
As always, I'm sure this isn't the "perfect" code, and of course it can be improved - but it does work, and may perhaps be a useful starting block for someone else...
Usage - pretty simple - run the script and give it a database table name to use. It'll spit the html back out, which you can save in a text file or whatever.
#!/usr/bin/perl
# creates a basic form from the database table specified
use DBI;
# database connection details
my $dsn = "DBI:mysql:database=[YOUR DATABASE];host=localhost";
$dbh = DBI->connect($dsn,"root","");
my $qry = "";
my $html = "";
my $table = $ARGV[0];
if (not $table) {
print "Please specify a table...\n";
exit;
}
my @fields = &get_fields($table);
$html = "
<form action="\[YOUR PROCESSING SCRIPT]\" method="\post\">
<table border="0" cellpadding="4" cellspacing="0">\n";
foreach $_ (@fields) {
my $ucfield = uc $_;
my $name = ucfirst $_;
$name =~ s/_/ /g;
$html .= "
<tbody><tr valign="\top\">
<td align="\right\"><b>$name</b></td>
<td><input name="\$_\" value="\-$ucfield-\" type="\text\"></td>
</tr>\n";
}
$html .= "
<tr>
<td colspan="2" align="\center\"><input value="\Submit\" type="\submit\"></td>
</tr>
</tbody></table>
</form>\n";
print $html;
Comments