Ako odstrániť všetky prázdne znaky v reťazci s regulárnymi výrazmi v Perle

V Perlu , regulárny výraz je jeden alebo viac znakov používaných tak , aby zodpovedala hodnoty v reťazcoch , ako sú špecifické listy , identifikačné znaky alebo medzerami . Môžete vytvoriť funkcie , ktoré používajú regulárne výrazy s prevádzkovateľom substitučná Perl , aby zodpovedali prázdne znaky a ich odstránenie . " ^ " Znak môžete zadať iba znaky na začiatku reťazca , " $ " vám umožní určiť iba tie na konci , alebo môžete vynechať tie a zodpovedajú všetky biele medzery v celom reťazci . Pokyny dovolená 1

Otvorte súbor programu Perl , a vložte kurzor na začiatok
2

zadajte nasledujúci kód : .

Sub trim ( $ ) {

my $ string = shift ;

$ string = ~ s /\\ s + //g ;

návrat $ string ;

}

Táto funkcia používa operátor substitúcie " s ///" , aby zodpovedala biele miesta a odstrániť ich . The " \\ s " charakter trieda odpovedá všetky prázdne znaky a nahradí ich s ničím . Inými slovami , je to odstráni . Vráti reťazec , ktorý neobsahuje žiadne prázdne znaky kdekoľvek
3

zadajte nasledujúci kód : .

Sub LTrim ( $ ) {

my $ string = shift ;

$ string = ~ s /^ \\ s + //;

vrátite $ string ;

}

Táto funkcia odoberie iba predné biele miesta pred akýmikoľvek inými znakmi . V " ^ \\ y " hovorí , aby zodpovedal biele medzery iba do prvej non - biely medzerou , potom je odstrániť
4

zadajte nasledujúci kód : .

Sub RTrim ( $ ) {

my $ string = shift ;

$ string = ~ s /\\ s + $ //;

návrat $ string ;

}
iba

Táto funkcia odstraňuje vedúcich biele medzery na konci reťazca . " S + $ " hovorí odpovedať bielych miest až po všetky non - bielych medzier , potom ich odstráňte .
5

Uložte súbor programu .

• Predchádzajúca strana: Ako tlačiť čísla v Perl Script 
• Ďalšia strana: Ako sa pripojiť k databáze Oracle S Perl