I'm looking into it. I clear out all the NAME attributes, but must be
missing the cache from the NAME_uc or NAME_lc.
Jeff
>
> Jeff,
>
> On your script, if you change the fetchrow_hashref to
> fetchrow_hasref{'NAME_lc'} or fetchrow_hasref{'NAME_uc'} it
> fails just like mine.
>
> if you run with no argument or just NAME, it works fine.
>
> Cheers.
> Iso
>
> -----Original Message-----
> From: Jeff Urlwin [mailto:[EMAIL PROTECTED]
> Sent: Monday, March 10, 2003 8:53 AM
> To: Ismail Mutlu; [EMAIL PROTECTED]
> Subject: RE: Multiple Select statements in an SP and fetchrow_hashref
>
>
> Try the attached file and let me know how it runs. Set
> DBI_DSN,DBI_USER and DBI_PASS environment variables first.
>
> If this doesn't produce good output, then:
> a) upgrade your SQLServer driver (MDAC 2.7). My SQL
> Server driver is 200.81.9030.04
> b) compare this script to what you are doing and see if
> you can make mine break.
>
> Jeff
>
> > -----Original Message-----
> > From: Ismail Mutlu [mailto:[EMAIL PROTECTED]
> > Sent: Monday, March 10, 2003 11:23 AM
> > To: Jeff Urlwin; [EMAIL PROTECTED]
> > Subject: RE: Multiple Select statements in an SP and
> fetchrow_hashref
> >
> >
> > Jeff,
> > I have DBI 1.34 and DBD::ODBC 1.04 installed.
> >
> > Thanks.
> > Iso
> >
> > -----Original Message-----
> > From: Jeff Urlwin [mailto:[EMAIL PROTECTED]
> > Sent: Saturday, March 08, 2003 3:28 AM
> > To: Ismail Mutlu; [EMAIL PROTECTED]
> > Subject: RE: Multiple Select statements in an SP and
> fetchrow_hashref
> >
> >
> > >
> > > Hello list,
> > >
> > > I am using DBD::ODBC against SQL 2000 server. In my script I am
> > > executing a Stored Procedure which has two select statements
> > > selecting from two different tables. I am looping through to grep
> > > the output of the SP using fetchrow_hashref, each time I
> get a row I
> > > print the keys and the values of the hash. The first hash prints
> > > fine(with the column names from the first table) , but the second
> > > one inherits the hash keys from the first one(the values
> are correct
> > > tough). I tried 'undef'ing the hashref and the hash but
> still wont
> > > work. Here is my code:
> > >
> > >
> >
> > What version of DBD::ODBC are you using? If you are *not*
> > using 1.04 and DBI 1.32, stop and get them. I believe these
> > issues have been found and fixed.
> >
> > Regards,
> >
> > Jeff
> >
> > >
> > > -------------------------------------CODE---------------------
> > > ------------------------------------------
> > > $sth1->execute();
> > > while ( $sth1->{Active}) {
> > > do {
> > > my $rowRef;
> > > for (my $rowRef ;$rowRef=
> $sth1->fetchrow_hashref('NAME_lc');
> > > ) {
> > > my %outputData = %$rowRef; undef $rowRef;
> > > print 'outputData ', Dumper(\%outputData), "\n";
> > > undef %outputData;
> > > }
> > > } while ($sth1->{odbc_more_results});
> > > }
> > > --------------------------------------------------------------
> > > ------------------------------------------
> > > It gives me:
> > >
> > > --------------------------------OUTPUT------------------------
> > > -----------------------------------
> > > outputData $VAR1 = {
> > > 'address' => 'My Address',
> > > 'acctnumber' => '321'
> > > };
> > >
> > > outputData $VAR1 = {
> > > '' => 'iso ',
> > > 'address' => '123',
> > > 'acctnumber' => '123'
> > > };
> > > --------------------------------------------------------------
> > > ------------------------------------------
> > > Output for the first select is correct, but the second
> one shold be:
> > > outputData $VAR1 = {
> > > 'name' => 'iso ',
> > > 'Number' => '123',
> > > 'acctnumber' => '123'
> > > };
> > >
> > > If I run the following, the out put is correct:
> > > -------------------------------------CODE---------------------
> > > ------------------------------------------
> > > $sth1->execute();
> > > while ( $sth1->{Active}) {
> > > do {
> > > my $rowRef;
> > > while (my $p = $sth1->fetchrow_hashref()) {
> > > print "new select \n";
> > > while (my ($key, $value) = each %$p) {
> > > print "\t $key : $value\n";
> > > }
> > > print "\n\n";
> > > } while ($sth1->{odbc_more_results});
> > > }
> > > ------------------------------------------------------------
> > >
> > >
> > > Any Ideas,
> > >
> > > Cheers!.
> > > Iso
> > > _______________________________________________
> > > Perl-Win32-Database mailing list
> > > [EMAIL PROTECTED]
> > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> > >
> >
> >
> >
>
>
>
