Perl strenglengde

“Perl lengde () -funksjonen brukes til å telle det totale antallet tegn på en streng. Strengverdien sendes som argumentet for lengden () -funksjonen, og det totale antallet tegn returneres av denne funksjonen. Hvis ingen argumentverdi sendes til denne funksjonen, vil denne funksjonen telle de totale tegnene på skalarvariabelen, $ _. Bruken av denne funksjonen er vist i denne opplæringen.”

Syntaks
Syntaksene til lengden () -funksjonen til Perl er gitt nedenfor.

1. lengde
   Lengde () -funksjonen uten noe argument vil returnere lengden på variabelen, $ _.
2. lengde (variabel)
   Lengde () -funksjonen med argumentvariabelen vil returnere lengden på argumentvariabelen.

Ulike bruksområder av Perl -skriptet er vist i neste del av denne opplæringen.

Eksempel 1: Tell lengden på $ _-variabelen

Opprett en Perl -fil med følgende kode som vil telle det totale antallet tegn på strengverdien som er lagret i skalarvariabelen. En strengverdi er lagret i skalarvariabelen. De skrive ut Operatøren har blitt brukt til å skrive ut verdien av skalarvariabelen. De lengde() Funksjon uten noe argument har blitt brukt for å telle lengden på skalarvariabelen. Neste, returverdien til lengde() Funksjonen er skrevet ut.

Skriv ut "Verdien på skalarvariabelen: \ n";
# Definer den spesielle variabelen $ _
$ _ = "Velkommen til Linuxhint \ n";
# Skriv ut verdien på $ _
skrive ut;
# Tell lengden på $ _
$ total = lengde;
# Skriv ut det totale antallet tegn
Skriv ut "Totalt antall tegn: $ Totalt \ n";

Produksjon:

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

Eksempel-2: Tell lengden på strengvariabelen

Opprett en Perl -fil med følgende kode som vil telle det totale antallet tegn i strengvariabelen. Brukernavnet og passordet vil bli hentet fra brukeren og lagres i to variabler, $ brukernavn og $ passord. Chomp () -funksjonen har blitt brukt til å fjerne Newline fra variablene. Lengde () -funksjonen har blitt brukt her for å telle lengden på $ brukernavnet og $ passordverdiene. Hvis lengden på $ brukernavnet er mindre enn 6, så er meldingen, “Brukernavn må inneholde 6 tegn.” vil bli skrevet ut. Hvis lengden på $ -passordet er mindre enn 6 og større enn 12, så er meldingen, “Passord kan være 6 til 12 tegn lang.” vil bli skrevet ut. Etter å ha validert inndataverdiene, hvis verdien av $ brukernavnet er "fahmida" og $ -passordet er "hemmelig", vil en suksessmelding bli skrevet ut; Ellers vil en feilmelding bli skrevet ut.

# Ta innspill fra brukeren
Skriv ut "Enter brukernavn: \ n";
$ brukernavn = < >;
# Fjern Newline -karakteren
chomp ($ brukernavn);
Skriv ut "Skriv inn passord: \ n";
$ passord = < >;
# Fjern Newline -karakteren
chomp ($ passord);
# Kontroller lengden på $ brukernavn -variabelen
if (lengde ($ brukernavn) < 6)

die "Brukernavn må inneholde 6 tegn.\ n ";

if (lengde ($ passord) < 6 || length($password) > 12)

dø "Passord kan være 6 til 12 tegn lang.\ n ";

# Kontroller lengden på $ Passordvariabelen
if ($ brukernavn Eq 'fahmida' && $ passord Eq 'Secret')

Skriv ut "Autentisert bruker.\ n ";

ellers

Skriv ut "Uauthenticated User.\ n ";

Produksjon:
Følgende utdata vises etter å ha utført koden med gyldig brukernavn, men ugyldige passordinnganger. Inngangsverdien, "Fahmida," er gyldige data og riktig brukernavn. Inngangsverdien, “1234”, er ugyldige data.

Følgende utdata vises etter å ha utført koden med det ugyldige brukernavnet, men gyldig passord. Inngangsverdien, "admin", er ugyldige data. Inngangsverdien, "hemmelig", er gyldige data og riktig passord.

Følgende utdata vises etter å ha utført koden med gyldig brukernavn, men feil passord. Inngangsverdien, "Fahmida," er gyldige data og riktig brukernavn. Inngangsverdien, “123456”, er gyldige data, men et feil passord.

Følgende utdata vises etter å ha utført koden med riktig brukernavn og passord. Inngangsverdien, "Fahmida," er gyldige data og riktig brukernavn. Inngangsverdien, "hemmelig", er gyldige data og riktig passord.

Eksempel-3: Tell lengden på strengvariabelen i byte

Du må bruke byte modul for å telle lengden på strengene i byte. Opprett en Perl -fil med følgende kode som bruker byte Modul for å telle lengden på strengdata gitt i heksadesimal format. Den opprinnelige strengverdien og antall byte av den strengverdien vil bli skrevet ut senere.

bruk byte;
# Definer strengdata etter HEX -verdi
$ data = "\ x 35 \ x 250 \ x 245 \ n";
# Skriv ut strengverdien til HEX -data
Skriv ut "Strengverdien er", $ data;
# Skriv ut lengden på strengen i byte
Skriv ut "lengden på strengen er:", lengde ($ data), "byte."," \ n ";

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

Eksempel-4: Tell lengden på hvert matriseelement

Opprett en Perl -fil med følgende kode som vil telle lengden på hver strengverdi på matrisen. En rekke 4 strengverdier er definert i koden. De for hver Loop har blitt brukt her for å iterere matriseverdiene og telle og lengden på hver matriseverdi.

# Erklære en rekke strenger
@Usernames = ("Nupur22", "Hossainbd", "Kamal12", "Bela89");
# Itererer matriseverdiene som bruker for loop
for ($ i = 0; $ i <= $#usernames; $i++)

# Tell lengden på hver matriseverdi
$ len = lengde ($ brukernavn [$ i]);
# Skriv ut lengden på matriseverdien
Skriv ut "lengden på $ brukernavn [$ i] er $ len \ n";

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

Konklusjon

Bruken av lengden () -funksjonen for å telle lengden på strengverdien og bruke utgangen fra lengden () -funksjonen for forskjellige formål er vist i denne opplæringen ved å bruke Perl -eksempler. Jeg håper denne opplæringen vil hjelpe Perl -brukerne til å bruke lengden () -funksjonen for å telle lengden på strengen i koden sin riktig.