I Perl , är ett vanligt uttryck en eller flera tecken som används för att matcha värden i strängar , till exempel särskilda bokstäver , identifierande märken eller vitt utrymme . Du kan skapa funktioner som använder reguljära uttryck med Perl substitution operatören att matcha tomrum och ta bort dem . Den " ^ " tecknet kan du ange bara tecken i början av strängen , låter " $ " du identifierar endast de i slutet , eller så kan du utelämna dessa och matcha alla vita ytor i hela strängen . Instruktioner
1
Öppna ett Perl- program fil och infoga markören i början
2
Skriv följande kod : .
Sub trim ( $ ) {
min $ string = skift,
$ string = ~ s /\\ s + //g ;
retur $ string ,
}
Denna funktion använder substitution operatören " s ///" för att matcha de vita utrymmena och ta bort dem . Den " \\ s " teckenklass matchar alla blanktecken och ersätter dem med ingenting . Med andra ord , det tar bort dem . Den returnerar en sträng som inte innehåller några tomrumstecken någonstans Addera 3
Skriv följande kod : .
Sub ltrim ( $ ) {
min $ string = skift,
$ string = ~ s /^ \\ s + //;
retur $ string ,
}
Denna funktion endast avlägsnar leder vita fläckar innan några andra tecken . Den " ^ \\ s " säger att matcha vita utrymmen endast till den första icke - vita blanksteg , sedan ta bort dem
4
Skriv följande kod : .
Sub rtrim ( $ ) {
min $ string = skift,
$ string = ~ s /\\ s + $ //,
retur $ string ,
}
Denna funktion avlägsnar endast ledande vita utrymmen i slutet av strängen . Den " s + $ " , säger att matcha vita utrymmen endast efter att alla icke - tomrumstecken , ta sedan bort dem .
5
Spara programfilen .
