#!/usr/bin/perl
use warnings;
use strict;
use DBI;
my $username = 'test';
my $password = 'test';
my $database = 'testdb';
my $hostname = 'localhost';
my $dbh =
DBI->connect("dbi:Pg:database=$database;"."host=$hostname;port=5432",
$username, $password);
my $SQL = "Select (select name from host where host.id = taskstatus.host )
as host, stdout from taskstatus where task =56 and stdout is not null;";
my $Select = $dbh->prepare($SQL);
$Select->execute();
>-----Original Message-----
>From: Shourya Sengupta [mailto:[EMAIL PROTECTED]
>Sent: Monday, July 31, 2006 9:28 AM
>To: beginners@perl.org
>Subject: update statement execution in perl
>
>
>Hi,
> I am using Win32::ODBC
>to connect to the database from a perl program.
>I have to execute an update statement.
>I have defined it as
>
>
>
>my $sql;
>
>
>$sql = "<update statement>";
>
>
>how to execute it?
>
>
>Regards,
>Shourya
>Infosys Technologies Ltd.
>Bangalore
>Extn: 62998
>
>
>
>
>**************** CAUTION - Disclaimer *****************
>This e-mail contains PRIVILEGED AND CONFIDENTIAL INFORMATION intended
>solely for the use of the addressee(s). If you are not the intended
>recipient, please notify the sender by e-mail and delete the original
>message. Further, you are not to copy, disclose, or distribute this e-mail
>or its contents to any other person and any such actions are unlawful. This
>e-mail may contain viruses. Infosys has taken every reasonable precaution
>to minimize this risk, but is not liable for any damage you may sustain as
>a result of any virus in this e-mail. You should carry out your own virus
>checks before opening the e-mail or attachment. Infosys reserves the right
>to monitor and review the content of all messages sent to or from this e-
>mail address. Messages sent to or from this e-mail address may be stored on
>the Infosys e-mail system.
>***INFOSYS******** End of Disclaimer ********INFOSYS***
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
