test na cislo

[Marian Cavojsky]

On Thu, Oct 24, 2002 at 04:31:54PM +0200, Marian Cavojsky wrote:
> On Thu, Oct 24, 2002 at 04:29:15PM +0200, Marian Cavojsky wrote:
> > 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+)?$/
> > 
> Samozrejme, ze je tam chyba.
> 
> /^-?\d+(\.\d+)?([e|E][+|-]\d+)?$/
> 
Posledna uprava:

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

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