Please forgive the stupidity of this question but I'm stumped and need
to get this program finished. I am currently working on a program that
will select information from two databases. The program puts both into
hashes and compares the two lists.
If it finds information in table one but not in table two it is to
perform certain commands to place that user in table two, and vice
versa. I know how to implement this part, however here is my problem.
Please bear in mind just as a test I am doing print statements.
First Problem.
The two tables are not the same length however my first if statements
will end the process after it reaches the end of the table. My second
and third if's will find the output of the first difference and then
stop. What I need to know is what type of for loop do I need to continue
this program on to the next instances.
The for loops I have now merely prints out a number 3 instead of the
username lists. My questions is am I on the right track here? If not
does anyone have any better suggestions?
Thank-You,
---------------------------------------- Program Below
---------------------------
#!/usr/local/bin/perl
use Sybase::DBlib;
use DBI;
# ClienTele Sybase Information
Database & User Name Information Omitted
$i = 0;
$j = 0;
$ctelnew = new Sybase::DBlib $sql_user,$sql_password,$sql_server;
$ctelnew->dbuse ('clientele');
$ctelnew->dbcmd("select EmailName from EmailAccount where AccountNumber
= '012616' "); $ctelnew->dbsqlexec; while ($ctelnew->dbresults !=
NO_MORE_RESULTS) {
while(@dat = $ctelnew->dbnextrow) {
push @emailname,$dat[0];
}
}
$dbh = DBI->connect("DBI:mysql:database=$dbase;$dbhost", $dbuser,$dbpw);
$sth = $dbh->prepare("select address from notify_list"); $sth->execute
|| print "Can't execute statement: $DBI::errstr\n"; while (@sub =
$sth->fetchrow_array) {
$subname = $sub[0];
($user,$ext) = split(/@/, $subname);
push @sub_name,$user;
}
close(SUB);
while ($i <= $#emailname && $j <= $#sub_name) {
if ($emailname[$i] eq $sub_name[$j]) {
$i++;
$j++;
} elsif ($emailname[$i] lt $sub_name[$j]) {
foreach ($i=$i;$i <= $#emailname;$i++) {
print "$i\n";
}
$i++;
} else {
foreach ($j=$j;$j <= $#sub_name;$j++) {
print "$j\n";
}
$j++;
}
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
