ako vyparsovat block

[Lukas Svoboda]

On Mon, Oct 27, 2003 at 11:26:01AM +0100, Aben Siatris wrote:
> Dňa Po 27. Október 2003 10:17 ste napísali:
> > Myslim, ze je chyba spise v navrhu...
> > 
> > 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 < >
> 
> pekneee, aspon som sa niecomu novemu naucil :))
> thanx, len by ma este zaujimala mozno pre niekoho trivialnost...
> preco $no++ je za, ale --$no je pred? :-o
> ked mozem pouzit
> $no++;
> $no--;

++$promena i $promena++ pricita o jednicku v jednom
pripade se napred pricta a vrati vysledek v druhem se napred vrati
vylsedek a pak pricte.
zkus program:
$a=10;
$b=10;
print ++$a;
print $b++;
> 
> 
> -- 
> :
> :. 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
> :.: "Harder!" whimpered the bull-dyke femme fatale as the spread-eagled
> :.: hunchback irrigated her firm mounds and reamed his steaming piston
> :.: into her mouse nibbled sanctum sanctorum.
>