Fetching values in Perl

[padmaja3]

Hi all,
I have written a query like this.
----------------------------------------------------------

$dbh= DBI->connect("dbi:mysql:dbname=$database;host=$hostnam e", "$username", "$password");

$statement = "SELECT patient_intime from $table_name where patient_intime=$ARGV[0])";


----------------------------------------------------------
I want all the "patient_intime" values to be retreived, where there are other columns(fields) also.
Pls suggest me how to proceed.

Thanks in advance.
Padmaja T N.

[numberwhun]

Hi all,
I have written a query like this.
----------------------------------------------------------

$dbh= DBI->connect("dbi:mysql:dbname=$database;host=$hostnam e", "$username", "$password");

$statement = "SELECT patient_intime from $table_name where patient_intime=$ARGV[0])";


----------------------------------------------------------
I want all the "patient_intime" values to be retreived, where there are other columns(fields) also.
Pls suggest me how to proceed.

Thanks in advance.
Padmaja T N.

Well, you will find that a lot of people use the common practice of doing a "prepare()" function to get the statement ready and then issue the execute() function to execute it and get the data from the database.

To get an idea of how to work with DBI, you will definitely want to check out the DBI module on CPAN as its documentation is filled with examples to help you get going.

Regards,

Jeff

[eWish]

Here is what I use.

my $data_source = 'DBI:mysql:' . $mysql_database_name . ':' . $mysql_server_name;
my $dbh = DBI->connect( $data_source, $mysql_user_name, $mysql_password, {PrintError=>1}) ||  die "$DBI::errstr"; 
 
my $value = $ARGV[0];
 
my $sleect_statement = $dbh->prepare('SELECT  patient_intime  FROM $table_name WHERE patient_intime=?');
   $select_statement->execute($value);

The '?' is called a placeholder. The DBI will escape special characters for you in when placeholders are used. You can also use $select_statement->quote($value);. Just more typing, I would read the docs that numberwhun mentioned, or even pick up the book 'Perl DBI' if you plan on doing much database work.