#!/usr/bin/perl -w

#######################################################
# lect06_filehandle_output2
#
# adding using an output filehandle to class8_06_filehandle_input1
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-28-04
#######################################################

# let's say that this reads from a previously-created counter file

open COUNTER, "< /home/st10/counters/lect06_08_counter"
   or die "Cannot open lect06_08_counter: $!";

chomp($ct = <COUNTER>);

print "current counter value is: $ct\n";

close COUNTER; # close reading filehandle

# ...and now open writing filehandle
open COUNTER, "> /home/st10/counters/lect06_08_counter"
   or die "Cannot open lect06_08_counter for writing: $!";

$ct++;
print "reset counter to: $ct\n";
print COUNTER "$ct\n";

close COUNTER; # close output filehandle

# end of lect06_filehandle_output2