[n00by]

Hi everyone
Was wondering if anyone can help.
I am creating a array from a mySQL statement how would i go about seeing if the array is populated so that i can continue with a IF statement?

This is what i have done excuse the rough coding like i said im a newbie

$cmdStr = ("SELECT date, bytes, destination FROM $tblname WHERE bytes <> '0' ORDER BY destination;");
   $sth = $dbh->prepare($cmdStr) or die $DBI::errstr;
   $sth->execute or die $DBI::errstr;
   
    my $main = $sth->fetchall_arrayref();
   $sth->finish();
   
    $cmdCheck = ("SELECT SessionId FROM $tblname2;");
   $sth2 = $dbh->prepare($cmdCheck) or die $DBI::errstr;
   $sth2->execute or die $DBI::errstr;
   
    my $check = $sth2->fetchall_arrayref();
   $sth2->finish();
   
    
   
    foreach my $get(@$check){
       my ($sessionid) = @$get;
       if ($sessionid = "")
       {
      foreach my $query(@$main){
         my ($date, $bytes, $dest) = @$query;
              $cmdStr=("INSERT INTO $tblname2 (date, user, sum_bytes) VALUES ('$date', '$dest', '$bytes');");
         $sth1 = $dbh->prepare($cmdStr) or die $DBI::errstr;
         $sth1->execute or die $DBI::errstr;   
         $sth1->finish();
         };
       }
       else
       {
      foreach my $query(@$main){
         my ($date, $bytes, $dest) = @$query;
         $cmdStr=("UPDATE $tblname2 SET date = '$date', sum_bytes = '$bytes', user = '$dest';");
         $sth1 = $dbh->prepare($cmdStr) or die $DBI::errstr;
         $sth1->execute or die $DBI::errstr;
         $sth1->finish();
         };
       }
       print "end";
       } 

It basically just checks if a value exists in the db and if it does it updates the values otherwise it inserts the values. Is there a easier way?
Thanks
G

[curbview.com]

On line 14 add the following to begin your if statement:

if ($check ne "") {

..YOUR CODE BLOCK...

}

[n00by]

Thanks for the reply
I tried it though and it always takes the first statement even if there is data in the array. Basically i understand (ne "" ) as saying if the variable $check is empty then do ....

I updated it like this

$cmdCheck = ("SELECT SessionId FROM $tblname2;");
    $sth2 = $dbh->prepare($cmdCheck) or die $DBI::errstr;
    $sth2->execute or die $DBI::errstr;
    
    my $check = $sth2->fetchall_arrayref();
    $sth2->finish();
    
    
    if ($check ne ""){
        
        print "One";
        foreach my $query(@$main){
            my ($date, $bytes, $dest) = @$query;
                $cmdStr=("INSERT INTO $tblname2 (date, user, sum_bytes) VALUES ('$date', '$dest', '$bytes');");
            $sth1 = $dbh->prepare($cmdStr) or die $DBI::errstr;
            $sth1->execute or die $DBI::errstr; 
            $sth1->finish();
            }
        }
        else {
            print "Two";
        foreach my $query(@$main){
            my ($date, $bytes, $dest) = @$query;
            $cmdStr=("UPDATE $tblname2 SET date = '$date', sum_bytes = '$bytes', user = '$dest';");
            $sth1 = $dbh->prepare($cmdStr) or die $DBI::errstr;
            $sth1->execute or die $DBI::errstr;
            $sth1->finish();
            }
        }
        print "end"
        } 

The "prints" are just a way for me to see what it is actually doing

Thanks again for the help.

[curbview.com]

Originally Posted by curbview.com

On line 14 add the following to begin your if statement:

if ($check ne "") {

..YOUR CODE BLOCK...

}

Correction, that should be:

$cmdCheck = ("SELECT SessionId FROM $tblname2;");
    $sth2 = $dbh->prepare($cmdCheck) or die $DBI::errstr;
    $sth2->execute or die $DBI::errstr;
    
    my $check = $sth2->fetchall_arrayref();
    $sth2->finish();
    
    
    if ($check eq ""){
        
        print "Value is empty... INSERTING data now.";
        foreach my $query(@$main){
            my ($date, $bytes, $dest) = @$query;
                $cmdStr=("INSERT INTO $tblname2 (date, user, sum_bytes) VALUES ('$date', '$dest', '$bytes');");
            $sth1 = $dbh->prepare($cmdStr) or die $DBI::errstr;
            $sth1->execute or die $DBI::errstr; 
            $sth1->finish();
            }
        }
        else {
            print "Value not empty... UPDATING database records.";
        foreach my $query(@$main){
            my ($date, $bytes, $dest) = @$query;
            $cmdStr=("UPDATE $tblname2 SET date = '$date', sum_bytes = '$bytes', user = '$dest';");
            $sth1 = $dbh->prepare($cmdStr) or die $DBI::errstr;
            $sth1->execute or die $DBI::errstr;
            $sth1->finish();
            }
        }
        print "end"
        } 

[gobinll]

hello..im new. my script if i upload to online server its ok..but on my computer which i configure apache2.2 and latest php5.2.X and mysgl 5.0 also phpmyadmin...
the script config file done edit follow my of line apache server needed..
the result comes out blank just whit scrin color only..please help me ...thanks

[Drunken Perl Coder]

this is the perl forum, not the php forum.

[n00by]

Thanks curbview. But it still doesnt work for me no matter what i say it always thinks the table has data in it even when i truncate the table. Maybe there is another way for me to do this? Any help would be appreciated...... i will have a look at my code again aswell.

Thanks again

[curbview.com]

PM me with what prints out.

$cmdCheck = ("SELECT SessionId FROM $tblname2;");
    $sth2 = $dbh->prepare($cmdCheck) or die $DBI::errstr;
    $sth2->execute or die $DBI::errstr;
   
    my $check = $sth2->fetchall_arrayref();
    $sth2->finish();
   
   
    if ($check eq ""){
        print "The value of CHECK is: \n $check\n\n";
        sleep (2);
        print "Value is empty... INSERTING data now.";
        foreach my $query(@$main){
            my ($date, $bytes, $dest) = @$query;
                $cmdStr=("INSERT INTO $tblname2 (date, user, sum_bytes) VALUES ('$date', '$dest', '$bytes');");
            $sth1 = $dbh->prepare($cmdStr) or die $DBI::errstr;
            $sth1->execute or die $DBI::errstr; 
            $sth1->finish();
            }
        }
        else {
            print "Value not empty... UPDATING database records.";
        foreach my $query(@$main){
            my ($date, $bytes, $dest) = @$query;
            $cmdStr=("UPDATE $tblname2 SET date = '$date', sum_bytes = '$bytes', user = '$dest';");
            $sth1 = $dbh->prepare($cmdStr) or die $DBI::errstr;
            $sth1->execute or die $DBI::errstr;
            $sth1->finish();
            }
        }
        print "end"
        } 

[curbview.com]

Guess all is well. Sprinkling a few *print statements* will help you with understanding what's wrong...

Using the following solves 99% of any Perl coders problems too:

use strict;
use warnings;

And avoid eval statements!!!!