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

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) ];
[download]

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 :-)

cheers,
Aldo

King of Laziness, Wizard of Impatience, Lord of Hubris

Comment on Re: Is "ref $date eq 'ARRAY'" wrong? Download Code

Replies are listed 'Best First'.
Re: Re: Is "ref $date eq 'ARRAY'" wrong? by gmpassos (Priest) on Dec 20, 2003 at 03:24 UTC
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` [download] 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" ; }` [download] And forget the REGEXP for that! Graciliano M. P. "Creativity is the expression of the liberty".	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: Is "ref $date eq 'ARRAY'" wrong?
by gmpassos (Priest) on Dec 20, 2003 at 03:24 UTC

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
[download]

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

Graciliano M. P.
"Creativity is the expression of the liberty".

[reply]
[d/l]
[select]