Perl'in baskısı varsayılan olarak nasıl yeni satır ekleyebilir?

Perl'de printifadelerimin çoğu formu alıyor

print "hello." . "\n";

Tüm sinir bozucu "\ n" ların ortalıkta dolaşmasını önlemenin güzel bir yolu var mı?

myprintOtomatik olarak eklenen \ n gibi yeni bir işlev yapabileceğimi biliyorum , ancak mevcut olanı geçersiz kılabilirsem iyi olur print.

Perl 6, sayotomatik olarak eklenen bir işleve sahiptir \n.

sayEklerseniz Perl 5.10 veya 5.12'de de kullanabilirsiniz .

use feature qw(say);

programınızın başlangıcına. Veya bunu ve diğer özellikleri almak için Modern :: Perl'i kullanabilirsiniz .

Daha fazla ayrıntı için perldoc özelliğine bakın.

-lShe-bang başlığındaki seçeneği kullanabilirsiniz :

#!/usr/bin/perl -l

$text = "hello";

print $text;
print $text;

Çıktı:

hello
hello

Perl 5.10+ bir seçenek değilse, işte hızlı ve kirli bir yaklaşım. Tam olarak aynı değildir, çünkü ilk argümanı bir tutamaç olduğunda biraz sihir vardır, ancak STDOUT'a yazdırmak için:

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

say 'hello';

Print ifadenizi yazma şekliniz gereksiz yere ayrıntılıdır. Satırsonunu kendi dizesine ayırmaya gerek yoktur. Bu yeterlidir.

print "hello.\n";

Bu farkındalık muhtemelen kodlamanızı genel olarak kolaylaştıracaktır.

Kullanmanın yanı sıra use feature "say"ya use 5.10.0ya use Modern::Perlinşa almak için sayözelliği, ben pezevenk gidiyorum perl5i varsayılan olarak mantıklı eksik Perl 5 özellikleri bir sürü hangi dönüşler.

Belki çıktı kaydı ayırıcınızı aşağıdakilerle satır beslemeye değiştirmek istersiniz:

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

Güncelleme: Cevabım tavsiye edilebilirlikten çok kabiliyetten bahsediyor. Satırların sonuna "\ n" eklemeyi "sinir bozucu" bir angarya olarak görmüyorum, ancak biri gerçekten onlardan kaçınmak istiyorsa, bu bir yoldur. Bu tekniği kullanan bir parça kodu korumam gerekse, muhtemelen onu önceden yeniden düzenlerdim.

İşte https://perldoc.perl.org/perlvar.html adresinde bulduklarım :

$ \ Yazdırma operatörü için çıktı kaydı ayırıcısı. Tanımlanırsa, bu değer yazdırmanın son bağımsız değişkenlerinden sonra yazdırılır. Varsayılan tanımsızdır.

Bir tutamaç üzerinde output_record_separator () 'u yalnızca statik bir yöntem olarak çağıramazsınız. Bkz. IO :: Handle.

Anımsatıcı: Baskının sonuna "\ n" eklemek yerine $ \ ayarlarsınız. Ayrıca, aynı $ / gibi, ama Perl'den "geri" aldığınız şey bu.

misal:

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

Perl 6'da sayfonksiyon var

5.10 öncesi ile takıldıysanız, yukarıda sağlanan çözümler sayişlevi tam olarak kopyalamayacaktır . Örneğin

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

Gibi çağrılarla çalışmayacak

say for @arr;

veya

for (@arr) {
    say;
}

... çünkü yukarıdaki işlev örtük küresel $_benzeri printve gerçek sayişlev üzerinde hareket etmez .

Perl 5.10+ 'yi daha yakından kopyalamak için saybu işlevi istiyorsunuz

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

Şimdi böyle davranan

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

sayPerl6 içinde yerleşik biraz farklı davranış sergileyebilir. Onu çağırmak say @arrveya @arr.saysadece dizi öğelerini birleştirmekle kalmaz, bunun yerine onları liste ayırıcıyla ayrı olarak yazdırır. Bunu perl5'te kopyalamak için bunu yaparsınız

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

$"genel liste ayırıcı değişkeni veya kullanıyorsanız English.pm,$LIST_SEPARATOR

Şimdi daha çok perl6 gibi davranacak.

say @arr;
# OUTPUT
# alpha beta gamma
#