ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Fedor Krusenshtern                   2:5030/566.27  11 Mar 2001  17:34:26
 To : Nikolay Pichtin
 Subject : Rexep
 -------------------------------------------------------------------------------- 
 

 
  Как-то в Суббота Март 10 2001 00:11, Nikolay Pichtin писал All:
 
  NP>                            Hочной привет тебе All !
 
  NP>  Есть файл следующего содержания:
 
  NP> |text1|text2|text3|text4|text5
  NP> |||||
  NP> |text11||||
  NP> |text111|text222||text333|
 
  NP> и т.д.
 
  NP>  Hеобходимо проверить есть ли в конце строки |
  NP> и если есть, то сколько.
 
 while(<input>){
  chomp($_); 
  ($stk,$shunk)=/(.*)(\|*)/;
  $_=$shunk; 
  print length; 
 } 
                 До встреч, до добрых встреч.
 --- Fid0Ed v1.60
  * Origin: @ORIGIN (2:5030/566.27)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Rexep   Nikolay Pichtin   10 Mar 2001 01:11:27   Re: Rexep   Vladimir Podgorny   10 Mar 2001 14:08:35   Re: Rexep   Artem Chuprina   11 Mar 2001 16:05:03   Re: Rexep   Vladimir Podgorny   11 Mar 2001 16:31:25   Rexep   Fedor Krusenshtern   11 Mar 2001 17:34:26