fileno perldoc中的這行代表什麼意思？

Question

的perldoc for fileno說

文件句柄通過開放新功能連接到內存中的對象可能會返回即使他們是開放的定義。

這是指新的樣式要求，一般開，或將IO::Scalar風格調用打開？

Answer 1

這段代碼似乎認爲它只適用於open ::的IO :: Scalar版本。這可能是因爲沒有與文件句柄關聯的基礎操作系統級文件沒有關聯。

#!/usr/bin/perl 

use 5.010; 
use strict; 
use warnings; 

my $fakefile = "foo\nbar\nbaz\n"; 
open my $fake, "<", \$fakefile 
    or die "could not open fakefile [$fakefile]: $!"; 

open my $script, "<", $0 
    or die "could not open self for reading: $!"; 

print "fake: ", my_fileno($fakefile), "\nreal: ", my_fileno($script), "\n"; 

sub my_fileno { 
    my $fileno = fileno shift; 
    $fileno //= "undef"; 
    return $fileno; 
}