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