¿Cómo puedo comprobar si un filehandle está abierto en Perl? [duplicar]

El módulo Escalar::Util proporciona el openhandle() función para esto. A diferencia de fileno(), maneja los manejadores de archivos perl que no están asociados con los manejadores de archivos del sistema operativo. A diferencia de tell () , no produce advertencias cuando se usa en un manejador de archivos sin abrir Desde la documentación del módulo :

Openhandle FH

Returns FH if FH may be used as a filehandle and is open, or FH is a tied handle. Otherwise "undef" is returned.

   $fh = openhandle(*STDIN);           # \*STDIN
   $fh = openhandle(\*STDIN);          # \*STDIN
   $fh = openhandle(*NOTOPEN);         # undef
   $fh = openhandle("scalar");         # undef

¿Por qué querrías hacer eso? La única razón por la que se me ocurre es cuando estás usando los controladores de archivos de paquetes de estilo antiguo (lo que parece que estás haciendo) y quieres evitar guardar accidentalmente un controlador sobre otro.

Este problema se puede resolver usando nuevos estilos de manejadores de archivos indirectos.

open my $fh, '<', $filename or die "Couldn't open $filename: $!";

Perl proporciona la función fileno exactamente para este propósito.

EDITAR Estoy corregido en el propósito de fileno(). Prefiero la prueba más corta

fileno FILEHANDLE

Sobre

tell FH != -1

Tell produce una advertencia (también lo hace stat, -s, -e, etc..) con use warnings (- w)

perl -wle '
    open my $fh, "<", "notexists.txt"; 
    print "can stat fh" if tell $fh
'
tell() on closed filehandle $fh at -e line 1.
-1

Las alternativas fileno($fh) y eof($fh) no producen advertencias. Encontré que la mejor alternativa era guardar la salida de open.

¿por Qué te importa si ya está abierto? ¿Estás tratando de captar lecturas simultáneas?

Realmente no necesita preocuparse por cerrar el archivo. O bien no está abierto y el cierre falla porque no tiene nada que cerrar, o el archivo está abierto y el cierre lo libera. De cualquier manera, el archivo no está abierto en ese manejador de archivos. Simplemente cierre el filehandle sin importarle si no está abierto. Estás viendo algo raro ahí?