Korzystanie z druku w perl

„W Perl istnieje wiele opcji w celu wydrukowania różnych rodzajów wartości i zmiennych. Operator drukowania jest jednym z nich. Drukuje wartość, która jest w nią przekazana jako argument. Podwójny cytat („”) jest używany z operatorem drukowania do drukowania dowolnych danych. Można go używać do drukowania wartości ciągów, jednej lub więcej zmiennych, zapisu do zawartości pliku lub odczytu z pliku. W tym samouczku pokazano zastosowania tego operatora wyjściowego w Perl."

Składnia

Różne składni operatora drukowania podano poniżej.

1. drukuj string_value
   Operator drukowania może być używany do wydrukowania dowolnej wartości łańcuchowej za pomocą pojedynczych kwot lub podwójnych kwatów.
2. Drukuj zmienną_1, zmienną_2,…, zmienna_n
   Operator drukowania może być używany do drukowania wartości jednej lub więcej zmiennych z innymi wartościami ciągów lub bez.
3. wydrukuj ciąg_handlera
   Operator drukowania może być używany do odczytania z pliku lub zapisu do pliku.

Wartość zwracana

Ta funkcja zwraca 0 po awarii i 1 na sukcesie.

W następnej części tego samouczka pokazano różne zastosowania operatora drukowania w Perl.

Przykład-1: Wydrukuj proste wiadomości

Utwórz plik PERL z następującym kodem, który wydrukuje dwa proste wiadomości tekstowe z nową linią. Pierwszy operator drukowania służy do drukowania tekstu za pomocą podwójnych cytatów. Drugi operator drukowania służy do drukowania tekstu za pomocą pojedynczych cytatów.

# Wydrukuj wiadomość za pomocą podwójnych cytatów („”)
print („Witamy w Linuxhint \ n”);
# Wydrukuj wiadomość za pomocą pojedynczych cytatów (”)
print („Learn Perl Programming”, „\ n”);

Wyjście:

Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.

Przykład-2: Wydrukuj wiele wartości ciągów

Utwórz plik PERL z następującym kodem, aby wydrukować wiele wartości łańcucha za pomocą przecinka (,) z operatorem drukowania i za pomocą Slash (\) z dwoma operatorami drukowania.

# Wydrukuj wiele wartości łańcuchowych za pomocą separatora
Drukuj („Witamy w Linuxhint.„,” ”,„ Naucz się programowania Perla z Linuxhint.", "\N");
# Wydrukuj wiele ciągów za pomocą dwóch funkcji print ()
Drukuj („Witamy w Linuxhint."); \
Drukuj („Naucz się programowania perla z Linuxhint.", "\N");

Wyjście:

Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.

Przykład-3: Wydrukuj jedną lub więcej zmiennych

Jedną lub więcej zmiennych można wydrukować za pomocą operatora drukowania z podwójnymi cytatami („). Utwórz plik PERL z następującym kodem, który wydrukuje jedną zmienną, dwie zmienne i zmienne z innymi wartościami ciągu. Jedna zmienna została wydrukowana za pomocą podwójnych cytatów („) z operatorem drukowania. Wydrukowano dwie zmienne ciągów bez użycia cytatów z operatorem drukowania. Jeden ciąg i jedna wartość liczbowa zostały wydrukowane z innymi wartościami ciągów za pomocą operatora drukowania. Tutaj BackSlash (\) był z „$” do wydrukowania „$” w wyjściu, ponieważ ten symbol służy do zadeklarowania zmiennej w perl.

# Zdefiniuj zmienną stringową
$ string1 = „hello”;
# Wydrukuj zmienną
wydrukuj „$ string1 \ n”;
# Zdefiniuj inną zmienną string
$ string2 = „świat”;
# Wydrukuj dwie zmienne łańcuchowe
wydrukuj $ string1, $ string2, „\ n”;
# Zdefiniuj inną wartość ciągu
$ book_name = "Perl Programming";
# Zdefiniuj wartość liczbową
$ cena = 35;
# Wydrukuj zmienne z innymi ciągami za pomocą przecinka ()
Wydrukuj „The Cena of”, $ book_name, „Książka to \ $”, $ cena, ”.\N";
# Wydrukuj zmienne z innymi ciągami za pomocą DOT (.)
Wydrukuj „Cena”.$ book_name.„Książka to \ $”.Cena $.".\N";

Wyjście:

Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.

Przykład-4: Wydrukuj obliczenia arytmetyczne

Wynik dowolnego obliczeń arytmetycznych można wydrukować bezpośrednio za pomocą operatora drukowania. Utwórz plik perla z następującym kodem, który wydrukuje mnożenie dwóch zmiennych numerycznych i wydrukuj wynik wyrażenia arytmetycznego.

# Zdefiniuj dwie wartości liczbowe
$ n1 = 45;
$ n2 = 5;
# Wydrukuj wynik mnożenia zmiennych
Wydrukuj „Wynik mnożenia jest”.$ n1*$ n2."\N";
# Wydrukuj obliczony wynik wyrażenia matematycznego
Wydrukuj „wynik wyrażenia =”, 2+6*7, „\ n”;

Wyjście:

Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu. Mnożenie dwóch zmiennych, które mają wartości 45 i 5 wynosi 225. Wynik ekspresji arytmetycznej, 2+6*7, wynosi 44.

Przykład-5: napisz do pliku

Utwórz plik PERL z następującym kodem, który otworzy plik do pisania i dodaj wiersz tekstu za pomocą operatora drukowania. Plik tekstowy o nazwie Temp.tekst został otwarty za pisanie za pomocą otwarty Funkcja w kodzie. Jeśli plik istniał wcześniej, treść pliku zostanie zastąpiona przez nową treść. Plik zostanie zamknięty za pomocą funkcji zamknięcia po zakończeniu operacji zapisu.

# Otwórz obsługę plików do zapisywania w pliku
Otwórz fh, "> temp.tekst"
# Wydrukuj komunikat o błędzie
lub umrzeć „Nie można utworzyć pliku.";
# Zapisz wartość ciągu w pliku
wydrukuj fh "Dodaj tekst do pliku \ n";
# Zamknij plik
Zamknij FH
# Wydrukuj komunikat o błędzie
lub umrzeć „Nie można zamknąć pliku.\N";

Wyjście:

Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu. Polecenie „CAT” zostało wykonane, aby sprawdzić, czy plik jest utworzony poprawnie, czy nie.

Przykład-6: odczyt z pliku

Utwórz plik PERL z następującym kodem, który otworzy plik do odczytu, iteruj zawartość pliku za pomocą pętli i wydrukuj każdą wiersz pliku za pomocą operatora drukowania. Plik tekstowy o nazwie mój plik.tekst został otwarty do czytania za pomocą otwarty Funkcja w kodzie. Jeśli plik nie istnieje, komunikat o błędzie zostanie wydrukowany. Plik zostanie zamknięty za pomocą zamknąć Funkcja po zakończeniu operacji odczytu.

# Otwórz obsługę plików do zapisywania w pliku
Otwórz FH ”< myfile.txt"
# Wydrukuj komunikat o błędzie
lub umrzeć „Nie można otworzyć pliku.";
# Czytanie pliku
chwila()

# Wydrukuj linię
wydrukuj $ _;

# Zamknij plik
Zamknij FH
# Wydrukuj komunikat o błędzie
lub umrzeć „Nie można zamknąć pliku.\N";

Wyjście:

Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu. Polecenie „CAT” zostało wykonane w celu sprawdzenia zawartości pliku.

Wniosek

Sposób na użycie wydrukować Operator w Perl do drukowania wartości lub zmiennych łańcuchowych, odczytu z pliku i zapisywania do pliku został pokazany w tym samouczku za pomocą wielu przykładów.