Re: Is "ref $date eq 'ARRAY'" wrong?

[dada]

maybe I'm totally out of track (it's been a long and hard week :-), but I would go with something like:

$date = (ref $date =~ /ARRAY/) ? $date : [ split(/\D+/, $date) ];

it is safe enough, I think, to treat the reference as an array if it "implements" an array (eg. if it's something like Foo::Bar=ARRAY(0xdeadbeef)) the same way it is safe enough to call $object->{property} when $object is something like Foo::Bar=HASH(0xdeadbeef).

don't know, however (I don't have time to check now), if this works for tied arrays.

someone correct me please if I'm wrong :-)

[gmpassos]

Humm, you are making 2 things wrong!

Take a look in this code:

package foo ;

my $bless = bless({},foo);
print "AS STRING: $bless\n" ;

print "AS REF: ". ref($bless) ."\n" ;

__END__
## OUTPUT:
AS STRING: foo=HASH(0x1a7f04c)
AS REF: foo

ref just return in what package the object is blessed or the data type of the reference. If you want to know if the blessed reference is an ARRAY, HASH, SCALAR... you can use:

  if ( UNIVERSAL::isa($bless , 'HASH') ) {
    print "mohhh\n" ;
  }

And forget the REGEXP for that!