ako vyparsovat block

[Aben Siatris]

> > > Co cely problem obejit dvouma pruchody:
> > > v prvnim pruchodu prejmenujes [BLOCK] na idneticke navesti:
> > > neco jako:
> > > my $no = 0;
> > > 1 while(s/(=?)\[BLOCK\]/ defined($1) ?  ("[BLOCK" . $no++ . "]") : ("[BLOCK" . --$no . "]")/g)
> > > 
> > > No a v druhem pruchodu jses v pohode a delas si co chces:-)
> > > 
> > > PS napsal jsem to zhalvy bez testovani tak, to ber jen jako priklad...
> > > mozna v tom jsou syntakticke chybky...
> > 
> > vysmolil som z toho nasledovne:
> > $file=~s/(=|<)\[(.[^\n]{1,50}?)\]/ $1 eq "=" ? ("=[".$2."-".$no++."]") : ("<[".$2."-".--$no."]")/eg;
> jeste bych ale kontroloval alespon ty < >
zakoncenia? v pociatku bloku nemusi byt hned >, moze tam byt dalsie [],
a pri <[ hladat priamo ]> alebo ] je uz bezpredmetne. to by bola
chyba syntaxe toho datoveho suboru.

inak... moooc dobra ide s tymi zamenami podla hlbky BLOK :)
ze ma to hned nenapadlo.


> ++$promena i $promena++ pricita o jednicku v jednom
> pripade se napred pricta a vrati vysledek v druhem se napred vrati
> vylsedek a pak pricte.
no jasneee :)) som ale dnes vymlety... :))


-- 
:
:. stay cool
:..			Aben Siatris
:..			aben na webcom.sk
:.:
:.: www.WebCom.sk
:.: www.LaMonde.net
:.: www.HOWTOlinux.info
:.: www.SATANICMASS.info
:
--- Gentoo binutils: /usr/bin/sex
:.: "Put four fingers in!" moaned the white-haired German shepherd as the
:.: bicycle seat sniffing hair dresser slurped her muscular melons and
:.: pushed his boney plunger into her cobwebby jam jar.