-------- Original Message --------
Subject: fetchrow_arrayref()
Date: Wed, 13 Jul 2005 11:08:00 +0100
From: David Foley <[EMAIL PROTECTED]>
To: beginners@perl.org
Hi Guys,
I need help with this. Please find below some code:
#!/usr/bin/perl -w
# Reduce scripting errors + call DBI module
use strict;
use DBI;
#SQL database handle 1
my $MySQL = DBI->connect (************************) or die "Could not
connect to MySQL database on 82.195.128.88 as rw227_admin";
#SQL Query 1
my $SQLQ1a = "SELECT FirstName, SecondName FROM Jul05ord";
#SQL Query 1 HANDLE
my $SQLQ1 = $MySQL->prepare($SQLQ1a);
#Execute SQL Query 1
$SQLQ1->execute();
#Retreive ref. no. for results
my $resultsref1 = $SQLQ1->fetchall_arrayref();
$SQLQ1->finish();
$MySQL->disconnect();
#Add to local DB on TMA1 (192.168.42.12)
#SQL database handle 2
my $MySQL2 = DBI->connect (*************************) or die " Could not
connect to MySQL database on localhost";
#Execute SQL Query 2
foreach my $WOT (@$resultsref1){
my ($FirstName, $SecondName) = @$WOT;
#SQL Query 2
my $SQLQ2a = "INSERT INTO dev (batman, robin)
VALUES ($FirstName, $SecondName)";
#SQL Query 2 HANDLE
my $SQLQ2 = $MySQL2->prepare($SQLQ2a);
$SQLQ2->execute();
$SQLQ2->finish();
}
$MySQL2->disconnect();
exit();
Above is the program. I want it to take info fromone database, and add
it to another. Put I can't get the second query to put in the info from
the previous query. I think the problem is with the red code can anyone
help??
Thanks,
David
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
