[ale] Organizing data

[Fletch]

>>>>> "Jason" == Jason Etheridge <phasefx at magusaptus.com> writes:

    Jason> if ( ($a_ref->($ref}->{$ref2}->{$ref3}) =~ /^HASH(.+)$/ ) {

Aieeeee, no.  You mean:


if( ref $a_ref->{$ref}->{$ref2}->{$ref3} eq 'HASH' ) {
  ## Is hash ref
} else {
  ## Not hash ref
}


perldoc -f ref

-- 
Fletch                | "If you find my answers frightening,       __`'/|
fletch at phydeaux.org   |  Vincent, you should cease askin'          \ o.O'
                      |  scary questions." -- Jules                =(___)=
                      |                                               U