Bruk av Perl Substr -funksjon
Syntaks
Syntaksen til substr () -funksjonen er nevnt nedenfor.
substr (mainstring, startIndex, [, lengde [, erstatning]])
- Mainstring: Det første argumentet brukes til å lagre hovedstrengen som substringen vil bli kuttet.
- StartIndex: Det andre argumentet brukes til å stille startposisjonen for å kutte eller erstatte substring. Verdien av dette argumentet kan være positiv eller negativ.
- Lengde: Det tredje argumentet brukes til å stille lengden på substringen. Verdien av dette argumentet kan være positivt eller negativt, og dette argumentet er valgfritt.
- erstatning: Det fjerde argumentet brukes til å erstatte den bestemte delen av hovedstrengen basert på verdiene til det andre og de tredje argumentene. Dette argumentet er valgfritt.
- Substring av den spesielle lengden returneres av substr () -funksjonen.
Ulike bruksområder av substr () -funksjonen er vist i neste del av denne opplæringen.
Eksempel-1: Bruk av substr () -funksjon uten valgfritt argument
Opprett en Perl -fil med følgende kode som viser bruken av substr () -funksjonen uten valgfritt argument. Den positive startindeksverdien har blitt brukt i den første substr () -funksjonen. Så indeksverdien vil begynne å telle fra 0 -verdien og venstre side. Den negative startindeksverdien har blitt brukt i den andre substr () -funksjonen. Så indeksverdien vil begynne å telle fra 1 verdi og høyre side. Utgangen fra begge substr () -funksjonene er skrevet ut senere.
#!/usr/bin/perl
#Definer strengverdien
$ streng = "Velkommen til Linuxhint";
#Trykk den orginale verdien
Skriv ut "den originale strengen er: \ n", $ streng, "\ n";
#Cut substringen ved bruk av positiv indeksverdi
$ substring = substr ($ streng, 11);
Skriv ut "Substring -verdien ved å bruke positiv indeks: \ n", $ substring, "\ n";
#Cut substringen ved bruk av negativ indeksverdi
$ substring = substr ($ streng, -9);
Skriv ut "Substring -verdien ved å bruke negativ indeks: \ n", $ substring, "\ n";
Produksjon:
Følgende utgang vises etter å ha utført koden ovenfor.
Eksempel-2: Bruk av substr () -funksjon med det første valgfrie argumentet
Lag en Perl -fil med følgende kode som viser bruken av substr () -funksjonen med det første valgfrie argumentet. Den positive startindeksverdien har blitt brukt i begge substr () -funksjonene her. Den positive lengdeverdien har blitt brukt i den første substr () -funksjonen. Så lengdeverdien vil telles fra venstre. Den negative lengdeverdien har blitt brukt i den andre substr () -funksjonen. Så lengdeverdien vil telles fra høyre. Lengdeverdien begynner å telle fra 1 for både positive og negative verdier. Utgangen fra begge substr () -funksjonene er skrevet ut senere.
#!/usr/bin/perl
#Definer strengverdien
$ streng = "Velkommen til Linuxhint";
#Trykk den orginale verdien
Skriv ut "den originale strengen er: \ n", $ streng, "\ n";
#Cut substringen ved bruk av positive indeks- og lengdeverdier
$ substring = substr ($ streng, 3, 4);
Skriv ut "Substring -verdien ved å bruke positiv indeks: \ n", $ substring, "\ n";
#Cut substringen ved bruk av positive indeks- og negative lengdeverdier
$ substring = substr ($ streng, 11, -4);
Skriv ut "Substring -verdien ved å bruke negativ indeks: \ n", $ substring, "\ n";
Produksjon:
Følgende utgang vises etter å ha utført koden ovenfor.
Eksempel-3: Bruk av substr () -funksjon med alle valgfrie argumenter
Opprett en Perl -fil med følgende kode som viser bruken av substr () -funksjonen med alle valgfrie argumenter. Substr () -funksjonen har blitt brukt tre ganger her. I den første substr () -funksjonen vil den matchende substringen erstattes av strengen, “PHP.”I den andre substr () -funksjonen vil den matchende substringen erstattes av strengen,” skript.”I den tredje substr () -funksjonen vil den matchende substringen erstattes av den tomme strengen. Utgangen fra alle substr () -funksjonene er skrevet ut senere.
#!/usr/bin/perl
#Definer strengverdien
$ streng = "Lær Perl -programmering";
#Trykk den orginale verdien
Skriv ut "den originale strengen er: \ n", $ streng, "\ n";
#-Place the Substring ved hjelp av positiv indeks og lengdeverdi
$ erstatt1 = substr ($ streng, 6, 4, "php");
Skriv ut "den erstattede strengen ved å bruke positiv indeks og lengde: \ n", $ streng, "\ n";
#-Place the Substring ved hjelp av negativ indeks og positiv lengdeverdi
$ erstatt1 = substr ($ streng, -11, 11, "skript");
Skriv ut "den erstattede strengen ved å bruke negativ indeks og positiv lengde: \ n", $ streng, "\ n";
#-Place the Substring ved hjelp av positiv indeks og negativ lengdeverdi
$ erstatt1 = substr ($ streng, 0, -10, "");
Skriv ut "den erstattede strengen ved å bruke positiv indeks og negativ lengde: \ n", $ streng, "\ n";
Produksjon:
Følgende utgang vises etter å ha utført koden ovenfor.
Eksempel-4: Ekstraktverdi fra en streng ved bruk av substr () -funksjon
Opprett en Perl -fil med følgende kode som vil kutte datoverdien og tidsverdien separat fra en streng. Her har variabelen $ DateTime blitt brukt til å lagre en strengverdi som inneholder en bestemt dato og tidsverdi. Den første substr () -funksjonen har blitt brukt til å hente datoverdien, og den andre substr () -funksjonen har blitt brukt for å hente tidsverdien fra $ Datetime -variabelen. Utgangen fra alle substr () -funksjonene er skrevet ut senere.
#!/usr/bin/perl
#Definer strengverdien
$ dateTime = "17-06-22 05:30 am";
#Trykk den orginale verdien
Skriv ut "den originale strengen er: \ n", $ datatime, "\ n";
#Cut datoverdien fra strengen
$ date = substr ($ datetime, 0, 8);
#Uttrykk datoverdien
Skriv ut "Datoverdien er: \ n", $ dato, "\ n";
#Cut tidsverdien fra strengen
$ tid = substr ($ datetime, 9);
#Trykk tidsverdien
Skriv ut "Tidsverdien er: \ n", $ tid, "\ n";
Produksjon:
Følgende utgang vises etter å ha utført koden ovenfor.
Konklusjon
Bruken av substr () -funksjonen med forskjellige typer argumentverdier er vist i denne opplæringen ved å bruke flere eksempler. Jeg håper denne opplæringen vil hjelpe Perl -brukerne til å vite formålet med å bruke substr () -funksjonen i Perl.