UNIX for Dummies Questions & Answers

Hi All,

I am using ingres in perl
select count(*) rec from user_tables where table_name = 'abc';
I want to use the alias variable 'rec' and check the value if >0 insert values else create table.
How can I do this without using hash variables in perl.

Kindly help me in this regard.

Much thanks in advance

Regards

Hi ,

#!/usr/bin/perl

use DBI;
use strict;


my $userid=$ENV{USER_ID};
my $userpass=$ENV{USER_PASS};
my $lx_server=$ENV{SERVER};

my $db=DBI->connect("dbi:Oracle:$lx_server",$userid,$userpass) || die "FAILURE :- $DBI::errstr. \n";


my $sel = "select count(*) rec from user_tables where table_name = 'abc' ";

my $sth = $db->prepare($sel) || die "FAILURE:- $DBI::errstr\n" ;

$sth->execute()|| die "FAILURE:- $DBI::errstr \n";;

while ( my @rec = $sth->fetchrow_array()) {

if (@rec[0] <= 0 )
{
print "create table \n";
}
else
{
print " no. of record - $rec[0] ";
print "insert row\n";
}
}
$db->disconnect if defined ($db);