Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

need simple sub_routine

Jun 17, 1999, 4:05 PM
kd
Novice (8 posts)
Jun 17, 1999, 4:05 PM
Post #1 of 2
Views: 375
Shortcut
Quote Reply
need simple sub_routine
I want to generate invoice numbers in sequence (for a shopping cart application)
I need a sub_routine to open a counter.txt file, grab the next number, update the counter.txt file and close the file. should also have file locking.
a pretty simple sub {for someone who knows perl that is} Any help would be appreciated.
Jun 17, 1999, 4:12 PM
CEGlobe
User (187 posts)
Jun 17, 1999, 4:12 PM
Post #2 of 2
Views: 368
Shortcut
Quote Reply
Re: need simple sub_routine In reply to
Code:

open (DB,">path_to_file") or exit;
$count = <DB>;
$invoicenumber = $count;
$count++;
flock(DB, 2) or die "Error: $!\n";
print DB $count;
close DB; # automatically removes file lock
return;
close(DB);
}

------------------