perl functions and arrays

[mercuryshipzz]

Hi,

First I will tell my objective of this function (function one).

I have a table for ex:

id passwd name
-- ------ -----

1 fdhgfs werwer
2 fsdfs sdfsdf
3 sdfs sdfsdf
4 fdsfs dssdf
. . .
.
.
.

The id, passwd and name are the arguments for another function say two.

The function one should store the records of the table and it should be passed as arguments to function two, one record at a time.

The both functions must be independent also.

 
#!/usr/bin/perl
use DBI;
 
my $var_id;
 sub read_db
{
 
 
 
 
$dbh = DBI -> connect('DBI:Oracle:mercury','student','learn') || die "unable to connect:$DBI::errstr";
 
#Here I am counting the number rows the table has, so that i can use that for the limit in the for loop
 
my $count = qq/select count(id) from rules_test/;
my $sth = $dbh->prepare($count);        
$sth->execute();
print "$count";
 
#Here I am getting values of  id
 
my $var_id = qq/SELECT id FROM rules_test/;
my $sth = $dbh->prepare($var_id);        
$sth->execute();
 
 
 
while(@data = $sth-> fetchrow_array())
 
{
 
my $var_id = data[1];
 
 
for ($i=1; $i=$count; $i++)
 
{
 
 
my $sql = qq/SELECT id, passwd, name FROM rules_test where id  = data[i]/;
 
my $sth = $dbh->prepare($sql);        
$sth->execute();                      
my ($col1, $col2, $col3);
 
 
$sth->bind_col(1, \$col1);
$sth->bind_col(2, \$col2);
$sth->bind_col(3, \$col3);
while ($sth->fetch) { 
$sth->bind_col(3, \$col3);
 
while ($sth->fetch) { 
    print "$col1, $col2, $col3\n";
 
 
}
}
}
&read_db($var_id);
}
 

I think I am lost somewhere.....

Could u guys help me in this?

[numberwhun]

For your reference, here is a guide on how to use this sites code tags. These are not optional. We require that you surround your code in these each time code is posted into the forums.

Regards,

MODERATOR

[numberwhun]

I just noticed that you re-posted this thread, yet again, as a duplicate. I have deleted that thread and left this one in place. Please do not go creating duplicate threads. If you have an update to the code you posted, reply to this thread and post your updated code.

Regards,

MODERATOR

[numberwhun]

That is now TWICE that you have re-created the SAME thread in this forum. This is your last warning. Please DO NOT create duplicate threads in the forums. If you re-create this thread again, I will ban you for 1 week.

Regards,

MODERATOR

[mercuryshipzz]

That is now TWICE that you have re-created the SAME thread in this forum. This is your last warning. Please DO NOT create duplicate threads in the forums. If you re-create this thread again, I will ban you for 1 week.

Regards,

MODERATOR

sorry abt tat.... i found my thread missing ... so i thought i accidently deleted the thread.. i jus read the rules of the forum...

thanks
mercury

[numberwhun]

sorry abt tat.... i found my thread missing ... so i thought i accidently deleted the thread.. i jus read the rules of the forum...

thanks
mercury

You are correct, the second thread you posted was missing because it was a duplicate of this first thread.

Regards,

MODERATOR

[eWish]

Once you add the strict and warnings pragmas you will see more clearly some of your issues. Also, the special variable @_ holds the incoming data. Your subroutine is not using that variable, so the data you are sending it not doing any good. Checkout perlvar for more information.

--Kevin