Składnia
Składnie funkcji długości () perl podano poniżej.
Różne zastosowania skryptu Perla zostały pokazane w następnej części tego samouczka.
Przykład-1: Policz długość zmiennej $ _
Utwórz plik PERL z następującym kodem, który będzie liczył całkowitą liczbę znaków wartości ciągu zapisanej w zmiennej skalarnej. Wartość ciągu została zapisana w zmiennej skalarnej. wydrukować Operator został użyty do wydrukowania wartości zmiennej skalarnej. długość() Funkcja bez żadnego argumentu została użyta do zliczenia długości zmiennej skalarnej. Następnie wartość zwracania długość() Wydrukowano funkcję.
Wydrukuj „Wartość zmiennej skalarnej: \ n”;
# Zdefiniuj specjalną zmienną $ _
$ _ = "Witamy w Linuxhint \ n";
# Wydrukuj wartość $ _
wydrukować;
# Policz długość $ _
$ Total = długość;
# Wydrukuj całkowitą liczbę znaków
Wydrukuj „Całkowita liczba znaków: $ Total \ n”;
Wyjście:
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.
Przykład-2: Policz długość zmiennej ciągu
Utwórz plik PERL z następującym kodem, który będzie liczył całkowitą liczbę znaków zmiennej ciągu. Nazwa użytkownika i hasło zostaną pobrane od użytkownika i przechowywane w dwóch zmiennych, $ nazwa użytkownika i hasło $. Funkcja Chomp () została użyta do usunięcia nowej linii ze zmiennych. Funkcja długości () została tutaj użyta do zliczenia długości nazwy użytkownika $ i wartości hasła $. Jeśli długość nazwy użytkownika $ jest mniejsza niż 6, to wiadomość, „Nazwa użytkownika musi zawierać 6 znaków." zostanie wydrukowany. Jeśli długość hasła $ jest mniejsza niż 6 i większa niż 12, to wiadomość, „Hasło może mieć od 6 do 12 znaków." zostanie wydrukowany. Po walidacji wartości wejściowych, jeśli wartością nazwy użytkownika $ to „Fahmida”, a hasło $ jest „tajne”, wówczas zostanie wydrukowany komunikat sukcesu; W przeciwnym razie komunikat o awarii zostanie wydrukowany.
# Weź dane wejściowe od użytkownika
wydrukuj „Wprowadź nazwę użytkownika: \ n”;
$ nazwa użytkownika = < >;
# Wyjmij znak nowej linii
Chomp ($ nazwa użytkownika);
wydrukuj „Wprowadź hasło: \ n”;
$ hasło = < >;
# Wyjmij znak nowej linii
Chomp ($ hasło);
# Sprawdź długość zmiennej nazwy użytkownika
if (długość ($ nazwa użytkownika) < 6)
Die „Nazwa użytkownika musi zawierać 6 znaków.\N";
if (długość (hasło $) < 6 || length($password) > 12)
Hasło die ”może mieć od 6 do 12 znaków.\N";
# Sprawdź długość zmiennej $ hasło
if ($ nazwa użytkownika eq 'fahmida' && $ hasło eq 'secret')
wydrukuj „Uwierzytelniony użytkownik.\N";
w przeciwnym razie
Wydrukuj „Użytkownik nieautentyczny.\N";
Wyjście:
Następujące dane wyjściowe pojawią się po wykonaniu kodu z prawidłową nazwą użytkownika, ale nieprawidłowe wprowadzanie haseł. Wartość wejściowa, „Fahmida”, to prawidłowe dane i poprawna nazwa użytkownika. Wartość wejściowa, „1234”, to nieprawidłowe dane.
Następujące dane wyjściowe pojawią się po wykonaniu kodu za pomocą nieprawidłowej nazwy użytkownika, ale prawidłowe hasło. Wartość wejściowa, „admin”, to nieprawidłowe dane. Wartość wejściowa „Secret” to prawidłowe dane i poprawne hasło.
Następujące dane wyjściowe pojawi się po wykonaniu kodu z prawidłową nazwą użytkownika, ale nieprawidłowe hasło. Wartość wejściowa, „Fahmida”, to prawidłowe dane i poprawna nazwa użytkownika. Wartość wejściowa, „123456”, jest prawidłowymi danymi, ale nieprawidłowym hasłem.
Poniższe dane wyjściowe pojawi się po wykonaniu kodu z poprawną nazwą użytkownika i hasłem. Wartość wejściowa, „Fahmida”, to prawidłowe dane i poprawna nazwa użytkownika. Wartość wejściowa „Secret” to prawidłowe dane i poprawne hasło.
Przykład-3: Policz długość zmiennej łańcuchowej w bajtach
Musisz użyć bajty moduł do zliczenia długości ciągów w bajtach. Utwórz plik PERL z następującym kodem, który używa bajty moduł do zliczenia długości danych ciągów podanych w formacie szesnastkowym. Oryginalna wartość ciągu i liczba bajtów tej wartości ciągu zostaną wydrukowane później.
Użyj bajtów;
# Zdefiniuj dane ciągów według wartości szesnastkowej
$ data = "\ x 35 \ x 250 \ x 245 \ n";
# Wydrukuj wartość ciągu danych sześciokątnych
Wydrukuj „Wartość ciągu to”, $ data;
# Wydrukuj długość łańcucha w bajtach
Wydrukuj „Długość ciągu to:”, długość ($ data) ”, bajty.", "\N";
Wyjście:
Następujące dane wyjściowe pojawią się po wykonaniu kodu.
Przykład-4: Policz długość każdego elementu tablicy
Utwórz plik PERL z następującym kodem, który będzie liczył długość każdej wartości łańcucha tablicy. W kodzie zdefiniowano tablicę 4 wartości. dla każdego Pętla została tutaj użyta do iteracji wartości tablicy i liczby i długości każdej wartości tablicy.
# Deklaruj szereg strun
@usernames = („nupur22”, „hossainbd”, „kamal12”, „bela89”);
# Iteruj wartości tablicy za pomocą pętli
dla ($ i = 0; $ i <= $#usernames; $i++)
# Policz długość każdej wartości tablicy
$ len = długość ($ Usernames [$ i]);
# Wydrukuj długość wartości tablicy
Wydrukuj „Długość $ Usernames [$ i] to $ len \ n”;
Wyjście:
Następujące dane wyjściowe pojawią się po wykonaniu kodu.
Wniosek
Zastosowania funkcji długości () do zliczenia długości wartości łańcuchowej i zastosowania wyjścia funkcji długości () do różnych celów pokazano w tym samouczku za pomocą przykładów perla. Mam nadzieję, że ten samouczek pomoże użytkownikom Perl korzystać z funkcji długości () do prawidłowego zliczania długości ciągu w kodzie.