ako vyparsovat block

[Aben Siatris]

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;

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--;


-- 
:
:. 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.