test na cislo

[Marian Cavojsky]

On Thu, Oct 24, 2002 at 03:30:17PM +0200, Jiri Polcar wrote:
> On Thu, Oct 24, 2002 at 02:12:32PM +0200, Honza Pazdziora wrote:
> > On Thu, Oct 24, 2002 at 02:07:24PM +0200, Jiri Polcar wrote:
> > > 
> > > Pokud udelam,
> > > 
> > >     $min = '3231g42';
> > > 
> > >     {
> > >         local $^W = 0;
> > >         $min += 0;
> > >     }
> > > 
> > > bude v $min `3231'. To ovsem meni to, co uzivatel zada. Ten zadal
> > 
> > Stale jste nerekl, co je to, co uzivatel z^a'da'.
> 
> Uzivatel z^a'da', aby kdyz zada cislo v libovolnem prijatelnem tvaru,
> tak aby bylo akceptovano, pouzito pri vypoctu, ...  
> Naopak, pokud zada vec, ktera neni cislem, aby o tom byl zpraven a
> vypocet se neprovedl.
> 
> Z chovani perlu pri (napr.) scitani je jasne, ze perl vi (umi poznat),
> jestli to cislo je nebo neni, takze pouzivani  regularnich vyrazu pro
> test znamena duplikaci prace, kterou  uz perl udelal. Jde o to, jak z
> nej tu informaci dostat.
> 

/^-?\d+(.\d+)?([e|E][+|-]\d+)?$/

Schovajte si to do funkcie a nebudete vediet o regularnom vyraze.
(Dufam, ze v nom nie je chyba)

-- 
Marian Cavojsky <cavojsky @ soria-grey.sk>
Spravca siete, Soria & Grey s.r.o, reklamna agentura