Verwendung von Druck in Perl

„In Perl gibt es viele Optionen, um verschiedene Arten von Werten und Variablen zu drucken. Der Druckoperator ist einer von ihnen. Es druckt den Wert, der als Argument in ihn übergeben wird. Das Doppelzitat („“) wird mit dem Druckbetreiber zum Drucken von Daten verwendet. Es kann verwendet werden, um Zeichenfolgewerte, eine oder mehrere Variablen zu drucken, in den Dateiinhalt zu schreiben oder aus der Datei zu lesen. Die Verwendung dieses Ausgangsbetreibers in Perl wurde in diesem Tutorial gezeigt.”

Syntax

Verschiedene Syntaxen des Druckbetreibers sind unten angegeben.

1. Drucken String_Value
   Der Druckoperator kann verwendet werden, um einen String-Wert mit einzelnen Zögern oder Doppelquoten zu drucken.
2. Drucken Sie variable_1, variable_2,…, variable_n
   Der Druckoperator kann verwendet werden, um die Werte einer oder mehrerer Variablen mit oder ohne andere Zeichenfolgewerte zu drucken.
3. Druckdatei_handler String
   Der Druckbetreiber kann verwendet werden, um aus der Datei zu lesen oder in die Datei zu schreiben.

Rückgabewert

Diese Funktion gibt 0 beim Misserfolg und 1 zum Erfolg zurück.

Im nächsten Teil dieses Tutorials wurden verschiedene Verwendungen des Druckbetreibers in Perl gezeigt.

Beispiel 1: Drucken einfache Nachrichten

Erstellen Sie eine Perl -Datei mit dem folgenden Code, in dem zwei einfache Textnachrichten mit der Newline drucken. Der erste Druckoperator wird verwendet, um den Text mit doppelten Zitaten zu drucken. Der zweite Druckoperator wird verwendet, um den Text mit einzelnen Zitaten zu drucken.

# Drucken Sie eine Nachricht mit doppelten Zitaten ("")
print ("Willkommen bei LinuxHint \ n");
# Drucken Sie eine Nachricht mit einzelnen Zitaten (")
print ('lern perl programmieren', "\ n");

Ausgang:

Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Beispiel 2: Drucken Sie mehrere Zeichenfolgewerte

Erstellen Sie eine Perl -Datei mit dem folgenden Code zum Drucken mehrerer Zeichenfolgewerte, indem Sie Komma (,) mit einem Druckbetreiber und mit zwei Druckbetreibern mit Rückwärtsschräsen (\) verwenden.

# Mehrere Zeichenfolgewerte mit dem Trennzeichen drucken
Print ("Willkommen bei LinuxHint."," "," Lernen Sie Perl -Programmierung aus LinuxHint.", "\N");
# Mehrere Zeichenfolgen mit zwei Print () -Funktionen drucken
Print ("Willkommen bei LinuxHint."); \
Print ("Lernen Sie Perl -Programmierung von LinuxHint lernen.", "\N");

Ausgang:

Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Beispiel-3: Drucken Sie eine oder mehrere Variablen aus

Eine oder mehrere Variablen können mit dem Druckoperator mit den Doppelzitaten (") gedruckt werden. Erstellen Sie eine Perl -Datei mit dem folgenden Code, mit dem eine einzelne Variable, zwei Variablen und die Variablen mit anderen Zeichenfolgenwerten drucken können. Eine einzelne Variable wurde unter Verwendung von Doppelzitaten (") mit dem Druckoperator gedruckt. Zwei String -Variablen wurden gedruckt, ohne dass Zitate mit dem Druckbetreiber verwendet werden. Eine Zeichenfolge und ein numerischer Wert wurden mit anderen Zeichenfolgenwerten unter Verwendung des Druckoperators gedruckt. Hier war Backslash (\) mit dem „$“ zum Drucken von „$“ in der Ausgabe, da dieses Symbol verwendet wird, um die Variable in Perl zu deklarieren.

# Definieren Sie eine String -Variable
$ string1 = 'Hallo';
# Drucken Sie die Variable
Druck "$ string1 \ n";
# Definieren Sie eine andere String -Variable
$ string2 = 'Welt';
# Zwei String -Variablen drucken
Druck $ string1, $ string2, "\ n";
# Definieren Sie einen anderen String -Wert
$ book_name = "Perl Programmierung";
# Einen numerischen Wert definieren
$ preis = 35;
# Drucken Sie die Variablen mit anderen Zeichenfolgen mit Comma (,) aus
Drucken Sie "The Price of", $ book_name, "Buch is \ $", $ preis, ".\N";
# Drucken Sie die Variablen mit anderen Zeichenfolgen mit DOT (DOT (.)
Drucken Sie "den Preis von" drucken.$ book_name."Buch ist \ $".$ Preis.".\N";

Ausgang:

Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Beispiel-4: Drucken Sie die arithmetische Berechnung aus

Das Ergebnis einer arithmetischen Berechnung kann direkt mit dem Druckbetreiber gedruckt werden. Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Multiplikation von zwei numerischen Variablen druckt und das Ergebnis eines arithmetischen Ausdrucks ausdrucken.

# Zwei numerische Werte definieren
$ N1 = 45;
$ n2 = 5;
# Drucken Sie das Multiplikationsergebnis der Variablen
Druck "Das Ergebnis der Multiplikation ist".$ n1*$ n2."\N";
# Drucken Sie das berechnete Ergebnis des mathematischen Ausdrucks
Druck "das Ergebnis des Ausdrucks =", 2+6*7, "\ n";

Ausgang:

Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt. Die Multiplikation von zwei Variablen mit den Werten 45 und 5 beträgt 225. Das Ergebnis des arithmetischen Ausdrucks, 2+6*7, beträgt 44.

Beispiel-5: Schreiben Sie in eine Datei

Erstellen Sie eine Perl -Datei mit dem folgenden Code, in dem eine Datei zum Schreiben geöffnet wird, und fügen Sie eine Textzeile mit dem Druckbetreiber hinzu. Eine Textdatei mit dem Namen Temperatur.txt wurde für das Schreiben mit einem geöffnet offen Funktion im Code. Wenn die Datei zuvor vorhanden ist, wird der Inhalt der Datei durch den neuen Inhalt überschrieben. Die Datei wird nach Abschluss des Schreibvorgangs mit der Schließfunktion geschlossen.

# Dateihandler öffnen, um in eine Datei zu schreiben
Öffnen Sie FH, "> Temperatur.txt"
# Druckfehlermeldung
oder sterben "Die Datei kann nicht erstellen.";
# Schreiben Sie den Zeichenfolgenwert in die Datei
FH drucken "Text in die Datei \ n" hinzufügen;
# Schließen Sie die Datei
Schließen Sie FH
# Druckfehlermeldung
oder sterben "nicht in der Lage, die Datei zu schließen.\N";

Ausgang:

Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt. Der Befehl „Katze“ wurde ausgeführt, um zu überprüfen, ob die Datei ordnungsgemäß erstellt wurde oder nicht.

Beispiel-6: Lesen Sie aus einer Datei

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der eine Datei zum Lesen öffnet, den Inhalt der Datei mithilfe einer Schleife durchführen und jede Zeile der Datei mithilfe des Druckbetreibers ausdrucken. Eine Textdatei mit dem Namen meine Datei.txt wurde zum Lesen geöffnet, indem es die benutzte offen Funktion im Code. Wenn die Datei nicht vorhanden ist, wird eine Fehlermeldung gedruckt. Die Datei wird mit der Verwendung der Datei geschlossen schließen Funktion nach Abschluss des Lesevorgangs.

# Dateihandler öffnen, um in eine Datei zu schreiben
Öffnen Sie FH, "< myfile.txt"
# Druckfehlermeldung
oder sterben "die Datei nicht öffnen kann.";
# Lesen Sie die Datei
während()

# Drucken Sie die Linie
drucken $ _;

# Schließen Sie die Datei
Schließen Sie FH
# Druckfehlermeldung
oder sterben "nicht in der Lage, die Datei zu schließen.\N";

Ausgang:

Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt. Der Befehl „Katze“ wurde ausgeführt, um den Inhalt der Datei zu überprüfen.

Abschluss

Die Art, die zu verwenden drucken Der Bediener in Perl zum Drucken einzelner oder mehrerer Zeichenfolgewerte oder -variablen, dem Lesen einer Datei und dem Schreiben in eine Datei wurde in diesem Tutorial unter Verwendung mehrerer Beispiele angezeigt.