Help for this page

Select Code to Download


  1. or download this
    sub isIt{ local $^W;  ref( \$_[0] ) =~ m[GLOB] ? 1  : 0; }
  2. or download this
    [0]{} Perl> printf "%s: %d\n", $_, isIt( $_ ) for *ARGV, *INC, *SIG, *
+MATCH, *FH, *A, *B, *STDOUT, *CORE::say;; # *anything
*main::ARGV: 1
...
*main::B: 1
*main::STDOUT: 1
*CORE::say: 1