Comment l'impression de Perl peut-elle ajouter une nouvelle ligne par défaut ?

Question

En Perl, la plupart de mes print Les déclarations prennent la forme

print "hello." . "\n";

Existe-t-il un moyen agréable d'éviter de garder tous les embêtants " \n "qui traînent ?

Je sais que je pourrais créer une nouvelle fonction telle que myprint qui ajoute automatiquement \n mais ce serait bien si je pouvais remplacer le système existant par un autre. print .

Answer 1

Perl 6 dispose de l'option say qui ajoute automatiquement \n .

Vous pouvez également utiliser say dans Perl 5.10 ou 5.12 si vous ajoutez

use feature qw(say);

au début de votre programme. Vous pouvez aussi utiliser Modern::Perl pour obtenir cette fonctionnalité et d'autres.

Voir Fonctionnalité perldoc pour plus de détails.

Answer 2

Vous pouvez utiliser le -l dans l'en-tête she-bang :

#!/usr/bin/perl -l

$text = "hello";

print $text;
print $text;

Salida:

hello
hello

Answer 3

Si Perl 5.10+ n'est pas une option, voici une approximation rapide et sale. Ce n'est pas exactement la même chose, puisque say a une certaine magie lorsque son premier argument est un handle, mais pour l'impression vers STDOUT :

sub say {print @_, "\n"}

say 'hello';

Answer 4

La façon dont vous écrivez votre déclaration d'impression est inutilement verbeuse. Il n'est pas nécessaire de séparer la nouvelle ligne dans sa propre chaîne. C'est suffisant.

print "hello.\n";

Cette prise de conscience facilitera probablement votre codage en général.

En plus d'utiliser use feature "say" o use 5.10.0 o use Modern::Perl pour obtenir la fonction intégrée say fonctionnalité, je vais faire du maquettage perl5i qui active par défaut un grand nombre de fonctionnalités manquantes de Perl 5.

Answer 5

Vous voulez peut-être changer votre séparateur d'enregistrement de sortie pour un saut de ligne avec :

local $\ = "\n";

$ perl -e 'print q{hello};print q{goodbye}' | od -c
0000000    h   e   l   l   o   g   o   o   d   b   y   e                
0000014
$ perl -e '$\ = qq{\n}; print q{hello};print q{goodbye}' | od -c
0000000    h   e   l   l   o  \n   g   o   o   d   b   y   e  \n        
0000016

Mise à jour : ma réponse porte sur la capacité plutôt que sur l'opportunité. Je ne considère pas qu'ajouter " \n " à la fin des lignes pour être une corvée " pesante ", mais si quelqu'un veut vraiment les éviter, c'est un moyen. Si je devais maintenir un bout de code qui utilise cette technique, je le remanierais probablement pronto.