Як друк Perl може додати новий рядок за замовчуванням?

У Perl більшість моїх printзаяв приймають форму

print "hello." . "\n";

Чи є приємний спосіб уникнути того, щоб усі дотепні "\ n" лежали навколо?

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

Perl 6 має sayфункцію, яка автоматично додається \n.

Ви також можете використовувати sayв Perl 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" в кінці рядків є "прискіпливою" рутиною, але якщо хтось дійсно хоче їх уникнути, це один із способів. Якби мені довелося підтримувати трохи коду, який використовує цю техніку, я, мабуть, переробляв його на pronto.

Ось що я знайшов на https://perldoc.perl.org/perlvar.html :

$ \ Розділювач виводу запису для оператора друку. Якщо визначено, це значення друкується після останнього аргументу друку. За замовчуванням значення undef.

Ви не можете викликати output_record_separator () на дескрипторі, лише як статичний метод. Див. IO :: Ручка.

Мнемоніка: ви встановлюєте $ \ замість того, щоб додавати "\ 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
#