ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Kopylov Boris                        2:5020/400     15 Feb 2001  05:57:53
 To : All
 Subject : Арифметика
 -------------------------------------------------------------------------------- 
 

 Hаучите пжлст. арифметике
 $userfin ||=0;
 $userfin=~tr/,/./ds; # параметр из браузера
 open (FD,"<$file");
 flock (FD,1);
 my $curfin=(<FD> [0]);
 flock (FD,8);
 close(FD);
 $curfin ||=0;
 $curfin += $userfin;
 
 open (FD,">$file");
 flock (FD,2);
 print FD $curfin;
 flock (FD,8);
 close(FD);
 Имеем:
 1.в FD только одна строка с числом в формате 999999.99
 2. если в FD лежит не 0 (например 50000.00) и $userfin = 5000, то получаем,
 как и хотели, 55000.   все прекрасно работает, если в FD хотябы 00.01
 3. если в FD 00.00 и $userfin = 5000  , то получаем 50000
 Где руки скривились?
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Арифметика   Kopylov Boris   15 Feb 2001 05:57:53   Re: Арифметика   Kopylov Boris   16 Feb 2001 03:22:45