Help for this page

Select Code to Download


  1. or download this
    my $x = \*FH;
print "plain glob ref: <$x>\n";
...
open ($x, "<","somefile") or warn "error\n";
print "open FH ref: <$x>\n";
# prints: open FH ref: <GLOB(0x1d6c660)>
  2. or download this
    my $x = \*FH;
x $x
...
0  GLOB(0x1d6c408)
   -> *main::FH
         FileHandle({*main::FH}) => fileno(6)