Re^3: 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

Comment on Re^3: SQL::Abstract 'between' clause (about done) Select or Download Code

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]
Re^5: SQL::Abstract 'between' clause (about done) by jethro (Monsignor) on Nov 22, 2011 at 14:48 UTC
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]
Re^6: SQL::Abstract 'between' clause (about done) by Anonymous Monk on Nov 22, 2011 at 14:52 UTC
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]
Re^7: SQL::Abstract 'between' clause (about done) by jethro (Monsignor) on Nov 22, 2011 at 19:48 UTC
Re^8: SQL::Abstract 'between' clause (about done) by Anonymous Monk on Nov 23, 2011 at 10:41 UTC


Keep It Simple, Stupid
	PerlMonks