I like HTML::Template, despite the name it does regular text templates as well as HTML.

Recently i've started using Template as well (not sure how to link to that one), its a bit heavier to use and install but comes with tons and tons of options.

These two have fit for me every time so I don't even look for others, might be out there but these are two that have been around the block.

Update:I assumed that your sample was just a sample, if you are actually working with SQL you probably want to use a different solution.

Something like:

my $update = {
        ADDRESS       => 'test',
        customer_name => 'eric' };

my @cols = sort grep { defined $update->{$_}} keys %$update;
my $sql = join (",", map { "$_ = ?" } @cols );
print "UPDATE test SET $sql WHERE id = ?";
#then you can use it like:
# $dbh->execute("UPDATE test SET $sql WHERE id = ?",undef, map {%updat
+e{$_}} @cols, $id);
[download]

Templating is always about embedding results of perl expressions into "foreign" content. Since there's not much "foreign" stuff in your example, any pointers to templating solutions based on your question are wild shots in the dark with a preferred target in mind.

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

my $dbh = DBI->connect($data_source, $opts...);
my $update_stmt = $dbh->prepare("UPDATE tbl_name SET `CUSTOMER NAME` =
+ ?, AGE = ?, STATUS = ?, ...");

...

$update_stmt->execute(
        defined $customer_name ? $customer_name : undef,
        defined $age           ? $age           : undef,
        defined $status        ? $status        : undef,
        ...);
[download]

- caelifer

Yours doesn't do the same thing. It actually updates fields they didn't mean to update setting them to undef/null.


___________
Eric Hodges

This was never intended to be a working code or an actual solution to the user's problem. I only wanted to show how to use binding with prepare.

Regards,

- caelifer

• Code that retrieves the data from database and manipulates it. SQL, argument validation, sorting, access, control, etc goes here.
• Code that presents the data to the user. User interface (e.g. HTML) generation (possibly using one of the suggested frameworks) goes here.

The list of sites using HTML::Mason is impressing.

Update: As remarked by suaveant, HTML::Mason lands perhaps outside the simple category.

There is no doubt Mason is powerful, but in my experience it doesn't really fit the "simple" catgeory. A lot to set up for a basic template.

                - Ant
                - Some of my best work - (1 2 3)

use strict;
use warnings;
use DBI;
use SQL::Abstract;

my $dbh = DBI->connect(
  'dbi:mysql:test', 'user', 'pass', 
  {RaiseError => 1, AutoCommit => 1, ShowErrorStatement => 1});
my $sql = SQL::Abstract->new;

my $table_name = 'CUSTOMER';
my $customer_number = some_param_method('customer_id'); # defined some
+where
my @customer_data = get_customer_data(); # defined somewhere
my @columns = qw(CUSTOMER_NAME AGE STATUS ADDRESS PHONE);

my %values;
for (0 .. $#columns) {
  $values{$columns[$_]} = $customer_data[$_]
     if defined $customer_data[$_];
}

my($query, @binds) = $sql->update(
   $table_name,
   \%values, # handles SET COLUMN = ?
   { CUSTOMER_NUMBER => $customer_number }, # handles WHERE clause
);

my $sth = $dbh->prepare($query);
$sth->execute(@binds);
[download]