Perl: Comment déclarer et mettre en œuvre la fonction `say`

Question

question simple:

Je veux écrire une fonction comme say.

Mais il avait une mauvaise caractéristique: un handle de fichier.

 say FILEHANDLE LIST 
     say FILEHANDLE 
     say LIST 
     say 

Comment le déclarer? C'est possible? Je trouve un exemple avec myopen(*;$), mais ce n'est pas la même chose.
P.P.S: J'ai besoin de cette fonction dans les anciennes versions de Perl, car il est ennuyeux d'écrire print "\n"

Merci!

Answer 1

Perl6::Say fait exactement cela.

Il émule intelligemment la syntaxe say FILEHANDLE TEXT en tirant parti de indirect method call syntax généralement très ennuyeux de Perl. Il charge IO::Handle en transformant chaque handle de fichier en objet et crée IO::Handle->say. Maintenant say FILEHANDLE TEXT est actuellement FILEHANDLE->say(TEXT).

Il a des mises en garde. De the docs ...

Use it just like print (except that it only supports the indirect 
object syntax when the stream is a bareword). That is, assuming 
the relevant filehandles are open for output, you can use any of these: 

say @data; 
say FH @data; 
FH->say(@data); 
*FH->say(@data); 
(\*FH)->say(@data); 
say $fh, @data; 
$fh->say(@data); 

but not any of these: 

say {FH} @data; 
say {*FH} @data; 
say {\*FH} @data; 
say $fh @data; 
say {$fh} @data; 

MISE À JOUR: Pour ce faire encore plus simple, je viens de téléchargé Say::Compat qui charge soit Perl6 :: Say ou use feature 'say' en fonction de votre version de Perl.

C'est le meilleur que vous êtes susceptible d'obtenir sans jouer avec Devel::Declare.

Answer 2

say ne peut pas être recréé par des sous-marins.

>perl -E"say prototype('CORE::say') // 'Special'" 
Special 

Vous aurez besoin d'un analyseur d'appel et d'un vérificateur d'appel pour y parvenir. Voir Syntax::Feature::Loop pour un exemple.