Hi,
I am writing a perl scipt to get me the SQL text for a given stored procedure in Sybase. I have used the command sp_helptext <spname> to do this but am not able to extract the resultset. I am new to perl and this is my first script.
Code is as below:
-
$dbh = DBI->connect("dbi:Sybase:host=<host>;port=<port>", "user", "pwd");
-
-
$dbh->do("use dbname");
-
my $sth = $dbh->prepare("exec sp_helptext ?");
-
$sth->execute($_[0]) || die ("cannot run sp");
-
while(my @data = $sth->fetchrow_array()) {
-
print join(q{,}, @data) . "\n".$data[1];
-
}
-
$sth->finish;
-
$sth=undef;
-
I am getting a number when I print @data and null when I print $data[1]
I have been stuck with this for a while and not able to debug. Could some please help me. Many thanks in advance
