I Perl , ett reguljärt uttryck , eller " regex ", är en teckensträng . I många fall är dessa tecken sparas i strängvariabler . Du använder Perl operatörer och klasser karaktär för att utföra en uppgift på ett regex , såsom sträng matchning eller söka efter och ersätta särskilda tecken. Tilldela värden till variabler antingen i själva koden eller uppmana användaren att ange vid run-time och sedan använda dessa uttryck i karaktären matchande sekvensen . Instruktioner
1
Öppna ett Perl programfil . Sätt markören där du vill använda reguljära uttryck
2
Skriv följande kod :
min $ cat = " Min katt födde tre kattungar ! " ;
.
print $ cat . " \\ n ";
$ cat = ~ s /tre /fyra /;
print $ cat . " \\ n ";
Den första raden anger en variabels värde och den andra raden skriver den på skärmen . Den tredje raden använder substitution operatören att ersätta " tre " i variabeln med " fyra ". Om operatören inte kan finna mönster för att matcha ( " tre " ) , ändras inte variabelns värde alls Addera 3
Skriv följande kod : .
Print " Skriv något : " ;
min $ input = < > ;
if ( $ input = ~ m /e /i ) { print " Vad du skrev innehöll bokstaven" e ' " ; }
else { print " det du skrev inte innehåller bokstaven "e" " ;}
de första två raderna uppmana användaren att ange en sträng och sparar träder i en variabel. Den if använder matchen operatör för att se om användaren skrivit bokstaven " e ". "I" en del av operatörens berättar föraren att ignorera fallet . Ändra det till " s " för att vara skiftlägeskänslig
4
print " Ange ett telefonnummer : " ; .
Min $ telefon = < > ;
if ( $ telefon = ~ /\\ d \\ d \\ d - \\ d \\ d \\ d \\ d /) {print " Du rätt har angett ett telefonnummer " ;}
else { print " Du har inte riktigt in ett telefonnummer " ;}
använder teckenklasser för att kontrollera strängen input för att se om det matchar formatet för ett telefonnummer och sedan talar om för användaren om han gjorde eller inte ange ett nummer korrekt . De " \\ d " figurklasser kontrollerar uttryck för siffror . Du kan också använda " \\ w " för att leta efter tecken eller " \\ s " för att söka efter whitespace . Använda versaler för någon av dessa tre klasser förnekar sina representationer .
5
Spara Perl programfilen .
