Funkcja Perl Chomp

" funkcja chomp () jest wbudowaną funkcją Perla do usunięcia postaci nowej (\ n) z końca łańcucha i liczby nowej linii usuniętej przez tę funkcję. Ta funkcja może być używana w skrypcie, gdy wymaga odczytania danych ciągu po usunięciu nowej linii. Konkretną wartość ciągu można usunąć z tekstu za pomocą funkcja chomp () to jest przechowywane w $/ ($ Input_record_separator). Perl ma kolejną wbudowaną funkcję wymienioną siekać() To usuwa ostatni znak danych ciągów, który może być znakiem nowym lub dowolnym innym znakiem. Zastosowania funkcja chomp () i różnice między Funkcje Chomp () i Chop () zostały pokazane w tym samouczku."

Składnia

Różne składni funkcji Chomp () pokazano poniżej.

Chomp

Powyższa składnia służy do usunięcia nowej linii z wartości zmiennej $ _.

Chomp (ciąg)

Powyższa składnia służy do usunięcia nowej linii ze zmiennej ciągu.

Chomp (tablica)

Powyższa składnia służy do usunięcia nowej linii ze zmiennej tablicy.

Ta funkcja zwraca liczbę nowych linii usuniętej ze zmiennej skalarnej lub ciągu lub tablicy. Różne zastosowania funkcji Chomp () zostały pokazane w następnej części samouczka.

Przykład-1: Usuń nową linię ze zmiennej skalarnej

Utwórz plik PERL z następującym kodem, który usunie nową linię z skalarny zmienny. Wartość ciągu została zdefiniowana w zmiennej skalarnej tutaj. funkcja chomp () został użyty bez żadnego argumentu w tym kodzie do usunięcia nowej linii ze zmiennej skalarnej. Wartość skalarny Zmienna została wydrukowana przed i po użyciu funkcja chomp ().

Wydrukuj „Wartość zmiennej skalarnej przed chomp (): \ n”;
# Zdefiniuj specjalną zmienną $ _
$ _ = "Linuxhint \ n";
# Wydrukuj $ _ przed usunięciem Newline
wydrukować;
# Usuń nową linię z wartości $ _
$ total = chomp;
# Wydrukuj całkowitą liczbę usuniętych znaków
Wydrukuj „Usunięto całkowitą znak: $ total \ n”;
Wydrukuj „Wartość zmiennej skalarnej po chomp (): \ n”;
# Wydrukuj $ _ po usunięciu Newline
wydrukować;

Wyjście

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

Przykład-2: Usuń nową linię ze zmiennej łańcuchowej

Utwórz plik PERL z następującym kodem, który usunie nową linię z wartości ciągu. Zmienna ciągu z 2 nowymi znakami została zadeklarowana w kodzie. Pierwszy funkcja chomp () usunie ostatnią nową postać i drugą funkcja chomp () usunie następną nową postać. Trzeci funkcja chomp () nic nie usunie.

# Zdefiniuj zmienną stringową z dwoma nowymi znakami
$ str = "Perl Programming \ n \ n";
# Usuń nową linię z ciągu, jeśli istnieje
$ num = chomp ($ str);
Wydrukuj „Wartość ciągu po usunięciu Newline: $ str \ n”;
# Wydrukuj całkowitą liczbę usuniętego znaku
Wydrukuj „Całkowite usunięte postacie: $ num \ n”;
# Usuń nową linię z ciągu, jeśli istnieje
$ num = chomp ($ str);
Wydrukuj „Wartość ciągu po usunięciu Newline: $ str \ n”;
# Wydrukuj całkowitą liczbę usuniętego znaku
Wydrukuj „Całkowite usunięte postacie: $ num \ n”;
# Usuń nową linię z ciągu, jeśli istnieje
$ num = chomp ($ str);
Wydrukuj „Wartość ciągu po usunięciu Newline: $ str \ n”;
# Wydrukuj całkowitą liczbę usuniętego znaku
Wydrukuj „Całkowite usunięte postacie: $ num \ n”;

Wyjście

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

Przykład-3: Usuń nową linię z wielu zmiennych

Utwórz plik PERL z następującym kodem, który usunie nową linię z wielu zmiennych. W kodzie zdefiniowano dwie zmienne ciągów z nowością. Następnie w kodzie użyto Chomp () do usunięcia nowych linii z obu zmiennych. Wyjście funkcja chomp () został wydrukowany później.

# Zdefiniuj wiele zmiennych ciągów
$ language = "perl \ n";
$ strona internetowa = "Linuxhint.com \ n ";
# Użyj funkcji ChOM dla wielu zmiennych
$ output = chomp ($ język, $ strona internetowa);
# Wydrukuj posiekane zmienne z innymi danymi łańcuchowymi
Wydrukuj „Naucz $ język z $ strona internetowa \ n”;
# Wydrukuj wartość zwróconą przez funkcję Chomp
Wydrukuj „Całkowita liczba usuniętej nowej linii: $ wyjściowe \ n”;

Wyjście

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

Przykład-4: Usuń konkretny ciąg z innego ciągu

Chomp () można użyć do usunięcia określonego znaku lub ciągu, definiując zmienną separatora rekordu wejściowego (IRS). Utwórz plik PERL z następującym kodem, który usunie słowo „wskazówka”Ze zmiennej łańcuchowej. Zmienna ciągu została zdefiniowana w kodzie zawierającym słowo „wskazówka”3 razy na końcu ciągu. Zmienna IRS została tutaj użyta do przechowywania słowa „wskazówka.”Następnie funkcja Chomp () została wywołana 3 razy, aby usunąć słowo„wskazówka”Z głównego ciągu.

# Zdefiniuj zmienną stringową
$ str = "Learn Perl z Linuxhinthinthint";
# Ustaw separator rekordu wejściowego
$/ = „wskazówka”;
# Wydrukuj zmienną stringową przed użyciem chomp
drukuj $ str, „\ n”;
Chomp $ str;
# Wydrukuj zmienną ciągną po nałożeniu Chomp po raz pierwszy
drukuj $ str, „\ n”;
Chomp $ str;
# Wydrukuj zmienną ciągną po nałożeniu Chomp po raz drugi
drukuj $ str, „\ n”;
Chomp $ str;
# Wydrukuj zmienną ciągną po zastosowaniu Chomp po raz trzeci
drukuj $ str, „\ n”;

Wyjście

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

Przykład-5: Usuń nową linię z każdej wartości tablicy

Utwórz plik PERL z następującym kodem, który usunie nową linię z każdej wartości tablicy. funkcja chomp () został użyty z tablicą do usunięcia nowej linii z wartości tablicy. Wartości tablicy przed i po usunięciu nowej linii i wyjściu funkcja chomp () zostanie wydrukowany po wykonaniu kodu.

# Zdefiniuj tablicę wartości łańcuchowych za pomocą Newline
$ flowers = [„Rose \ n”, „Lily \ n”, „Sun Flower \ n”, „Cosmos \ n”, „Daisy \ n”];
# Wydrukuj główne wartości tablicy
Wydrukuj „Wartości tablicy przed użyciem Chomp: \ n @$ Flowers \ n”;
# Usuń nową linię z każdej wartości tablicy
$ wyjściowe = chomp @$ kwiaty;
# Wydrukuj wyjście funkcji Chomp
Wydrukuj „Total Newline Usunięte: $ wyjściowe \ n”;
# Wydrukuj zmodyfikowane wartości tablicy
Wydrukuj „Wartości tablicy po użyciu Chomp: \ N @$ Flowers \ n”;

Wyjście

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

Wniosek

Sposób użycia funkcji Chomp () do usunięcia nowej linii lub konkretnego ciągu ze zmiennej pokazano tutaj za pomocą wielu przykładów Perla. Mam nadzieję, że ten samouczek pomoże użytkownikom Perl w prawidłowym poznaniu tej funkcji.