Perl chomp -funksjon

"De chomp () funksjon er en innebygd funksjon av Perl for å fjerne Newline (\ n) -tegn fra slutten av strengen og antallet Newline-tegn fjernet med denne funksjonen. Denne funksjonen kan brukes i skriptet når det krever å lese strengdataene etter å ha fjernet Newline -tegnet. Den spesielle strengverdien kan fjernes fra teksten ved å bruke chomp () funksjon som er lagret i $/ ($ Input_record_separator). Perl har en annen innebygd funksjon som heter hugge() som fjerner den siste karakteren av strengdataene, som kan være et nytt tegn eller en hvilken som helst annen karakter. Bruken av chomp () funksjon og forskjellene mellom Chomp () og Chop () -funksjoner har blitt vist i denne opplæringen.”

Syntaks

Ulike syntakser av chomp () -funksjonen er vist nedenfor.

chomp

Ovennevnte syntaks brukes til å fjerne den nye linjen fra verdien av $ _ -variabelen.

chomp (streng)

Ovennevnte syntaks brukes til å fjerne den nye linjen fra strengvariabelen.

chomp (matrise)

Ovennevnte syntaks brukes til å fjerne den nye linjen fra array -variabelen.

Denne funksjonen returnerer antall newlines fjernet fra skalarvariabelen eller strengen, eller matrisen. Ulike bruksområder av Chomp () -funksjonen er vist i neste del av opplæringen.

Eksempel 1: Fjern Newline fra skalarvariabelen

Opprett en Perl -fil med følgende kode som vil fjerne den nye linjen fra skalar variabel. En strengverdi er definert i skalarvariabelen her. De chomp () funksjon har blitt brukt uten noe argument i denne koden for å fjerne den nye linjen fra skalærvariabelen. Verdien av skalar Variabel er skrevet ut før og etter bruk av chomp () funksjon.

Skriv ut "Verdien av skalarvariabelen før chomp (): \ n";
# Definer den spesielle variabelen $ _
$ _ = "Linuxhint \ n";
# Skriv ut $ _ før du fjerner Newline
skrive ut;
# Fjern den nye linjen fra verdien av $ _
$ TOTAL = CHOMP;
# Skriv ut det totale antallet fjerne tegn
Skriv ut "Total tegn fjernet: $ Total \ n";
Skriv ut "Verdien av skalarvariabelen etter chomp (): \ n";
# Skriv ut $ _ etter å ha fjernet Newline
skrive ut;

Produksjon

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

Eksempel-2: Fjern Newline fra strengvariabelen

Opprett en Perl -fil med følgende kode som vil fjerne den nye linjen fra strengverdien. En strengvariabel med 2 nye linjetegn er blitt erklært i koden. Den første chomp () funksjon vil fjerne den siste Newline -karakteren, og den andre chomp () funksjon vil fjerne neste Newline -tegn. Den tredje chomp () funksjon vil fjerne ingenting.

# Definer en strengvariabel med to Newline -tegn
$ str = "perl programmering \ n \ n";
# Fjern den nye linjen fra strengen hvis det finnes
$ num = chomp ($ str);
Skriv ut "strengverdien etter å ha fjernet Newline: $ str \ n";
# Skriv ut det totale antallet fjernet karakter
Skriv ut "Total fjernet karakter (er): $ num \ n";
# Fjern den nye linjen fra strengen hvis det finnes
$ num = chomp ($ str);
Skriv ut "strengverdien etter å ha fjernet Newline: $ str \ n";
# Skriv ut det totale antallet fjernet karakter
Skriv ut "Total fjernet karakter (er): $ num \ n";
# Fjern den nye linjen fra strengen hvis det finnes
$ num = chomp ($ str);
Skriv ut "strengverdien etter å ha fjernet Newline: $ str \ n";
# Skriv ut det totale antallet fjernet karakter
Skriv ut "Total fjernet karakter (er): $ num \ n";

Produksjon

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

Eksempel-3: Fjern Newline fra flere variabler

Opprett en Perl -fil med følgende kode som vil fjerne den nye linjen fra flere variabler. To strengvariabler med Newline er definert i koden. Deretter har chomp () blitt brukt i koden for å fjerne newlinjene fra begge variablene. Utgangen fra chomp () funksjon har blitt skrevet ut senere.

# Definer flere strengvariabler
$ språk = "perl \ n";
$ nettsted = "Linuxhint.com \ n ";
# Bruk chomp -funksjonen for flere variabler
$ output = chomp ($ språk, $ nettsted);
# Skriv ut hakkede variabler med andre strengdata
Skriv ut "Lær $ språk fra $ nettsted \ n";
# Skriv ut verdien som er returnert av CHOMP -funksjonen
Skriv ut "Totalt antall nye linjer fjernet: $ output \ n";

Produksjon

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

Eksempel-4: Fjern den aktuelle strengen fra en annen streng

De chomp () kan brukes til å fjerne et bestemt tegn eller streng ved å definere variabel input Record Separator (IRS). Opprett en Perl -fil med følgende kode som vil fjerne ordet “hint”Fra en strengvariabel. En strengvariabel er definert i koden som inneholder ordet “hint”3 ganger på slutten av strengen. IRS -variabelen har blitt brukt her for å lagre ordet “hint.”Deretter ble Chomp () -funksjonen kalt 3 ganger for å fjerne ordet“hint”Fra hovedstrengen.

# Definer en strengvariabel
$ str = "Lær Perl fra Linuxhinthinthint";
# Angi inngangsoppføringsseparatoren
$/ = 'hint';
# Skriv ut strengvariabelen før du bruker CHOMP
skriv ut $ str, "\ n";
Chomp $ str;
# Skriv ut strengvariabelen etter å ha påført CHOMP for første gang
skriv ut $ str, "\ n";
Chomp $ str;
# Skriv ut strengvariabelen etter å ha påført CHOMP for andre gang
skriv ut $ str, "\ n";
Chomp $ str;
# Skriv ut strengvariabelen etter påføring av CHOMP for tredje gang
skriv ut $ str, "\ n";

Produksjon

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

Eksempel-5: Fjern en ny linje fra hver matriseverdi

Opprett en Perl -fil med følgende kode som vil fjerne den nye linjen fra hver verdi av en matrise. De chomp () funksjon har blitt brukt med matrisen for å fjerne Newline fra matriseverdiene. Arrayverdiene før og etter å ha fjernet den nye linjen og utgangen fra chomp () funksjon vil bli skrevet ut etter å ha utført koden.

# Definer en rekke strengverdier med Newline
$ blomster = ["rose \ n", "lily \ n", "solblomst \ n", "cosmos \ n", "daisy \ n"];
# Skriv ut de viktigste arrayverdiene
Skriv ut "Array -verdiene før du bruker chomp: \ n @$ blomster \ n";
# Fjern Newline fra hver matriseverdi
$ output = chomp @$ blomster;
# Skriv ut utgangen fra CHOMP -funksjonen
Skriv ut "Total Newline Fjernet: $ output \ n";
# Skriv ut de modifiserte matriseverdiene
Skriv ut "Array -verdiene etter bruk av chomp: \ n @$ blomster \ n";

Produksjon

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

Konklusjon

Måten å bruke chomp () -funksjonen for å fjerne Newline eller den aktuelle strengen fra variabelen har vist her ved å bruke flere Perl -eksempler. Jeg håper denne opplæringen vil hjelpe Perl -brukerne til å vite bruken av denne funksjonen ordentlig.