----- Original Message -----
From: "Sugrue, Sean" <sean.sugrue@analog.com>
Date: Monday, March 17, 2003 8:39 am
Subject: [NOVICE] perl and postgresql
>
>
> 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)=@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
>
Try using placeholders.
$prod='stdf';
$sth = $dbh->prepare("select * from filestatus where fileformat = ?");
$sth->execute( $prod );
Doug Gorley | douggorley@shaw.ca
