Help for this page

Select Code to Download


  1. or download this
    # real file
    perl -Mstrict -wE "open my $fh,'<','out.log' or die;say fileno($fh) ? 
    +'FileHandle! '.fileno($fh):'NA'"
    ...
    perl -Mstrict -wE "open my $fh,'<','out.logXX';say fileno($fh) ? 'File
    +Handle! '.fileno($fh):'NA'"
    NA