Wie kann Perls Druck standardmäßig eine neue Zeile hinzufügen?

In Perl haben die meisten meiner printAussagen die Form

print "hello." . "\n";

Gibt es eine gute Möglichkeit, um zu vermeiden, dass all die nervigen "\ n" herumliegen?

Ich weiß, dass ich eine neue Funktion wie myprintdiese erstellen könnte, die automatisch angehängt wird \ n, aber es wäre schön, wenn ich die vorhandene überschreiben könnte print.

Perl 6 hat die sayFunktion, die automatisch angehängt wird \n.

Sie können auch sayPerl 5.10 oder 5.12 verwenden, wenn Sie hinzufügen

use feature qw(say);

zum Anfang Ihres Programms. Oder Sie können Modern :: Perl verwenden , um diese und andere Funktionen zu erhalten.

Weitere Informationen finden Sie unter Perldoc-Funktion .

Sie können die -lOption in der She-Bang-Kopfzeile verwenden:

#!/usr/bin/perl -l

$text = "hello";

print $text;
print $text;

Ausgabe:

hello
hello

Wenn Perl 5.10+ keine Option ist, finden Sie hier eine schnelle und schmutzige Annäherung. Es ist nicht genau das gleiche, da say etwas Magie hat, wenn sein erstes Argument ein Handle ist, aber zum Drucken an STDOUT:

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

say 'hello';

Die Art und Weise, wie Sie Ihre Druckanweisung schreiben, ist unnötig ausführlich. Es ist nicht erforderlich, die Newline in eine eigene Zeichenfolge zu unterteilen. Das ist ausreichend.

print "hello.\n";

Diese Erkenntnis wird wahrscheinlich Ihre Codierung im Allgemeinen erleichtern.

Zusätzlich zur Verwendung use feature "say"oder use 5.10.0oder use Modern::Perlzum Erhalt der integrierten sayFunktion werde ich perl5i pimpen, wodurch standardmäßig viele sinnvolle fehlende Perl 5-Funktionen aktiviert werden.

Vielleicht möchten Sie Ihr Trennzeichen für Ausgabedatensätze in Zeilenvorschub ändern mit:

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

Update: Meine Antwort spricht eher für Fähigkeiten als für Ratsamkeit. Ich halte das Hinzufügen von "\ n" am Ende von Zeilen nicht für eine "lästige" Aufgabe, aber wenn jemand sie wirklich vermeiden möchte, ist dies eine Möglichkeit. Wenn ich ein bisschen Code pflegen müsste, der diese Technik verwendet, würde ich ihn wahrscheinlich sofort umgestalten.

Folgendes habe ich unter https://perldoc.perl.org/perlvar.html gefunden :

$ \ Das Trennzeichen für den Ausgabedatensatz für den Druckoperator. Wenn definiert, wird dieser Wert nach dem letzten Argument des Drucks gedruckt. Standard ist undef.

Sie können output_record_separator () für ein Handle nur als statische Methode aufrufen. Siehe IO :: Handle.

Mnemonik: Sie setzen $ \, anstatt am Ende des Drucks "\ n" hinzuzufügen. Es ist auch wie $ /, aber es ist das, was Sie von Perl "zurück" bekommen.

Beispiel:

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

In Perl 6 gibt es die sayFunktion

Wenn Sie mit Pre-5.10 nicht weiterkommen, wird die sayFunktion durch die oben angegebenen Lösungen nicht vollständig repliziert . Beispielsweise

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

Funktioniert nicht mit Aufrufen wie

say for @arr;

oder

for (@arr) {
    say;
}

... weil die obige Funktion nicht auf das implizite globale $_Like printund die reale sayFunktion einwirkt.

Um das Perl 5.10+ genauer zu replizieren, möchten saySie diese Funktion

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

Was jetzt so wirkt

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

Das sayeingebaute perl6 verhält sich etwas anders. Wenn Sie es mit say @arroder @arr.sayohne Verkettung der Array-Elemente aufrufen, werden sie stattdessen getrennt mit dem Listentrennzeichen gedruckt. Um dies in perl5 zu replizieren, würden Sie dies tun

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

$"ist die globale Listentrennvariable, oder wenn Sie verwenden, English.pmist es$LIST_SEPARATOR

Es wird sich jetzt eher wie perl6 verhalten

say @arr;
# OUTPUT
# alpha beta gamma
#