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

En Perl, la plupart de mes printdéclarations prennent la forme

print "hello." . "\n";

Existe-t-il un moyen efficace d'éviter de laisser traîner tous les "\ n" embêtants?

Je sais que je pourrais créer une nouvelle fonction telle que myprintcelle-ci ajoute automatiquement \ n, mais ce serait bien si je pouvais remplacer l'existant print.

Perl 6 a la sayfonction qui ajoute automatiquement \n.

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

use feature qw(say);

au début de votre programme. Ou vous pouvez utiliser Modern :: Perl pour obtenir ceci et d'autres fonctionnalités.

Voir la fonctionnalité perldoc pour plus de détails.

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

#!/usr/bin/perl -l

$text = "hello";

print $text;
print $text;

Production:

hello
hello

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 un peu de magie quand son premier argument est un handle, mais pour imprimer vers STDOUT:

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

say 'hello';

La façon dont vous rédigez 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. Cela suffit.

print "hello.\n";

Cette réalisation facilitera probablement votre codage en général.

En plus d'utiliser use feature "say"ou use 5.10.0ou use Modern::Perlpour obtenir la sayfonctionnalité intégrée, je vais pimp perl5i qui active par défaut de nombreuses fonctionnalités sensibles de Perl 5.

Peut-être voulez-vous changer votre séparateur d'enregistrement de sortie en 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 parle de capacité plutôt que d'opportunité. Je ne considère pas l'ajout de "\ n" à la fin des lignes comme une corvée "embêtante", mais si quelqu'un veut vraiment les éviter, c'est une solution. Si je devais maintenir un peu de code qui utilise cette technique, je le refactoriserais probablement pronto.

Voici ce que j'ai trouvé sur https://perldoc.perl.org/perlvar.html :

$ \ Le séparateur d'enregistrement de sortie pour l'opérateur d'impression. Si elle est définie, cette valeur est imprimée après le dernier des arguments d'impression. La valeur par défaut est undef.

Vous ne pouvez pas appeler output_record_separator () sur un handle, uniquement en tant que méthode statique. Voir IO :: Handle.

Mnémonique: vous définissez $ \ au lieu d'ajouter "\ n" à la fin de l'impression. De plus, c'est comme $ /, mais c'est ce que vous récupérez de Perl.

exemple:

$\ = "\n";
print "a newline will be appended to the end of this line automatically";

En Perl 6, il y a, la sayfonction

Si vous êtes bloqué avec la version antérieure à 5.10, les solutions fournies ci-dessus ne répliqueront pas complètement la sayfonction. Par exemple

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

Ne fonctionnera pas avec des invocations telles que

say for @arr;

ou

for (@arr) {
    say;
}

... parce que la fonction ci-dessus n'agit pas sur le $_like global implicite printet la sayfonction réelle .

Pour répliquer plus fidèlement le perl 5.10+, sayvous voulez cette fonction

sub say {
    if (@_) { print @_, "\n"; }
    else { print $_, "\n"; }
}

Qui agit maintenant comme ça

my @arr = qw( alpha beta gamma );
say @arr;
# OUTPUT
# alphabetagamma
#
say for @arr;
# OUTPUT
# alpha
# beta
# gamma
#

L' sayintégré dans perl6 se comporte un peu différemment. L'appeler avec say @arrou @arr.sayne concaténera pas simplement les éléments du tableau, mais les affichera à la place séparés par le séparateur de liste. Pour répliquer cela dans perl5, vous feriez

sub say {
    if (@_) { print join($", @_) . "\n"; }
    else { print $_ . "\n"; }
}

$"est la variable de séparation de liste globale, ou si vous utilisez, English.pmalors est est$LIST_SEPARATOR

Il agira maintenant plus comme perl6, comme ça

say @arr;
# OUTPUT
# alpha beta gamma
#