Re: best way to keep a simple count?


Don't ask to ask, just ask
	PerlMonks

Re: best way to keep a simple count?

by salva (Canon)

on Apr 11, 2005 at 14:47 UTC ( [id://446631]=note: print w/replies, xml )

Need Help??

in reply to best way to keep a simple count?

use a Config::* module that allows writting:

  #!/usr/bin/perl

  use warnings;
  use strict;

  use Config::Properties::Simple;

  my $cfg=Config::Properties::Simple->new(scope=>'user', optional=>1);
  my $count=$cfg->getProperty(counter => 0);

  print "counter: $count\n";

  $cfg->setProperty(counter => ++$count);
  $cfg->save;
[download]

You should also use some lock to ensure that only one process reads and increments the counter.