Re: MSQL though a shell

#!/usr/bin/perl -w
# this PERL script will connect to a remote MySQL database and execute a select statement

use DBI; # DBI is available at CPAN.org if you don't have it installed in PERL

# DBI Variables
my $dbh;  # database handle
my $sth;  # statement handle
my $sta;  # a statement
my @rows; # returned data
my $dbHost = "databaseHost"; # put your database host name here
my $dbName = "yourDatabaseName"; # put your database name here
my $dbUser = "DatabaseUserName"; # put your username here
my $dbPasswd = "databasePwd"; # put your database password here

# connect to the database
$dbh = DBI->connect("dbi:mysql:".$dbName.":".$dbHost, $dbUser, $dbPwd)
               or die "Can't connect to database: $DBI::errstr\n\n";
$sta = "SELECT col1,col2 from table where item=\"1\" order by key";
$sth = $dbh->prepare($sta) or die "Can't prepare statment: $DBI::errstr\n\n";
$sth->execute or die "Can't execute statment: $DBI::errstr\n\n";
while (@rows = $sth->fetchrow_array() ) {
   print $rows[0];
   print $rows[1];
}