http://qs1969.pair.com?node_id=1177188


in reply to Re^2: How do I determine if a variable contains a type glob?
in thread How do I determine if a variable contains a type glob?

Man, you really talk a lot of twaddle!

The OP asked about globs (e.g. *ARGV)

And what do you think *fh is. (It's rhetorical.)

Furthermore, use of ref instead of reftype will fail if the referenced var is blessed.

How can "the reference be blessed", when (as you unnecessarily pointed out yourself) he asked about *GLOB not \*GLOB. It can't; because my suggestion was that he take the reference himself.

Ie. His sub becomes something like:

sub isIt{ local $^W; ref( \$_[0] ) =~ m[GLOB] ? 1 : 0; }

And it is used like this:

[0]{} Perl> printf "%s: %d\n", $_, isIt( $_ ) for *ARGV, *INC, *SIG, * +MATCH, *FH, *A, *B, *STDOUT, *CORE::say;; # *anything *main::ARGV: 1 *main::INC: 1 *main::SIG: 1 *main::MATCH: 1 *main::FH: 1 *main::A: 1 *main::B: 1 *main::STDOUT: 1 *CORE::say: 1

And

... if the referenced var is blessed.

You don't (*CAN'T*) bless a var; only a reference to one!

You can pop-down now.


With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority". The enemy of (IT) success is complexity.
In the absence of evidence, opinion is indistinguishable from prejudice.