|
|
sybperl-l Archive
Up Prev Next
From: Michael Peppler <mpeppler at peppler dot org>
Subject: RE: Syb perl question
Date: Jan 16 2002 10:53PM
That's possible. I don't think I have a 5.003 installation available
to test anymore, and I'm not even sure that sybperl builds with
5.003... :-)
Michael
Scott Zetlan writes:
> Hm.... maybe it was under 5.003. I've checked 5.004_04, and no problem
> there either.
>
> > -----Original Message-----
> > From: owner-SYBPERL-L@list.cren.net
> > [mailto:owner-SYBPERL-L@list.cren.net]On Behalf Of Michael Peppler
> > Sent: Wednesday, January 16, 2002 5:10 PM
> > To: SybPerl Discussion List
> > Subject: RE: Syb perl question
> >
> >
> > Hmmm:
> >
> > perl -v
> >
> > This is perl, version 5.005_02 built for i386-freebsd
> >
> > /usr/local/bin/perl -I../../../lib/products -MCTtools -e '$db=new
> > CTtools webuser, webuser, ecircles_plum;
> > $data=$db->HashRow("select * from oem_circle_map where
> > org_id=117"); $kv="circleId"; print "$data->{$kv}\n";'
> > 107787
> >
> > (CTtools is essentially like Sybase::Simple - HashRow returns a
> > hashref to one row fetched from the db...)
> >
> > Michael
> >
> > Scott Zetlan writes:
> > > 5.005, which is outdated but still widely used. I think it's
> > fixed in 5.6.
> > >
> > > > -----Original Message-----
> > > > From: owner-SYBPERL-L@list.cren.net
> > > > [mailto:owner-SYBPERL-L@list.cren.net]On Behalf Of Michael Peppler
> > > > Sent: Wednesday, January 16, 2002 4:28 PM
> > > > To: SybPerl Discussion List
> > > > Subject: RE: Syb perl question
> > > >
> > > >
> > > > Scott Zetlan writes:
> > > > > Also, depending on your Perl version (perl -v), the line:
> > > > > print "$row->{$kv}\n";
> > > > > will not do what you expect. You'll see something like:
> > > > > HASH=0xafde9f->{keyname}
> > > >
> > > > Ouch. I don't remember seeing that - which version of perl does that?
> > > >
> > > > Michael
> > > >
> > > >
> > > > > > -----Original Message-----
> > > > > > From: owner-SYBPERL-L@list.cren.net
> > > > > > [mailto:owner-SYBPERL-L@list.cren.net]On Behalf Of
> > Michael Peppler
> > > > > > Sent: Wednesday, January 16, 2002 4:04 PM
> > > > > > To: SybPerl Discussion List
> > > > > > Subject: Re: Syb perl question
> > > > > >
> > > > > >
> > > > > > Sabherwal, Balvinder (MBS) writes:
> > > > > > > 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??
> > > > > >
> > > > > > Yeah :-)
> > > > > >
> > > > > > Use $row->{$kv} - $_ never gets set in your loop.
> > > > > >
> > > > > > Michael
> > > > > > --
> > > > > > Michael Peppler - Data Migrations Inc. -
> > > http://www.mbay.net/~mpeppler
> > > > > mpeppler@peppler.org - mpeppler@mbay.net
> > > > > International Sybase User Group - http://www.isug.com
> > > > >
> > > > >
> > > >
> > >
> > > --
> > > Michael Peppler - Data Migrations Inc. - http://www.mbay.net/~mpeppler
> > > mpeppler@peppler.org - mpeppler@mbay.net
> > > International Sybase User Group - http://www.isug.com
> > >
> >
> > --
> > Michael Peppler - Data Migrations Inc. - http://www.mbay.net/~mpeppler
> > mpeppler@peppler.org - mpeppler@mbay.net
> > International Sybase User Group - http://www.isug.com
> >
> >
>
--
Michael Peppler - Data Migrations Inc. - http://www.mbay.net/~mpeppler
mpeppler@peppler.org - mpeppler@mbay.net
International Sybase User Group - http://www.isug.com
|
