Re: Code factory


Do you know where your variables are?
	PerlMonks

Re: Code factory

by tadman (Prior)

on Jul 07, 2003 at 17:59 UTC ( [id://272044]=note: print w/replies, xml )

Need Help??

in reply to Code factory

It's a simple case of re-factoring to strip out this redundancy. Make a simple template function first:

sub getById
{
     my ($table, $column, $id) = @_;
     my $dbh = sqlConnect();
     my $sth = $dbh->prepare("SELECT * FROM $table WHERE $column=?");
     $sth->execute($id);
     my $result = $sth->fetchrow_hashref();
     $sth->finish();
     return $result;
}
[download]

Now you can call this function with the appropriate parameters, or, try and make these wrapper functions:

sub getCustomerById
{
     my ($id) = @_;
     return getById("customers", "cust_id", $id);
}
[download]

This can be tuned to match any of your various "getXById" functions by simply supplying different parameters.

Comment on Re: Code factory Select or Download Code

Replies are listed 'Best First'.

Re: Re: Code factory
by flounder99 (Friar) on Jul 07, 2003 at 18:07 UTC

sub getByFieldval {
    my ($table, $field, $val) = @_;
    my $dbh = sqlConnect();
    my $sth = $dbh->prepare("SELECT * FROM $table WHERE $field=?");
    $sth->execute($val);
    my $result = $sth->fetchrow_hashref();
    $sth->finish();
    return $result;
}
[download]

flounder

[reply]
[d/l]

In Section Seekers of Perl Wisdom