Bruk av utskrift i perl

“Det finnes mange alternativer i Perl for å skrive ut forskjellige typer verdier og variabler. Utskriftsoperatøren er en av dem. Den skriver ut verdien som blir gitt inn i den som et argument. Det doble sitatet (““) brukes med utskriftsoperatøren til å skrive ut data. Den kan brukes til å skrive ut strengverdier, en eller flere variabler, skrive inn filinnholdet eller lese fra filen. Bruken av denne utgangsoperatøren i Perl er vist i denne opplæringen.”

Syntaks

Ulike syntakser av utskriftsoperatøren er gitt nedenfor.

1. Skriv ut String_Value
   Utskriftsoperatøren kan brukes til å skrive ut hvilken som helst strengverdi ved hjelp av enkeltkurter eller dobbelt-kvoter.
2. utskriftsvariabel_1, variabel_2, ..., variabel_n
   Utskriftsoperatøren kan brukes til å skrive ut verdiene til en eller flere variabler med eller uten andre strengverdier.
3. Skriv ut fil_handler -streng
   Utskriftsoperatøren kan brukes til å lese fra filen eller skrive inn i filen.

Returverdi

Denne funksjonen returnerer 0 ved fiasko og 1 på suksess.

Ulike bruksområder for utskriftsoperatøren i Perl er vist i neste del av denne opplæringen.

Eksempel-1: Skriv ut enkle meldinger

Opprett en Perl -fil med følgende kode som vil skrive ut to enkle tekstmeldinger med Newline. Den første utskriftsoperatøren brukes til å skrive ut teksten ved å bruke doble sitater. Den andre utskriftsoperatøren brukes til å skrive ut teksten ved å bruke enkelt sitater.

# Skriv ut en melding ved hjelp av doble sitater ("")
trykk ("Velkommen til Linuxhint \ n");
# Skriv ut en melding ved hjelp av enkelt sitater (")
trykk ('Lær Perl -programmering', "\ n");

Produksjon:

Følgende utgang vises etter å ha utført koden ovenfor.

Eksempel-2: Skriv ut flere strengverdier

Opprett en Perl -fil med følgende kode for å skrive ut flere strengverdier ved å bruke komma (,) med en utskriftsoperatør og ved å bruke bakoverstrøk (\) med to utskriftsoperatører.

# Skriv ut flere strengverdier ved hjelp av separator
trykk ("Velkommen til Linuxhint."," "," Lær Perl -programmering fra Linuxhint."," \ n ");
# Skriv ut flere strenger ved hjelp av to utskriftsfunksjoner
trykk ("Velkommen til Linuxhint."); \
trykk ("Lær Perl -programmering fra Linuxhint."," \ n ");

Produksjon:

Følgende utgang vises etter å ha utført koden ovenfor.

Eksempel-3: Skriv ut en eller flere variabler

En eller flere variabler kan skrives ut ved å bruke utskriftsoperatøren med doble sitater (“). Opprett en Perl -fil med følgende kode som vil skrive ut en enkelt variabel, to variabler og variablene med andre strengverdier. En enkelt variabel er skrevet ut ved å bruke doble sitater (“) med utskriftsoperatøren. To strengvariabler er skrevet ut uten å bruke noen sitater med utskriftsoperatøren. En streng og en numerisk verdi er skrevet ut med andre strengverdier ved å bruke utskriftsoperatøren. Her har Backslash (\) vært med “$” for å skrive ut “$” i utgangen fordi dette symbolet brukes til å erklære variabelen i Perl.

# Definer en strengvariabel
$ String1 = 'Hei';
# Skriv ut variabelen
Skriv ut "$ String1 \ n";
# Definer en annen strengvariabel
$ String2 = 'World';
# Skriv ut to strengvariabler
Skriv ut $ String1, $ String2, "\ n";
# Definer en annen strengverdi
$ book_name = "perl programmering";
# Definer en numerisk verdi
$ pris = 35;
# Skriv ut variablene med andre strenger ved bruk av komma (,)
Skriv ut "The Price of", $ Book_name, "Book Is \ $", $ pris, ".\ n ";
# Skriv ut variablene med andre strenger ved å bruke DOT (.)
Skriv ut "prisen på".$ boknavn."Bok er \ $".$ pris."".\ n ";

Produksjon:

Følgende utgang vises etter å ha utført koden ovenfor.

Eksempel-4: Skriv ut den aritmetiske beregningen

Resultatet av enhver aritmetisk beregning kan skrives ut direkte ved å bruke utskriftsoperatøren. Lag en Perl -fil med følgende kode som vil skrive ut multiplikasjonen av to numeriske variabler og skrive ut resultatet av et aritmetisk uttrykk.

# Definer to numeriske verdier
$ n1 = 45;
$ n2 = 5;
# Skriv ut multiplikasjonsresultatet av variablene
Skriv ut "Resultatet av multiplikasjon er".$ n1*$ n2."\ n";
# Skriv ut det beregnede resultatet av det matematiske uttrykket
skriv ut "Resultatet av uttrykket =", 2+6*7, "\ n";

Produksjon:

Følgende utgang vises etter å ha utført koden ovenfor. Multiplikasjonen av to variabler som har verdiene 45 og 5 er 225. Resultatet av det aritmetiske uttrykket, 2+6*7, er 44.

Eksempel-5: Skriv inn i en fil

Opprett en Perl -fil med følgende kode som åpner en fil for å skrive og legge til en tekstlinje ved å bruke utskriftsoperatøren. En tekstfil som heter temp.tekst har blitt åpnet for å skrive ved å bruke en åpen Funksjon i koden. Hvis filen eksisterte før, vil innholdet i filen bli overskrevet av det nye innholdet. Filen vil bli lukket ved å bruke den lukkede funksjonen etter å ha fullført skriveoperasjonen.

# Åpne filbehandler for å skrive inn i en fil
Åpne FH, "> Temp.tekst"
# Skriv ut feilmelding
eller dø "Kan ikke opprette filen.";
# Skriv strengverdien til filen
Skriv ut fh "Legg til tekst i filen \ n";
# Lukk filen
Lukk FH
# Skriv ut feilmelding
eller dø "Kan ikke lukke filen.\ n ";

Produksjon:

Følgende utgang vises etter å ha utført koden ovenfor. Kommandoen “Cat” er utført for å sjekke om filen er opprettet riktig eller ikke.

Eksempel-6: Les fra en fil

Opprett en Perl -fil med følgende kode som åpner en fil for lesing, itererer innholdet i filen ved å bruke en loop, og skrive ut hver linje i filen ved å bruke utskriftsoperatøren. En tekstfil som heter myfile.tekst har blitt åpnet for lesing ved å bruke åpen Funksjon i koden. Hvis filen ikke eksisterer, vil en feilmelding skrives ut. Filen vil bli lukket ved å bruke Lukk Funksjon etter å ha fullført leseoperasjonen.

# Åpne filbehandler for å skrive inn i en fil
Åpne FH, "< myfile.txt"
# Skriv ut feilmelding
eller dø "Kan ikke åpne filen.";
# Lese filen
samtidig som()

# Skriv ut linjen
Skriv ut $ _;

# Lukk filen
Lukk FH
# Skriv ut feilmelding
eller dø "Kan ikke lukke filen.\ n ";

Produksjon:

Følgende utgang vises etter å ha utført koden ovenfor. Kommandoen “Cat” er utført for å sjekke innholdet i filen.

Konklusjon

Måten å bruke skrive ut Operatør i PERL for å skrive ut enkelt- eller flere strengverdier eller variabler, lese fra en fil og skrive til en fil har blitt vist i denne opplæringen ved å bruke flere eksempler.