Korzystanie z funkcji substr Perl

„Funkcja Perl Substr () służy głównie do przecięcia określonej części głównego ciągu. Tej funkcji można również użyć do wymiany części głównego ciągu innym ciągiem. W tym samouczku pokazano różne sposoby wycinania lub wymiany określonej części łańcucha, używając skryptu Perla."

Składnia
Składnia funkcji substr () jest wspomniana poniżej.

Substr (MainString, startIndex, [, długość [, zastępowanie]])

• MainString: Pierwszy argument służy do przechowywania głównego ciąg.
• StartIndex: Drugi argument służy do ustawienia pozycji początkowej do cięcia lub wymiany podłoża. Wartość tego argumentu może być pozytywna lub ujemna.
• Długość: Trzeci argument służy do ustawienia długości podłańca. Wartość tego argumentu może być pozytywna lub negatywna, a ten argument jest opcjonalny.
• Zastępowanie: Czwarty argument służy do zastąpienia określonej części głównego ciągu na podstawie wartości drugiego i trzeciego argumentów. Ten argument jest opcjonalny.
• Podłoże konkretnej długości jest zwracane przez funkcję substr ().

Różne zastosowania funkcji substr () zostały pokazane w następnej części tego samouczka.

Przykład-1: użycie funkcji substr () bez opcjonalnego argumentu

Utwórz plik PERL z następującym kodem, który pokazuje użycie funkcji substr () bez żadnego opcjonalnego argumentu. Dodatnia wartość indeksu początkowego została wykorzystana w pierwszej funkcji substr (). Tak więc wartość indeksu zacznie się liczyć od wartości 0 i lewej strony. Ujemna wartość indeksu początkowego została użyta w drugiej funkcji substr (). Tak więc wartość indeksu zacznie się liczyć z 1 i po prawej stronie. Wyjście obu funkcji substr () zostało wydrukowane później.

#!/usr/bin/perl
#Zdefiniuj wartość ciągu
$ string = "Welcome to Linuxhint";
#Printu wartość oryginalna
Wydrukuj „Oryginalny ciąg to: \ n”, $ string, „\ n”;
#Przyczynij się do podrzędu przy użyciu dodatniej wartości indeksu
$ substring = substr ($ string, 11);
Wydrukuj „Wartość podłoża za pomocą indeksu dodatniego: \ n”, $ Substring, „\ n”;
#Podsumowanie przy użyciu ujemnej wartości indeksu
$ substring = substr ($ string, -9);
Wydrukuj „Wartość podłoża za pomocą indeksu ujemnego: \ n”, $ Substring, „\ n”;

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

Przykład-2: Użyj funkcji substr () z pierwszym opcjonalnym argumentem

Utwórz plik PERL z następującym kodem, który pokazuje użycie funkcji substr () z pierwszym opcjonalnym argumentem. Dodatnia wartość początkowego indeksu została użyta w obu funkcjach substr () tutaj. Dodatkowa wartość długości została zastosowana w pierwszej funkcji substr (). Tak więc wartość długości zostanie zliczona od lewej. Wartość długości ujemnej została użyta w drugiej funkcji substr (). Tak więc wartość długości zostanie zliczona od prawej. Wartość długości zaczyna się liczyć z 1 dla wartości dodatnich, jak i ujemnych. Wyjście obu funkcji substr () zostało wydrukowane później.

#!/usr/bin/perl
#Zdefiniuj wartość ciągu
$ string = "Welcome to Linuxhint";
#Printu wartość oryginalna
Wydrukuj „Oryginalny ciąg to: \ n”, $ string, „\ n”;
#Podajnik przy użyciu dodatnich wartości indeksu i długości
$ substring = substr ($ string, 3, 4);
Wydrukuj „Wartość podłoża za pomocą indeksu dodatniego: \ n”, $ Substring, „\ n”;
Um
$ substring = substr ($ string, 11, -4);
Wydrukuj „Wartość podłoża za pomocą indeksu ujemnego: \ n”, $ Substring, „\ n”;

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

Przykład-3: użycie funkcji substr () ze wszystkimi opcjonalnymi argumentami

Utwórz plik PERL z następującym kodem, który pokazuje użycie funkcji substr () ze wszystkimi opcjonalnymi argumentami. Funkcja substr () została tutaj użyta trzykrotnie. W pierwszej funkcji substr () dopasowanie substring zostanie zastąpione ciągiem „PHP.”W funkcji drugiej substr () dopasowanie podłoży zostanie zastąpione ciągiem„ Skrypt.”W funkcji trzecie. Wyjście wszystkich funkcji substr () zostało wydrukowane później.

#!/usr/bin/perl
#Zdefiniuj wartość ciągu
$ string = "naucz się programowanie perla";
#Printu wartość oryginalna
Wydrukuj „Oryginalny ciąg to: \ n”, $ string, „\ n”;
#Wprowadź podłoże przy użyciu indeksu dodatniego i wartości długości
$ zamiennik1 = substr ($ string, 6, 4, „php”);
Wydrukuj „Zastąpiony ciąg przy użyciu indeksu dodatniego i długości: \ n”, $ string, „\ n”;
#Wprowadź podłoże przy użyciu wskaźnika ujemnego i wartości dodatniej
$ zamiennik1 = substr ($ string, -11, 11, „skrypt”);
Wydrukuj „Wymieniony ciąg przy użyciu indeksu ujemnego i długości dodatniej: \ n”, $ string, „\ n”;
#Wprowadź podłoże przy użyciu indeksu dodatniego i wartości ujemnej długości
$ zamiennik1 = substr ($ string, 0, -10, "");
Wydrukuj „Zastąpiony ciąg przy użyciu indeksu dodatniego i długości ujemnej: \ n”, $ string, „\ n”;

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

Przykład-4: Wyodrębnij wartość z ciągu za pomocą funkcji substr ()

Utwórz plik PERL z następującym kodem, który zmniejszy wartość daty i wartość czasu oddzielnie od ciągu. Tutaj zmienna $ DATETIME została użyta do przechowywania wartości ciągu, która zawiera określoną wartość daty i godziny. Pierwsza funkcja substr () została użyta do odzyskania wartości daty, a do pobierania wartości czasu z zmiennej $ DATETIME użyto drugiej funkcji substr (). Wyjście wszystkich funkcji substr () zostało wydrukowane później.

#!/usr/bin/perl
#Zdefiniuj wartość ciągu
$ dateTime = "17-06-22 05:30 AM";
#Printu wartość oryginalna
Wydrukuj „Oryginalny ciąg to: \ n”, $ dateTime, „\ n”;
#Wartość daty z ciągu
$ date = substr ($ dateTime, 0, 8);
#Printu wartość daty
Wydrukuj „Wartość daty to: \ n”, $ data, „\ n”;
#Wartość czasu z łańcucha
$ time = substr ($ dateTime, 9);
#PRORT WARTOŚCI czasu
Wydrukuj „Wartość czasu to: \ n”, $ czas, „\ n”;

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

Wniosek

Zastosowania funkcji substr () z różnymi typami wartości argumentów pokazano w tym samouczku za pomocą wielu przykładów. Mam nadzieję, że ten samouczek pomoże użytkownikom Perl poznać cel korzystania z funkcji substr () w Perl.