Help for this page

Select Code to Download


  1. or download this
    $ perl -MScalar::Util=reftype -e'
   my $s = *STDOUT;
   CORE::say reftype(\$s) eq "GLOB";
'
1
  2. or download this
    $ perl -MScalar::Util=reftype -e'
   my $s = \*STDOUT;
   CORE::say reftype($s) eq "GLOB";
'
1
  3. or download this
    $ perl -MScalar::Util=reftype -e'
   open(my $s, "<&", *STDOUT) or die $!;
   CORE::say reftype($s) eq "GLOB";
'
1