Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Identifying if a variable is the product of a qr//

by demerphq (Chancellor)
on Apr 25, 2002 at 10:13 UTC ( #161905=note: print w/replies, xml ) Need Help??

in reply to Identifying if a variable is the product of a qr//

One thing I left out. The reason Dumper is printing out the blessed qr// as \undef is becuase it sees it as a reference to a scalar (which apparently it is, but isnt really (whee perl is fun! :-)) and tries to follow it using $$var. But $$var seems to evaluate to undef in this situation (apparently another hole in the way the regex type is handled) so Dumper ends up rendering it as a reference to a var. It is precisely this reason that I want to know how to identify these beasties. My dumper should handle this situation properly.

$ $\=$/; my $var=bless qr/[A-Z]o[A-Z]/,'foo'; print $var; print ref $var; print defined $$var ? $$var : 'undef';

Yves / DeMerphq
Writing a good benchmark isnt as easy as it might look.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://161905]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (7)
As of 2018-06-24 23:07 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.