First let me explain that I've been up for more than 40 hours. I've had a few hours of sleep earlier today but my brain is not working yet.

On page 171, chapter 4, section 4.5.5 of Higher Order Perl by Mark Jason Dominus, the iterator example given shows an oddity that my brain is having trouble understanding. Specifically, it appears that the second row retrieved from the query result set is being thrown away. Is this correct?

UPDATE: This simply sets up the next iteration. That way, we will know if the result set has been entirely processed and the next iteration will be the last iteration. Lesson learned: before reading Higher Order Perl, get some SLEEP! 

      } elsif ($action eq 'nextval') {
        my $oldrow = $row;
        $row = $sth->fetchrow_arrayref;
        return $oldrow->[0];
      }

[download]

Full subroutine code: 

  sub dbi_query_iterator {
    my ($sth, @params) = @_;

    $sth->execute(@params) or return;
    my $row = $sth->fetchrow_arrayref()

    return Iterator {
      my $action = shift() || 'nextval';

      if ($action eq 'exhausted?') {
        return ! defined $row;
      } elsif ($action eq 'nextval') {
        my $oldrow = $row;
        $row = $sth->fetchrow_arrayref;
        return $oldrow->[0];
      }
  }

[download]

Jason L. Froebe

Help find a cure for breast cancer! Net proceeds benefit the Susan G. Komen Breast Cancer Foundation and the National Philanthropic Trust. Help by donating - I'm walking 60 miles in 3 days in August 2007. (The day I return from TechWave is the first day of the Walk).

Blog, Tech Blog

In reply to dbi_query_iterator and my misunderstanding the $row by jfroebe

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.