okay... seems tonight is the night for regex... I have been looking at the
emails that have been flying all evening.. I have tried to implement what I
see.
For some reason, mine don't work. Others say what they got in the email
works. I try it and it don't.
The plan for the code is to read a count (looks like "BC0012=2") and add one
and replace it in the file. When I execute it, It never enters the while
loop.
Here's my code. This is the applicable part. I do close the file later. I
have also tried opening the file with +< with any luck.
sub count {
open (COUNT, "+>./count.dat") or die "cannot open countfile: $!";
flock(COUNT, 2);
while (<COUNT>){
if (m/BC0012/i){
($key, $count) = split('=',$_);
$found = 1;
$count++;
} else {
$found = 0;
}
}
Any help is appreciated!
David Gerler
Gerler Enterprises
PO BOX 16357
Chesapeake VA 23328
http://www.GerlerEnterprises.com/
Nationwide Dial-up from $12.45
http://www.EasySitesForLess.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
