#!/\\perl # use strict; use warnings; # Put the file name in a string variable # so we can use it both to open the file # and to refer to in an error message # if needed. my $fileName ; my $success ; my $on = 0; # Hard-code the name of the file we're going to read. # This is the script itself. $fileName = '/\\rat09awp\ccscripts\Islam\test.log'; # Attempt to open the file. We create a file handle called "IN". # Open returns a true value if it succeeded, an undefined # value if it didn't succeed. $success = open( IN, "<$fileName" ); while ( ){ if ($_ =~ /Duplicate remedy_id:/){ print $_; $on = 1; } elsif($on){ if ($_ =~ /Duplicate ip_address:/) { last; } else{ print $_;} } # We have read all the lines from the file. # Close the file. } close( IN );