ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Oleg Prokopyev                       2:5020/400     23 Mar 2002  14:41:28
 To : Andrew Ladutsko
 Subject : Re: <none>
 -------------------------------------------------------------------------------- 
 

 
 
 можно еще что нить в таком духе   if($a=~ m/^(\d+\.?\d*|\.\d+)$/)   {
 ... }
 
 или
 
 в POSIX есть функция strtod - в perldoc - е там даже пример есть как ее
 использовать ...
 Andrew Ladutsko wrote:
 
 > 
 > Hi, All!
 > 
 > Как удостовериться, что передаваемая программе переменная - вещественное число
 > больше нуля?
 > 
 > Единственное, что приходит в голову:
 > 
 > if ($a*1 && $a>0) { ... }
 > 
 > Bye, Andrew.
 > See you on the other side.
 
 -- 
 Regards,
 Oleg Prokopyev
 OAP4-RIPE
 --- ifmail v.2.15dev5
  * Origin: UA.GU (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    <none>   Andrew Ladutsko   23 Mar 2002 11:36:17   Re: <none>   Boris R. Bondarchik   24 Mar 2002 23:22:11   Re: <none>   Artem Chuprina   24 Mar 2002 00:12:37   Re: <none>   Andrey Sapozhnikov   25 Mar 2002 15:42:52   Re: <none>   Oleg Prokopyev   23 Mar 2002 14:41:28   Re: <none>   Eugene Peter   22 Apr 2002 17:31:44