in reply to Issue with Print

Your issue isn't with print, it's with fetchrow_hashref. The following is very suspicious:

while (@row = $db->fetch_assoc($row[0]))

[download]

You are using a row in an array as an argument to define that array. That doesn't make sense to me. I suspect that somewhere in the bowels of fetch_assoc() is a call to fetchrow_hashref that uses the parameter passed to the former as a parameter for the latter. That would explain the observed error message.

Replies are listed 'Best First'.
Re^2: Issue with Print
by Ashley Jordan (Novice) on Feb 14, 2014 at 15:29 UTC

    Hi,

    Thank you guys for your replies

    So would the correct format be fetch_assoc($row());?

    The module shows;

     877        my $row = $sth->fetchrow_hashref;

    [download]
    Any ideas?
[reply]
[d/l]
      The error is saying that $sth is undefined. I note you have $sth->execute() commented out in your script. My guess is that you should be calling $db->fetch_assoc($sth). If you can show us more of the fetch_assoc() method from modulename::DB that would help.
[reply]
[d/l]
[select]

        Hi,

        Hope this is what you requested?

        cat DB.pm -n | grep fetch 
           17      my $ref = $db->fetch_assoc($sth);

   495        while ( my $ref = $self->fetch_assoc($sth) ) {
   550        my $ref = $self->fetchOne('SELECT sql FROM sqlite_master
+ WHERE tbl_name = ?', $src_table);
   661    selectOne($q) is a shortcut to prepare and execute a structu
+re select, and fetch the first row
   668        $self->select(@q)->fetchrow_hashref;
   740        while ( my @arr = $sth->fetchrow_array() ) {
   802        while ( my $ref = $self->fetch_assoc($sth) ) {
   840        my $ref = $self->fetchOne($self->_count_sql($table, $whe
+re));
   856    =item fetchOne
   858    fetchOne($q) is a shortcut to prepare and execute a query, a
+nd fetch the first row
   862    sub fetchOne {
   864        $self->query(@q)->fetchrow_hashref;
   867    =item fetch_assoc
   873    sub fetch_assoc {
   877        my $row = $sth->fetchrow_hashref;
   879            $self->die("fetching row failed ".$sth->err);

        [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom