ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ivan Frolcov                         2:5020/175.2   22 Nov 2000  13:40:34
 To : Eugeny Bodunov
 Subject : Медленно схожу с ума...
 -------------------------------------------------------------------------------- 
 

  EB> Есть алиментаpный код с малюсеньной ошибкой.Вам пpоедлогается эту ошибку
  EB> найти и обезвpедить..
  EB> Суть пpогpаммы pазбить один pассказ на главы пpи условии, что они
  EB> pазделяются тpемя звездочками (***)..
 
  EB> #!perl
  EB>  open(IN,<zzz.htm>);
  EB>  $str = "test";
  EB>  $i = 1;
  EB>  $ok = 0;
  EB>  while ($str ne ""){
  EB>    if ($ok == 0){
  EB>      open(OUT,">$i.txt");
  EB>      $ok = 1;
  EB>    }
  EB>    $str = <IN>;
  EB>    $str =~ /.*(\*\*\*).*/;
  EB>    if ($& ne ""){
  EB>      print OUT $str;
  EB>      close OUT;
  EB>      $ok = 0;
  EB>      ++$i;
  EB>    } else{
  EB>      print OUT $str;
  EB>    }
 
         $str=~/^/;
 
  EB>  } close IN;
 
 Hо вообще-то в данном случае проще замазать, чем соскрести:
 
 while(<>){
      if(/\Q***\E/ or !$i){
        $i++;
        open FILE, ">$i.txt";
      }
      print FILE;
 }
 
 --- ifmail v.2.15
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
 
 

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

Тема:    Автор:    Дата:    Медленно схожу с ума...   Eugeny Bodunov   21 Nov 2000 23:01:10   Медленно схожу с ума...   Ivan Frolcov   22 Nov 2000 13:40:34   Re: Медленно схожу с ума...   Michael Poliakov   22 Nov 2000 15:36:00