LJ Archive

Listing 1. Example sybperl Program

 1 #!/usr/local/bin/perl
 3 use Sybase::CTlib;
 5 $dbh =
Sybase::CTlib->ct_connect('sa','password','linux_dev');
 7 $sql = "select name from sysdatabases";
 9 $qref = $dbh->ct_sql($sql);
10 @rows = @$qref;
12 foreach $row (@rows) {
13    print "$$row[0]\n";
14 }
LJ Archive