PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: David Owen <dowen at midsomer dot org>
Subject: Re: problem with using variable
Date: Jul 19 2003 3:27PM

On Fri, 2003-07-18 at 10:38, Sabherwal, Balvinder (MBS) wrote:
> my $oExcel = new Spreadsheet::ParseExcel;
> my (@fl , $usrfname , $usrdbid , $data , $mmsg_syb , $pwd , $mmsg_ora );
> 
> if ( ! open( PW , 'c:\tmp\dbpass_nj2') ) { die "Error : $!\n" ; } ## get the
> password for dbuser
> @fl= ; ## get the password for dbuser

> foreach $pwd ( @fl )
> {
>    chomp($pwd); ## Remove new line characters at the end.
>    print "$pwd \n";
> }

Try a 'print "$pwd\n";' just here.  What is it set to?  I suspect that
$pwd is being unset by the loop.

> 
> my $dbh=Sybase::CTlib->ct_connect("DBUSER","$pwd","SYB_NJ2");
> if ( ! defined($dbh) )
> {
>    print "Can't connect to server !! exiting.. \n";
>    exit(1);
> }

dowen
-- 
David Owen     Midsomer Consultants Inc.      dowen@midsomer.org
Maintainer of the Sybase FAQ: http://www.isug.com/Sybase_FAQ