Your IP : 216.73.217.90

Current Path : /proc/self/root/proc/self/root/proc/self/root/usr/share/doc/freetds-devel/samples/
Upload File :
Current File : //proc/self/root/proc/self/root/proc/self/root/usr/share/doc/freetds-devel/samples/test.pl

#!/usr/bin/perl
#
use DBI;

my ($servername, $username, $password) = @ARGV;

$servername = 'JDBC' unless $servername;
$username = 'guest' unless $username;
$password = 'sybase' unless $password;

my $dbh = DBI->connect("dbi:Sybase:server=$servername", $username, $password, {PrintError => 0});

die "Unable for connect to server $DBI::errstr"
    unless $dbh;

my $rc;
my $sth;

if (@ARGV > 3) {
	$query = $ARGV[3];
} else {
	$query = "select \@\@version";
}

$sth = $dbh->prepare($query);
print $sth->{"ChopBlanks"} = 0;

if($sth->execute) {
    while(@dat = $sth->fetchrow) {
		print "@dat\n";
    }
}