Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte súbor programu v Perlu . Zadajte nasledujúci kód :
otvorený dát , " < text.txt " ;
funkcia " otvorené " otvorí súbor poskytnutý názov súboru vo výraze a uloží obsah v " DATA " file handle . " < " Špecifikuje súbor otvoriť v režime " čítanie "
2
zadajte nasledujúci kód : .
Moje @ lines = ; Tento riadok vytvorí zoznam Perl s názvom " @ linky " , ktoré šetria každý riadok zo súboru ako nový prvok v zozname , vrátane koniec - of - line postáv . Typ nasledujúci kód : sub trim ( $ ) { my $ string = shift ; $ string = ~ s /\\ s + $ //; return $ string ; . } Táto funkcia používa regulárny výraz pre odstránenie koncové prázdne znaky z reťazca odovzdaného ako parameter Zadajte nasledujúci kód : for ( $ i = 0 ; $ i < @ liniek ; $ i + + ) { @ liniek [ $ i ] = trim ( @ linky [ $ i ] ) ; } Tento kód prechádza každý prvok v zozname , a odovzdá ho k " trim " funkciu , ktorú ste vytvorili , a potom prepíše prvku s rovnakými údajmi , ale bez konca - of - line charakter . Uložte súbor programu .
3
4
5