Pourquoi mon handle de fichier Perl béni ne renvoie-t-il pas true avec `can ('print)' '?

Question

Pour une raison quelconque, les handles de fichiers ne peuvent pas fonctionner avec la méthode log_file d'Expect.pm. J'ai d'abord obtenu de l'aide sur How can I pass a filehandle to Perl Expect's log_file function?, où il a été suggéré que j'utilise un handle de fichier IO :: Handle pour passer à la méthode. Cela semble être une question différente, alors j'ai pensé que je commencerais une nouvelle question.

C'est la partie incriminée de 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 
} 

Ainsi donc, j'ai essayé cet exemple de code:

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"; 
} 

Quand je lance cela, je reçois deux (à mon avis) des objets contradictoires. Un fichier avec une seule ligne qui dit «Bonjour, monde», et la sortie de «Non». À mon avis, la ligne $fh->can devrait retourner vrai. Est-ce que je me trompe ici?

Answer 1

Odd, il semble que vous ayez besoin de créer un objet réel IO::File pour que la méthode can fonctionne. Essayez

use IO::File; 

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

Answer 2

IO::Handle ne surcharge pas la fonction open(), de sorte que vous n'obtenez en fait un objet IO::Handle dans $fh. Je ne sais pas pourquoi la ligne $fh->print("Hello, world") fonctionne (probablement parce que vous appelez la fonction print(), et quand vous faites des choses comme $foo->function c'est équivalent à function $foo, donc vous imprimez essentiellement à la poignée de fichier comme vous vous y attendez normalement).

Si vous changez votre code à quelque chose comme:

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"; 
} 

... alors votre code fera comme prévu. Au moins, ça fait pour moi!