Prosim o radu v Perlu

From: Marek (marekxw@seznam.cz)
Date: 06. 12. 2003, 18:32 CET


Mam takovy programovaci problem - mam textovy soubor ktery ma kolem 100
radku. Na nekterych radkach se vyskituje slovo (znacka) #B# pro zacatek
a na nekterem z dalsich zase #E# pro konec a takhle se to strida. Ja bych
potreboval z neho vypsat do jineho souboru jen radky mezi temi znackami
#B#, #E# ale i vcetne tech, kde ty znacky jsou. Delam to v Perlu, ten
soubor mam nacteny do pole a vyplodil jsem zatim takovou konstrukci s
"prepinacem" ktera sice funguje ale zda se mi na ten ucel takova dost
divoka a mam neodbitny dojem ze to jde trochu jednoduseji. Ale nejsem v
Perlu zadny guru a bohuzel se mi tim obrovskym anglickym manualem vetsinou
nepodari prolouskat k tomu co potrebuju :-( Tady je ten kousek kodu kterym
to delam. Radky vstupniho souboru mam v poli @pole vcetne koncu radku:

$prepinac=0;
for($i=0;$i<@pole;$i++){
   $line=$pole[$i];
   if(!$prepinac){
      if(-1!=index($line,"#B#")){
         $prepinac=1;
      }
   }else{
      if(-1!=index($line,"#E#")){
         $prepinac=0;
         print (VYSTUP "$line");
         # to aby se vypsal i ten radek s #E#
      }
   }
   if($prepinac){
      print (VYSTUP "$line");
   }
}

Nevedel by prosim vas nekdo jak a jesli vubec by se to dalo zjednodusit?
Vsiml jsem si, ze je tady par programatorskych guru. :-)

Diky za pripadnou pomoc, Marek K. 


____________________________________________________________
PC DEXX za 16.990 s DPH! Athlon XP 2200+, CDRW, 80G, 17" monitor. Poslední
levný nákup před Vánoci! http://ad2.seznam.cz/redir.cgi?instance=65991%26url=http://www.dexx.cz/frame_Narsil_16a.htm



This archive was generated by hypermail 2.1.3 : 06. 12. 2003, 18:32 CET