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.
In the absence of evidence, opinion is indistinguishable from prejudice.
|