Hi List
This whole, using seek has kind put me off for the day.
Would someone be so kind as to please over look me code and if possible, point
out where I am going wrong.
Kind Regards
Brent Clark
===============================================================
open(HDATFILE, "+< $fileName.dat") or die "Cant open file $fileName.dat $!";
flock (HDATFILE, LOCK_EX) or die "Cant lock file $fileName.dat $!";
my $writePos = 0;
while (<HDATFILE>){
my $readPos = tell HDATFILE;
if(m/^p11[016]/io){
$found110 = 'y' unless m/^p110/i;
$found111 = 'y' unless m/^p111/i;
$found116 = 'y' unless m/^p116/i;
seek HDATFILE, $writePos, 0;
print HDATFILE &compareRmNames($fileName, $_);
$writePos = tell HDATFILE;
seek HDATFILE, $readPos, 0;
}else{
seek HDATFILE, $writePos, 0;
print HDATFILE $_;
$writePos = tell HDATFILE;
seek HDATFILE, $readPos, 0;
}
}
if ($found110 eq 'y'){
print "Inserting missing p110 code : $fileName <br />\n";
print "#" x 100, "<br />\n";
print HDATFILE &insertMissingPCode($fileName, 'p110');
}
if ($found111 eq 'y'){
print "Inserting missing p111 code : $fileName <br />\n";
print "#" x 100, "<br />\n";
print HDATFILE &insertMissingPCode($fileName, 'p111');
}
if ($found116 eq 'y'){
print "Inserting missing p116 code : $fileName <br />\n";
print "#" x 100, "<br />\n";
print HDATFILE &insertMissingPCode($fileName, 'p116');
}
truncate(HDATFILE, $writePos);
flock (HDATFILE, LOCK_UN) or die "Cant unlock file $fileName.dat $!";
close (HDATFILE) or die "Cant close file $fileName.dat $!";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
