From: | "Sugrue, Sean" <sean(dot)sugrue(at)analog(dot)com> |
---|---|
To: | <pgsql-novice(at)postgresql(dot)org> |
Subject: | perl and postgresql |
Date: | 2003-03-17 16:39:53 |
Message-ID: | 8FDC0F9BE1F91D44BE964AA54AAA67B60357A4CE@wilmexm3.ad.analog.com |
Views: | Raw Message | Whole Thread | Download mbox | Resend email |
Thread: | |
Lists: | pgsql-novice |
I am trying to execute the following query within perl
#!/usr/local/bin/perl
use DBI;
$prod='stdf';
$dbh = DBI->connect("dbi:Pg:dbname=database;host=mink;port=0000","username","password");
$sth = $dbh->prepare("select * from filestatus where fileformat = $prod");
if( defined($sth)){
$sth->execute;
#for when model numbers are available
while (@devices = $sth->fetchrow){
($product,$spec_key)=(at)devices;
print"product = $product and speckey = $spec_key \n"; }
}
i***************************************
it works if you put a literal value of 'stdf' for $prod
but it fails when I try to use a variable.
Another point is if it were an integer the variable would work.
Question: How can I get this to work. I've used q// qw// qq// qx//
Sean
From | Date | Subject | |
---|---|---|---|
Next Message | douggorley | 2003-03-17 16:55:11 | Re: perl and postgresql |
Previous Message | Tom Lane | 2003-03-17 14:51:45 | Re: 'UNIQUE' |