Will it work?
open (TEST, C:\\sample.log);
my $valcount=0;
my $missvalue = 1;
while (TEST)
{
if(/value : (\d+)/)
{
$val = $1;
$val = $val - 1 if($val 0);
if ($valcount != $val)
{
$valc = $valcount + 1 ;
print \nMissing $valc
Once you close the file, memory for the file handle will be deallocated.
You can unlink file using the original file name.
unlink (abc);
-Original Message-
From: Jeff Westman [mailto:[EMAIL PROTECTED]
Sent: Thursday, April 01, 2004 2:02 AM
To: perl_help
Subject: Is this possible? (file