_  _   ,_
/^\/^\-/ @D
~(________/ PERL.LT
|L |L
L L
Straipsniai  Funkcijos 
Funkcijos/chomp - pašalina pabaigos ženklą nuo string'o
  • chomp VARIABLE
  • chomp( LIST )
  • chomp

    Tai saugesnė chop funkcijos versija, nutrinanti nuo kintamojo galo tik "\n" reikšmę (taip pat žinoma kaip $INPUT_RECORD_SEPARATOR English modulyje). Gražina nutrintų eilutės pabaigos simbolių skaičių. Ši funkcija dažnai naudojama norint pratrinti naujos eilutės simbolius kintamuosiuose, norint tolimesniame kode išvengti šių nepastebėtų simbolių. chomp() nieko netrins jei kintamasis neturi gale "\n". Jei kintamasis funkcijai nenurodytas, chomp() suveiks ant $_. Pavizdys:

     while (<>) {
    	 chomp;	# trinam "\n" $_ kintamajam
    	 @array = split(/:/);
    	 # ...
     }

    Jei kintamasis yra asociatyvus masyvas (hash), "\n" trinama tik reikšmėse, neliečiant masyvo kintamūjų pavadinimų.

    chomp() apdoroja praktiškai betką, įskaitant ir priskyrimą:

        chomp($cwd = `pwd`);
        chomp($answer = <STDIN>);

    Jei apdorojamas sarašas kintamūjų, kiekvienas sarašo elementas apdorojamas chomp() ir gražinama ištrintų "\n" suma.

algirdas@perl.lt 2005.04.11 - $dabar