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??
|
