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: "Sabherwal, Balvinder (MBS)" <Balvinder dot Sabherwal at mortgagefamily dot com>
Subject: Syb perl question
Date: Jan 16 2002 8:21PM

I have a code as 

foreach my $row (@$sysdb) {
	my @cols = keys(%$row);
	foreach my $kv (@cols) {
		print "$kv";
		if($kv eq "RSSD Dataserver"){
			$rsds="$row->{$_}";
			print "$row->{$_}";
		}
		else
		{
			$rsdb="$row->{$_}";
			print "$row->{$_}";
		}
		
	}
}

after execution I am not getting the data values for the columns i.e. print
"$row->{$_}"; returns blank. Am I missing something??