Problem with Arrays

[luke devon]

Hi , 

I tried to capture some data in STDIN and wanted compare with a Queried data 
form a database. When i run the script , there is some errors.

Scalar value @array[2] better written as $array[2] at hell.pl line 22.
Scalar value @array[1] better written as $array[1] at hell.pl line 31.
Scalar value @array[1] better written as $array[1] at hell.pl line 32.
Scalar value @array[1] better written as $array[1] at hell.pl line 33.
Scalar value @array[1] better written as $array[1] at hell.pl line 38.
Possible unintended interpolation of @array in string at hell.pl line 38.
Global symbol "@array" requires explicit package name at hell.pl line 9.
Global symbol "@array" requires explicit package name at hell.pl line 18.
Global symbol "@array" requires explicit package name at hell.pl line 22.
Global symbol "$temp" requires explicit package name at hell.pl line 30.
Global symbol "@array" requires explicit package name at hell.pl line 31.
Global symbol "$temp" requires explicit package name at hell.pl line 32.
Global symbol "@array" requires explicit package name at hell.pl line 32.
Global symbol "@array" requires explicit package name at hell.pl line 33.
Global symbol "$temp" requires explicit package name at hell.pl line 34.
Global symbol "$temp" requires explicit package name at hell.pl line 36.
Global symbol "@array" requires explicit package name at hell.pl line 38.
Global symbol "$temp" requires explicit package name at hell.pl line 38.


=========================================================================================
#!/usr/bin/perl
use DBI;
use strict;
use warnings;

$|=1;

my ($dbh,$sth,$dbargs,$Value);
@array;

    $dbargs = {AutoCommit => 0, PrintError => 1};

    $dbh = DBI->connect("dbi:SQLite:dbname=Radius","","",$dbargs);

    if ($dbh->err()) { die "$DBI::errstr\n"; }

                while (<STDIN>){
                        @array = split(/ /);
  
              #DB searching using the IP
 
            $sth = $dbh->prepare("SELECT x-1 from Table1 where x-2 = '" . 
@array[2] . "'") || die "Dead";
            $sth->execute() || die "Unable to execute query: $DBI::errstr\n";
    
            while (my $ref = $sth->fetchrow_hashref()) {

            $Value = $ref->{'x-1'};
              
            #END
                    $temp = "";
                      if (!(@array[1] =~ m#value#)) {
                            $temp = "302:" .  @array[1];
                                if (@array[1] =~ m/\?/) {
                                  $temp .= "&value='" . $Value . "'";
                                }else {
                              $temp .= "?value='" . $Value . "'";
                            }                    
                        [EMAIL PROTECTED];
                        print;
                      }else {
                        print;
                      }
                }    

            $dbh->commit();
            $dbh->disconnect();
    }

Could you please help me to solve this problem , what are those scalar errors 
in the code ? please help me 

Thank you
Luke


Send instant messages to your online friends http://uk.messenger.yahoo.com