Hvordan sjekke om en streng Finnes i Perl

Perl "m" funksjonen brukes til å matche en streng i en variabel eller fil. Dette er nyttig hvis du prøver å finne en bestemt linje i en fil, for eksempel en advarsel linje i en loggfil. Den kan også brukes til å kontrollere at en bruker-sendt verdien inneholder riktig informasjon. Du kan matche en streng eller du kan bruke vanlige uttrykk --- en måte å bruke metategn til å representere et tegn eller sett av tegn.

Bruksanvisning

1 Åpne et vanlig tekstdokument i en tekst editor.

2 Skriv inn linjen

! / Usr / bin / perl

å starte perl script.

3 Skriv linjene

min $ my_string;

$ My_string = "Dette er et eksempel streng";

print $ my_string "\ n".;

å lage og skrive ut den variabelen som inneholder strengen "Dette er et eksempel streng."

4 Skriv linjene

if ($ my_string = ~ m / test / i)

{Print "Ja, strengen" test "ble funnet \ n";}

ellers

{Print "Strengen" test "ble ikke funnet \ n";}

å skape "hvis" statement som sjekker for å se om det finnes strengen "test".

5 Skriv linjene

if ($ my_string = ~ m / eksempel / i)

{Print "Ja, strengen 'eksempel' ble funnet \ n";}

ellers

{Print "Strengen 'eksempel' ble ikke funnet \ n";}

å skape hvis setningen som sjekker for å se om strengen "eksempel" eksisterer.

6 Lagre filen som "match.pl".

7 Skriv inn kommandoen "perl match.pl" ved ledeteksten for å teste manuset.