常见例句CODE{"perl"}% sub FILENO { my $self = shift; return fileno $self; } %ENDCODE 这个方法应该返回与捆绑的文件句柄相关联的操作系统文件描述符（fileno）。 返回 Fileno