Skip to content

Instantly share code, notes, and snippets.

@esin

esin/gist:8473337

Created January 17, 2014 13:26
Show Gist options
  • Save esin/8473337 to your computer and use it in GitHub Desktop.
Save esin/8473337 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.pl
#/usr/bin/perl -w
open (UC, '<usage_count');
my $l = <UC>;
$l =~ s/(\d+)/$1+1/ge;
close (UC);
open (UC, '>usage_count');
print (UC $l);
close (UC);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment