¿Cómo puede la impresión de Perl agregar una nueva línea por defecto?

En Perl, la mayoría de mis printdeclaraciones toman la forma

print "hello." . "\n";

¿Existe una buena manera de evitar tener todos los molestos "\ n" por ahí?

Sé que podría crear una nueva función como la myprintque agrega automáticamente \ n, pero sería bueno si pudiera anular la existente print.

Perl 6 tiene la sayfunción que se agrega automáticamente \n.

También puede usar sayen Perl 5.10 o 5.12 si agrega

use feature qw(say);

al comienzo de su programa. O puede usar Modern :: Perl para obtener esta y otras características.

Consulte la función de perldoc para obtener más detalles.

Puede usar la -lopción en el encabezado she-bang:

#!/usr/bin/perl -l

$text = "hello";

print $text;
print $text;

Salida:

hello
hello

Si Perl 5.10+ no es una opción, aquí hay una aproximación rápida y sucia. No es exactamente lo mismo, ya que say tiene algo de magia cuando su primer argumento es un identificador, pero para imprimir en STDOUT:

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

say 'hello';

La forma en que está escribiendo su declaración impresa es innecesariamente detallada. No es necesario separar la nueva línea en su propia cadena. Esto es suficiente.

print "hello.\n";

Esta realización probablemente facilitará la codificación en general.

Además de usar use feature "say"o use 5.10.0o use Modern::Perlpara obtener la sayfunción incorporada, voy a utilizar perl5i, que activa muchas funciones sensibles de Perl 5 que faltan por defecto.

Tal vez desee cambiar su separador de registros de salida para avanzar de línea con:

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

Actualización: mi respuesta habla de capacidad más que de conveniencia. No considero que agregar "\ n" al final de las líneas sea una tarea "molesta", pero si alguien realmente quiere evitarlos, esta es una forma. Si tuviera que mantener un poco de código que usa esta técnica, probablemente lo refactorizaría pronto.

Esto es lo que encontré en https://perldoc.perl.org/perlvar.html :

$ \ El separador de registros de salida para el operador de impresión. Si se define, este valor se imprime después del último de los argumentos de print. El valor predeterminado es indefinido.

No puede llamar a output_record_separator () en un identificador, solo como un método estático. Consulte IO :: Handle.

Mnemotécnico: establece $ \ en lugar de agregar "\ n" al final de la impresión. Además, es como $ /, pero es lo que "recuperas" de Perl.

ejemplo:

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

En Perl 6 existe, la sayfunción

Si está atascado con la versión anterior a 5.10, las soluciones proporcionadas anteriormente no replicarán completamente la sayfunción. Por ejemplo

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

No funcionará con invocaciones como

say for @arr;

o

for (@arr) {
    say;
}

... porque la función anterior no actúa sobre el me $_gusta global implícito printy la sayfunción real .

Para replicar más de cerca el perl 5.10+ say, desea esta función

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

Que ahora actúa así

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

La función sayincorporada en perl6 se comporta un poco diferente. Invocándolo consay @arr o @arr.sayno solo concatenará los elementos de la matriz, sino que los imprimirá separados con el separador de lista. Para replicar esto en perl5 deberías hacer esto

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

$"es la variable de separador de lista global, o si está usando English.pmentonces es es$LIST_SEPARATOR

Ahora actuará más como perl6, así

say @arr;
# OUTPUT
# alpha beta gamma
#