Как Perl print может по умолчанию добавлять новую строку?

В Perl большинство моих printутверждений имеют форму

print "hello." . "\n";

Есть ли хороший способ избежать того, чтобы все надоедливые "\ n" валялись?

Я знаю, что могу создать новую функцию, например, myprintкоторая автоматически добавляет \ n, но было бы неплохо, если бы я мог переопределить существующую print.

Perl 6 имеет sayфункцию, которая автоматически добавляет \n.

Вы также можете использовать sayPerl 5.10 или 5.12, если добавите

use feature qw(say);

в начало вашей программы. Или вы можете использовать Modern :: Perl, чтобы получить эту и другие возможности.

Подробнее см. Функцию perldoc .

Вы можете использовать -lопцию в заголовке she-bang:

#!/usr/bin/perl -l

$text = "hello";

print $text;
print $text;

Выход:

hello
hello

Если Perl 5.10+ не подходит, вот быстрое и грязное приближение. Это не совсем то же самое, поскольку say имеет некоторую магию, когда его первый аргумент является дескриптором, но для печати в STDOUT:

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

say 'hello';

Вы пишете оператор печати излишне многословно. Нет необходимости разделять новую строку на отдельную строку. Этого достаточно.

print "hello.\n";

Эта реализация, вероятно, в целом упростит вам кодирование.

В дополнение к использованию use feature "say"или use 5.10.0или use Modern::Perlдля получения встроенной sayфункции, я собираюсь улучшить perl5i, который по умолчанию включает множество разумных отсутствующих функций Perl 5.

Возможно, вы хотите изменить разделитель выходной записи на перевод строки с помощью:

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

Обновление: мой ответ говорит о возможностях, а не о целесообразности. Я не считаю добавление "\ n" в конце строк "досадной" рутиной, но если кто-то действительно хочет их избежать, это один из способов. Если бы мне пришлось поддерживать небольшой код, использующий эту технику, я бы, вероятно, быстро реорганизовал его.

Вот что я нашел на https://perldoc.perl.org/perlvar.html :

$ \ Разделитель выходной записи для оператора печати. Если определено, это значение печатается после последнего аргумента print. По умолчанию undef.

Вы не можете вызвать output_record_separator () для дескриптора, только как статический метод. См. IO :: Handle.

Мнемоника: вы устанавливаете $ \ вместо добавления "\ n" в конце печати. Кроме того, это то же самое, что и $ /, но это то, что вы получаете "обратно" от Perl.

пример:

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

В Perl 6 есть sayфункция

Если вы застряли с версией до 5.10, то приведенные выше решения не будут полностью воспроизводить эту sayфункцию. Например

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

Не будет работать с такими вызовами, как

say for @arr;

или

for (@arr) {
    say;
}

... потому что вышеупомянутая функция не действует на неявную глобальную $_подобную printи реальную sayфункцию.

Чтобы более точно воспроизвести Perl 5.10+, sayвам нужна эта функция

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

Которая сейчас действует так

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

sayВстроенный в Perl6 ведет себя немного по- другому. Вызов его с say @arrили @arr.sayне просто объединяет элементы массива, а вместо этого печатает их, разделенные разделителем списка. Чтобы воспроизвести это в perl5, вы должны сделать это

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

$"- это глобальная переменная-разделитель списков, или, если вы используете, English.pmто это$LIST_SEPARATOR

Теперь он будет больше похож на perl6, вот так

say @arr;
# OUTPUT
# alpha beta gamma
#