¿Por qué mi identificador de archivo bendecido de Perl no devuelve verdadero con `can ('print')` '?

Question

Por alguna razón, no puedo hacer que Filehandles funcione con el método log_file de Expect.pm. Originalmente recibí ayuda en How can I pass a filehandle to Perl Expect's log_file function?, donde se me sugirió que use un identificador de archivo IO :: Handle para pasar al método. Este parece ser un problema diferente, así que pensé en comenzar una nueva pregunta.

Ésta es la sección del infractor Expect.pm:

if (ref($file) ne 'CODE') { 
    croak "Given logfile doesn't have a 'print' method" 
    if not $fh->can("print"); 
    $fh->autoflush(1);  # so logfile is up to date 
} 

Así, pues, he intentado este código de ejemplo:

use IO::Handle; 
open $fh, ">>", "file.out" or die "Can't open file"; 
$fh->print("Hello, world"); 
if ($fh->can("print")) 
{ 
    print "Yes\n"; 
} 
else 
{ 
    print "No\n"; 
} 

Cuando ejecuto esto, y llévese dos (a mi mente) artículos en conflicto Un archivo con una sola línea que dice "Hola, mundo", y una salida de "No". En mi opinión, la línea $fh->can debería ser verdadera. ¿Me equivoco aquí?

Answer 1

Extraño, parece que necesita crear un objeto real IO::File para que el método can funcione. Pruebe

use IO::File; 

my $fh = IO::File->new("file.out", ">>") 
    or die "Couldn't open file: $!"; 

Answer 2

IO::Handle no sobrecarga la función open(), por lo que no está consiguiendo realmente un objeto IO::Handle en $fh. No sé por qué funciona la línea $fh->print("Hello, world") (probablemente porque está llamando a la función print(), y cuando hace cosas como $foo->function es equivalente a function $foo, por lo que básicamente está imprimiendo en el manejador de archivos como lo esperaría normalmente).

Si cambia el código a algo como:

use strict; 
use IO::Handle; 
open my $fh, ">>", "file.out" or die "Can't open file"; 
my $iofh = new IO::Handle; 
$iofh->fdopen($fh, "w"); 
$iofh->print("Hello, world"); 
if ($iofh->can("print")) 
{ 
    print "Yes\n"; 
} 
else 
{ 
    print "No\n"; 
} 

... entonces su código hará lo que usted espera. ¡Por lo menos lo hace por mí!