Como a impressão do Perl pode adicionar uma nova linha por padrão?

Em Perl, a maioria das minhas printdeclarações assume a forma

print "hello." . "\n";

Existe uma boa maneira de evitar manter todos os "\ n" incômodos espalhados por aí?

Eu sei que poderia fazer uma nova função como a myprintque adiciona automaticamente \ n, mas seria bom se eu pudesse substituir a existente print.

Perl 6 tem a sayfunção que adiciona automaticamente \n.

Você também pode usar sayem Perl 5.10 ou 5.12 se adicionar

use feature qw(say);

para o início do seu programa. Ou você pode usar Modern :: Perl para obter este e outros recursos.

Veja o recurso perldoc para mais detalhes.

Você pode usar a -lopção no cabeçalho she-bang:

#!/usr/bin/perl -l

$text = "hello";

print $text;
print $text;

Resultado:

hello
hello

Se Perl 5.10+ não for uma opção, aqui está uma aproximação rápida e suja. Não é exatamente o mesmo, já que digamos que tem alguma mágica quando seu primeiro argumento é um identificador, mas para imprimir em STDOUT:

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

say 'hello';

A maneira como você está escrevendo sua declaração de impressão é desnecessariamente prolixa. Não há necessidade de separar a nova linha em sua própria string. Isso é suficiente.

print "hello.\n";

Essa constatação provavelmente tornará sua codificação mais fácil em geral.

Além de usar use feature "say"ou use 5.10.0ou use Modern::Perlpara obter o sayrecurso embutido , irei manipular o perl5i, que ativa muitos recursos sensíveis ausentes do Perl 5 por padrão.

Talvez você queira alterar o separador de registro de saída para alimentação de linha com:

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

Atualização: minha resposta fala mais sobre capacidade do que sobre conveniência. Não considero que adicionar "\ n" no final das linhas seja uma tarefa "incômoda", mas se alguém realmente quiser evitá-los, esta é uma maneira. Se eu tivesse que manter um pouco de código que usa essa técnica, provavelmente o refatoraria imediatamente.

Aqui está o que encontrei em https://perldoc.perl.org/perlvar.html :

$ \ O separador de registro de saída para o operador de impressão. Se definido, este valor é impresso após o último dos argumentos de impressão. O padrão é undef.

Você não pode chamar output_record_separator () em um identificador, apenas como um método estático. Consulte IO :: Handle.

Mnemônico: você define $ \ em vez de adicionar "\ n" no final da impressão. Além disso, é como $ /, mas é o que você recebe "de volta" do Perl.

exemplo:

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

Em Perl 6 existe a sayfunção

Se você estiver preso ao pré-5.10, as soluções fornecidas acima não replicarão totalmente a sayfunção. Por exemplo

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

Não funcionará com invocações como

say for @arr;

ou

for (@arr) {
    say;
}

... porque a função acima não atua na função global implícita $_like printe real say.

Para replicar mais de perto o perl 5.10+ sayvocê quer esta função

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

Que agora age assim

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

O sayintegrado em perl6 se comporta de maneira um pouco diferente. Invocá-lo com say @arrou @arr.saynão apenas concatenará os itens do array, mas os imprimirá separados pelo separador de lista. Para replicar isso em perl5 você faria isso

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

$"é a variável separadora de lista global ou, se você estiver usando English.pm, é é$LIST_SEPARATOR

Agora vai agir mais como perl6,

say @arr;
# OUTPUT
# alpha beta gamma
#