Bet nejaugi blogai, gal eitu is viso universalia validacija pasidaryti taip, kad parametrai funkcijai tai tai ka reikia validuoti konkreciai paduodami masyve, tada sau ramiai prasuki visas taisykles ir viskas, kitu atveju kazko kito reikia kitus dalykus paduodi, aisku reiketu susigalvot varikliuka...

"Bamba" <none@none.none> wrote in message news:afc19505ae4b3fa94ce0845017bc73a5$1@computer.newsgroups.lt...
> Panasiai ir padariau.
> 
> ^[0-9+]{1}[0-9/-]{1,19}$
> 
> Paskui su kitais dviem expr patikrinu kad nebutu simboliu - / daugiau nei 
> vienas.
> 
> Gaila, kad i viena nepavyko sukyst. 
> 
> 
>> perlu:
>> $nr = '+370-1258';
>> print "ok" if 
>>    ($nr =~ /^(+|d)[-/0-9]+$/ &&
>>     $nr =~ tr/-/-/ <= 1 &&
>>     $nr =~ tr///// <= 1 &&
>>     $nr =~ tr/[0-9]/[0-9]/ >= 2 &&
>>     $nr =~ tr/[0-9]/[0-9]/ <= 20);    
> 
> 
>