Re: Sybase Perl DBI

[Anonymous Monk]

You should write like this because of Lexical scoping like a fox, Variable Scoping in Perl: the basics

sub sa_details {
   my $dbh = shift;
   my @uids;
   
   $dbh->dbcmd("SELECT userid FROM user");
   $dbh->dbsqlexec or die "Can't execute SQL statement:\n";
   
   while( $dbh->dbresults != NO_MORE_RESULTS ){
       while( my @row = $dbh->dbnextrow ){
           push @uids, $row[0];
       }
   }
   return @uids;
}

my @array = sa_details(
    Sybase::DBlib->new(
        "user",
        "passwd",
        "host",
    )
);

Or you could write

sub sa_details {
    my $dbh = shift;
    $dbh->nsql( "SELECT userid FROM user", "ARRAY" );
}
my @arry = sa_details(
    Sybase::DBlib->new(
        "user",
        "passwd",
        "host",
    )
);

$DB_ERROR and die $DB_ERROR;
## $Sybase::DBlib::DB_ERROR and die $Sybase::DBlib::DB_ERROR;