I Perl, et regulært udtryk , eller " regex ", er en streng af tegn . I mange tilfælde er disse tegn gemt i snor variabler. Du bruger Perls operatører og figurklasser at udføre nogle opgaver på en regex , såsom snor matching eller søger efter og erstatte bestemte tegn . Tildele værdier til variabler i enten selve koden eller bede brugeren om input på run-time og derefter bruge disse udtryk i karakter matchende sekvens. Instruktioner
1

Åbn en Perl program fil. Sæt markøren , hvor du ønsker at bruge regulære udtryk
2

Indtast følgende kode : Hej

min $ cat = " Min kat fødte tre killinger ! "
.

print $ kat. "\\ n";

$ cat = ~ s /tre /fire /;

print $ kat. "\\ n";

Den første linje angiver en variabel værdi og den anden linje udskriver det til skærmen. Den tredje linie bruger substitution operatør at udskifte "tre" i variablen med "fire ". Hvis operatøren ikke kan finde det mønster, for at matche ( "tre" ) , ændrer det ikke variablens værdi på alle
3

Indtast følgende kode : .

Print "Type noget :";

min $ input = < > ;

if ($ input = ~ m /e /i ) { print " Hvad du har skrevet indeholdt bogstavet» e " ";}

else { print " hvad du har skrevet , ikke indeholdt bogstavet » e « ";}

de første to linjer beder brugeren om at indtaste en streng og gemmer ikraft en variabel . If sætning bruger kampen operatøren at se, om brugeren har indtastet bogstavet " e ". "I" del af operatøren fortæller operatøren at ignorere sagen. Ændre det til "s" for at være case- sensitive
4

print " Indtast et telefonnummer :" .

Min $ telefon = < > ;
< p> if ($ telefon = ~ /\\ d \\ d \\ d- \\ d \\ d \\ d \\ d /) { print " Du har indtastet korrekt et telefonnummer ";}

else { print " Du ikke er korrekt indtastet et telefonnummer ";}

Dette bruger figurklasser at tjekke strengen input for at se om den passer til formatet for et telefonnummer , og derefter fortæller brugeren , hvis han gjorde eller ikke indtaste et nummer korrekt . De " \\ d " figurklasser kontrollerer udtryk for tal . Du kan også bruge "\\ w " for at kontrollere for eventuelle tegn eller "\\ s " for at tjekke for mellemrum. Brug af store bogstaver for nogen af ​​disse tre klasser negerer deres repræsentationer.
5.

Gem Perl program filen.