in reply to Re^2: SQL::Abstract 'between' clause (about done)
in thread SQL::Abstract 'between' clause (about done)

The problem in a nutshell 

$ cat junk
use strict; use warnings;
use diagnostics;
my %where = ();
$where{something} = 4;
$where{something}{else} = 5;
__END__


$ perl junk
Can't use string ("4") as a HASH ref while "strict refs" in use at jun
+k line 5 (#1)
    (F) Only hard references are allowed by "strict refs".  Symbolic
    references are disallowed.  See perlref.

Uncaught exception from user code:
        Can't use string ("4") as a HASH ref while "strict refs" in us
+e at junk line 5.
 at junk line 5

[download]

Either $where{something} is a hashref or it isn't, it can't be both, so pick one

You can pick 

#~  $where{$colname}=$colval; 
$where{$colname}{colval} =$colval;

[download]

There are other problem, but I'll leave that to others

Replies are listed 'Best First'.
Re^4: SQL::Abstract 'between' clause (about done)
by Anonymous Monk on Nov 22, 2011 at 14:16 UTC
    From the POD I see 
       
my %where  = (
        user   => 'nwiger',
        completion_date => {
           -not_between => ['2002-10-01', '2003-02-06']
        }
    );

    [download]
    I don't see where I can use this functionality with the two choices you mentioned to pick from. Thanks for the advice by the way. If I can get this part working I am keen to know what other problems you have found
[reply]
[d/l]

      To create the data you see in the POD with scalar assignements you would have to write this:

      $where{user}= 'nwiger';
$where{completion_date}{-not_between}= ['2002-10-01', '2003-02-06'];

      [download]

      What would be a problem is if you used this as well:

      $where{completion_date}= 5;

      [download]

      Because $where{completion_date} can't be pointer to a hash and scalar value at the same time. But nothing prevents you from storing further scalar values or hash pointers in $where{thingy} or $where{stuff} or $where{completion_date}{depperstuff}

      A big help might be to watch Data::Dumper output of %where after you execute each of the above statements

[reply]
[d/l]
[select]
        Thanks but isn't my code doing what your code does? 
        $where{$colname}{'-between'} = [$from,$to]; #my code
where{completion_date}{-not_between}= ['2002-10-01', '2003-02-06'];#yo
+ur code

        [download]
        I though $from and $to would work as they contain the right values.
[reply]
[d/l]

In Section Seekers of Perl Wisdom