[prev in list] [next in list] [prev in thread] [next in thread]
List: dbi-users
Subject: RE: perl on ncib1psrr002
From: edward barlow <barlowedward () hotmail ! com>
Date: 2008-03-28 14:58:18
Message-ID: BLU104-W5138FF217A661A97619939CBF90 () phx ! gbl
[Download RAW message or body]
[Attachment #2 (multipart/alternative)]
I have attached my test program for perl
usage:
perl GenericDBIQuery.pl -Usa -SSVR -Ppassword -Dmaster -Q'sp_who'
Fair warning : for whatever reason im having problems with the program on win32 (as \
of - my just run 'test it before i send it') - works fine on my linux and solaris box \
- so it should on yours... If you cant connect try adding "-d".
Ed Barlow
Subject: RE: perl on ncib1psrr002
Date: Thu, 27 Mar 2008 13:53:11 -0400
From: itta.badrinath@wachovia.com
To: sybperl-l@peppler.org; dbi-users@perl.org; barlowedward@hotmail.com
CC: annmarie.haynes@wachovia.com; cib.sybaseverbatim@wachovia.com
Hi ,
We downloaded DBD::Sybase 1.08 from
peppler.org and ran the necessary Makefile on our Linux host.
When we ran the program (depends_analyze.pl
– GEMS Ed Barlow) we are getting the errors below.
We are not sure if we are missing
something. Can you help us?
sybase@ncib1psrr002:/home/a397179/gems/gem/ADMIN_SCRIPTS/bin>
perl depends_analyze.pl -S TIER2QA -Usa -Ppassword
depends_analyze.pl : run at Thu Mar 27
13:02:46 2008
OUTPUT
DIRECTORY=/home/a397179/gems/gem/data/depends
Had to create
DBD::Sybase::dr::imp_data_size unexpectedly at
/usr/lib/perl5/site_perl/5.8.3/x86_64-linux-thread-multi/DBI.pm line 1211.
Had to create
DBD::Sybase::db::imp_data_size unexpectedly at
/usr/lib/perl5/site_perl/5.8.3/x86_64-linux-thread-multi/DBI.pm line 1241.
Undefined subroutine &DBD::Sybase::db::_login
called at
/usr/lib/perl5/site_perl/5.8.3/x86_64-linux-thread-multi/DBD/Sybase.pm line 90.
Thanks & Regards,
Itta Badrinath
CIB Dedicated Team DBA - Sybase
Ph : 704 590 4184
Picct Group : ts-tds-cib-db-admin-sybase-invbnk
Group Email : cib.sybaseverbatim@wachovia.com
[Attachment #5 (text/html)]
<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body class='hmmessage'><div style="text-align: left;">I have attached my test \
program for perl<br><br>usage: <br><br>perl GenericDBIQuery.pl -Usa -SSVR -Ppassword \
-Dmaster -Q'sp_who'<br><br>Fair warning : for whatever reason im having problems with \
the program on win32 (as of - my just run 'test it before i send it') - works fine on \
my linux and solaris box - so it should on yours... If you cant connect try \
adding "-d". <br></div><br>Ed Barlow <br><br><blockquote><hr \
id="EC_stopSpelling">Subject: RE: perl on ncib1psrr002<br>Date: Thu, 27 Mar 2008 \
13:53:11 -0400<br>From: itta.badrinath@wachovia.com<br>To: sybperl-l@peppler.org; \
dbi-users@perl.org; barlowedward@hotmail.com<br>CC: annmarie.haynes@wachovia.com; \
cib.sybaseverbatim@wachovia.com<br><br>
<meta http-equiv="Content-Type" content="text/html; charset=unicode">
<meta name="Generator" content="Microsoft SafeHTML">
<style>
</style>
<style>
.ExternalClass a:link
{;}
.ExternalClass span.EC_MSOHYPERLINK
{;}
.ExternalClass a:visited
{;}
.ExternalClass span.EC_MSOHYPERLINKFOLLOWED
{;}
.ExternalClass p.EC_MSOPLAINTEXT
{;}
.ExternalClass li.EC_MSOPLAINTEXT
{;}
.ExternalClass div.EC_MSOPLAINTEXT
{;}
.ExternalClass p
{;}
.ExternalClass span.EC_PLAINTEXTCHAR
{;}
.ExternalClass span.EC_PLAINTEXTCHAR0
{;}
.ExternalClass span.EC_PLAINTEXTCHAR00
{;}
.ExternalClass span.EC_PLAINTEXTCHAR000
{;}
.ExternalClass span.EC_PLAINTEXTCHAR0000
{;}
.ExternalClass p.EC_MsoNormal, .ExternalClass li.EC_MsoNormal, .ExternalClass \
div.EC_MsoNormal {margin-bottom:.0001pt;font-size:12.0pt;font-family:'Times New \
Roman';}
.ExternalClass a:link, .ExternalClass span.EC_MsoHyperlink
{color:blue;text-decoration:underline;}
.ExternalClass a:visited, .ExternalClass span.EC_MsoHyperlinkFollowed
{color:purple;text-decoration:underline;}
.ExternalClass p.EC_MsoPlainText, .ExternalClass li.EC_MsoPlainText, .ExternalClass \
div.EC_MsoPlainText {margin-bottom:.0001pt;font-size:10.0pt;font-family:'Courier \
New';}
.ExternalClass p
{margin-right:0in;margin-left:0in;font-size:12.0pt;font-family:'Times New Roman';}
.ExternalClass span.EC_plaintextchar
{font-family:Consolas;}
.ExternalClass span.EC_plaintextchar0
{font-family:Consolas;}
.ExternalClass span.EC_plaintextchar00
{font-family:Consolas;}
.ExternalClass span.EC_plaintextchar000
{font-family:Consolas;}
.ExternalClass span.EC_plaintextchar0000
{font-family:Consolas;}
.ExternalClass span.EC_EmailStyle24
{font-family:Arial;color:navy;}
.ExternalClass span.EC_EmailStyle25
{font-family:Arial;color:navy;}
.ExternalClass span.EC_EmailStyle26
{font-family:Arial;color:navy;}
.ExternalClass span.EC_EmailStyle27
{font-family:'Times New Roman';color:black;}
.ExternalClass span.EC_EmailStyle28
{font-family:Arial;color:navy;}
.ExternalClass span.EC_EmailStyle29
{font-family:Arial;color:navy;}
.ExternalClass span.EC_EmailStyle30
{font-family:'Times New Roman';color:black;}
.ExternalClass span.EC_EmailStyle31
{font-family:'Times New Roman';color:black;}
.ExternalClass span.EC_EmailStyle32
{font-family:'Times New Roman';color:black;}
.ExternalClass span.EC_EmailStyle33
{font-family:'Times New Roman';color:black;}
.ExternalClass span.EC_EmailStyle34
{font-family:Arial;color:navy;}
.ExternalClass span.EC_EmailStyle35
{font-family:'Times New Roman';color:black;}
.ExternalClass span.EC_EmailStyle36
{font-family:Arial;color:navy;}
.ExternalClass span.EC_EmailStyle37
{font-family:'Times New Roman';color:black;}
.ExternalClass span.EC_EmailStyle38
{font-family:Arial;color:navy;}
.ExternalClass span.EC_EmailStyle39
{font-family:'Times New Roman';color:black;}
.ExternalClass span.EC_EmailStyle40
{font-family:Arial;color:navy;}
.ExternalClass span.EC_EmailStyle42
{font-family:Arial;color:navy;}
@page Section1
{size:8.5in 11.0in;}
.ExternalClass div.EC_Section1
{page:Section1;}
</style>
<div class="EC_Section1">
<p class="EC_MsoNormal"><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: navy;">Hi , </span></font></p>
<p class="EC_MsoNormal"><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: navy;"> </span></font></p>
<p class="EC_MsoNormal"><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: navy;">We downloaded <a \
href="http://www.peppler.org/downloads/DBD-Sybase-1.08.tar.gz" target="_blank"><font \
color="navy"><span style="color: navy;">DBD::Sybase 1.08</span></font></a> from \
peppler.org and ran the necessary Makefile on our Linux host. </span></font></p>
<p class="EC_MsoNormal"><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: navy;"> </span></font></p>
<p class="EC_MsoNormal"><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: navy;">When we ran the program \
(depends_analyze.pl – GEMS Ed Barlow) we are getting the errors below. \
</span></font></p>
<p class="EC_MsoNormal"><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: navy;"> </span></font></p>
<p class="EC_MsoNormal"><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: navy;">We are not sure if we are \
missing something. Can you help us?</span></font></p>
<p class="EC_MsoNormal"><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: navy;"> </span></font></p>
<p class="EC_MsoNormal"><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: \
navy;">sybase@ncib1psrr002:/home/a397179/gems/gem/ADMIN_SCRIPTS/bin> perl \
depends_analyze.pl -S TIER2QA -Usa -Ppassword</span></font></p>
<p class="EC_MsoNormal"><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: navy;">depends_analyze.pl : run at \
Thu Mar 27 13:02:46 2008</span></font></p>
<p class="EC_MsoNormal"><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: navy;">OUTPUT \
DIRECTORY=/home/a397179/gems/gem/data/depends</span></font></p>
<p class="EC_MsoNormal"><font color="#993300" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: rgb(153, 51, 0);">Had to create \
DBD::Sybase::dr::imp_data_size unexpectedly at
/usr/lib/perl5/site_perl/5.8.3/x86_64-linux-thread-multi/DBI.pm line \
1211.</span></font></p>
<p class="EC_MsoNormal"><font color="#993300" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: rgb(153, 51, 0);">Had to create \
DBD::Sybase::db::imp_data_size unexpectedly at
/usr/lib/perl5/site_perl/5.8.3/x86_64-linux-thread-multi/DBI.pm line \
1241.</span></font></p>
<p class="EC_MsoNormal"><font color="#993300" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: rgb(153, 51, 0);">Undefined \
subroutine &DBD::Sybase::db::_login called at
/usr/lib/perl5/site_perl/5.8.3/x86_64-linux-thread-multi/DBD/Sybase.pm line \
90.</span></font><font color="navy" face="Arial" size="2"><span style="font-size: \
10pt; font-family: Arial; color: navy;"></span></font></p>
<div>
<font color="navy" face="Arial" size="2"><span style="font-size: 10pt; font-family: \
Arial; color: navy;">Thanks & Regards,</span></font><font color="navy"><span \
style="color: navy;"> <br> </span></font><font color="navy" face="Arial" \
size="2"><span style="font-size: 10pt; font-family: Arial; color: navy;">Itta \
Badrinath</span></font><font color="navy"><span style="color: navy;"> <br> \
</span></font><font color="navy" face="Arial" size="2"><span style="font-size: 10pt; \
font-family: Arial; color: navy;">CIB Dedicated Team DBA - Sybase</span></font><font \
color="navy"><span style="color: navy;"> <br> </span></font><font color="navy" \
face="Arial" size="2"><span style="font-size: 10pt; font-family: Arial; color: \
navy;">Ph : 704 590 4184</span></font><font color="navy"><span style="color: navy;"> \
</span></font><BR>
<font color="navy" face="Arial" size="2"><span style="font-size: 10pt; font-family: \
Arial; color: navy;">Picct Group : \
ts-tds-cib-db-admin-sybase-invbnk</span></font><font color="navy"><span style="color: \
navy;"> <br> </span></font><font color="navy" face="Arial" size="2"><span \
style="font-size: 10pt; font-family: Arial; color: navy;">Group Email : \
cib.sybaseverbatim@wachovia.com</span></font><font color="navy"><span style="color: \
navy;"> </span></font><BR>
</div>
</div>
</blockquote></body>
</html>
["GenericDBIQuery.pl" (application/octet-stream)]
#!/usr/local/bin/perl-5.8.2
BEGIN { $ENV{'LANG'} = 'C'; };
use strict;
use DBI;
use DBD::ODBC;
use Getopt::Std;
use Carp;
sub usage {
use File::Basename;
die "INCORRECT USAGE OF PROGRAM \nperl ".basename($0)." -U USERNAME -S SERVERNAME -P \
PASSWORD -D DATABASE -Q QUERY\n"; }
use vars qw ($opt_U $opt_P $opt_S $opt_D $opt_d $opt_q $opt_Q);
usage() unless getopts('U:P:S:D:dq:Q:');
usage() unless $opt_U and $opt_P and $opt_S and $opt_D;
$opt_q = $opt_Q if $opt_Q and ! $opt_q;
$opt_q = "exec sp__id" unless $opt_q;
my($Driver)="Sybase";
$Driver="ODBC" if is_nt();
print "Using dbi:$Driver:server=$opt_S\n";
DBI->trace(8) if $opt_d;
# connect to database
my $dbh = DBI->connect("dbi:$Driver:server=$opt_S", $opt_U, $opt_P)
or die $DBI::errstr;
my $sth;
my $dat;
$dbh->do("use $opt_D");
unless ($sth = $dbh -> prepare ($opt_q)) {
print("SQL command $opt_q prepare failed ");
$dbh->disconnect;
exit;
}
# excute the query
unless ( $sth -> execute ) {
print("SQL command $opt_q execute failed ");
$dbh->disconnect;
exit;
}
while ( $dat = $sth -> fetchrow_arrayref ) {
print "SUCCESS $opt_S ".join(" ",@$dat),"\n";
}
$sth ->finish;
$dbh->disconnect;
exit;
sub is_nt {
return 1 if $^O =~ /MSWin32/;
return 0;
}
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic