hi,
please help me ...
I have a perl script as follows:
#! / Usr / bin / perl-w
# Use module
use strict;
use DBI;
# The variable declaration
my $ dbh_lina;
my $ dbh_sales;
my $ sql_psb;
my $ ext_psb;
my $ total_row;
my $ rs_data;
my $ sql_rep;
my $ ext_rep;
# Connect to DB
# $ Dbh_csdm = DBI-> connect ("DBI: mysql: csdm2:
10.1.96.200", "csdm2", "csdm2123", {RaiseError => 0, PrintError => 0})
or die "Could not connect to database : ". DBI-> errstr;
$ Dbh_lina = DBI-> connect ("DBI: mysql: new_telesales:
10.1.96.200", "telesales", "telesales123", {RaiseError => 0,
PrintError => 0}) or die "Could not connect to database: ". DBI->
errstr;
$ Dbh_sales = DBI-> connect ("DBI: mysql: sales_reward:
localhost", "root", "", {RaiseError => 0, PrintError => 0}) or die
"Could not connect to database:". DBI-> errstr;
$ Sql_psb = "SELECT FROM t_pelanggan ";
$ Ext_psb = $ dbh_lina-> prepare ($ sql_psb) or die "Could
not prepare statement: $ sql_psb ->". $ Dbh_lina-> errstr;
$ Ext_psb-> execute or die "Could not execute statement: $
sql_psb ->". $ Ext_psb-> errstr;
$ Total_row = $ ext_psb-> rows;
my $ count = 1;
print "Processing \ r";
while ($ rs_data = $ ext_psb-> fetchrow_hashref ())
{
# Insert data into tables t_pelanggan
my $ id_pelanggan = $ rs_data-> {"id_pelanggan"};
my $ employee_code = $ rs_data-> {"employee_code"};
my $ unit_id = $ rs_data-> {"unit_id"};
my $ unit_name = $ rs_data-> {"unit_name"};
my $ job_code = $ rs_data-> {"job_code"};
my $ FullName = $ rs_data-> {"FullName"};
my $ identity = $ rs_data-> {"ID"};
my $ id_number = $ rs_data-> {"id_number"};
my $ id_expired = $ rs_data-> {"id_expired"};
my $ birth_date = $ rs_data-> {"birth_date"};
my $ mom_name = $ rs_data-> {"mom_name"};
my $ address = $ rs_data-> {"address"};
my $ province = $ rs_data-> {"province"};
my $ kode_pos = $ rs_data-> {"kode_pos"};
my $ MSISDN = $ rs_data-> {"MSISDN"};
my $ email = $ rs_data-> {"email"};
my $ request_msisdn = $ rs_data-> {"request_msisdn"};
my $ date_request = $ rs_data-> {"date_request"};
my $ jenis_agent = $ rs_data-> {"jenis_agent"};
$ Sql_rep = "REPLACE INTO t_pelanggan (id_pelanggan,
employee_code,
unit_name,
job_code,
FullName,
identity,
id_number,
id_expired,
birth_date,
mom_name,
address,
province,
kode_pos,
MSISDN,
email,
request_msisdn,
date_request,
jenis_agent)
VALUES ('$ id_pelanggan',
'$ Employee_code',
'$ Unit_name',
'$ Job_code',
'$ FullName',
'$ Identity',
'$ Id_number',
'$ Id_expired',
'$ Birth_date',
'$ Mom_name',
'$ Address',
'$ Province',
'$ Kode_pos',
"$ MSISDN ',
'$ Email',
'$ Request_msisdn',
'$ Date_request',
'$ Jenis_agent') ";
$ Ext_rep = $ dbh_sales-> prepare ($ sql_rep) or die
"Could not prepare statement: $ sql_rep ->". $ Dbh_sales-> errstr;
$ Ext_rep-> execute or die "Could not execute statement: $ sql_rep -
>". $ Ext_rep-> errstr;
print "Total Customer: $ total_row, counter: $ count \ n";
$ Count = $ count +1;
}
# Disconnect
$ Dbh_lina-> disconnect;
$ Dbh_sales-> disconnect;
there is an error message "Use of uninitialized value in concatenation
(.) or string at insert_data_sales_r
eward.pl line 88. "
Please help, I recently learned in perl.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
