The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]




Версия для распечатки Пред. тема | След. тема
Новые ответы [ Отслеживать ]
Пожалуйста, помогите разобраться с программой, !*! halfbyte, 10-Мрт-04, 18:25  [смотреть все]
я сделал простейший счетчик на перле, который читает из файла значение, печатает его, инкрементирует, затем сохраняет обратно в файл. так вот, этот счетчик увеличивается на 4 т.е. 0, 4, 8, ...

текст программы

#!/usr/local/bin/perl

use CGI;

$cnt = "w:/new-site/cgi-bin/cnt/cnt.txt";

$temp = 0;

open (INPUT, "<$cnt");

$temp = <INPUT>;

close INPUT;

$temp = $temp + 1;

print "<span class=simpletext>$temp</span>";

open (OUTPUT, ">$cnt");
print OUTPUT $temp;
close OUTPUT;

он стал считать нормально только после того, как я начал приплюсовывать не 1, 0.25. господа программисты, скажите, что это???
у меня чуть башню не снесло, пока ломал голову над этим феноменом.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру