How to delete the lines from text file?

[priyankapendkar]

Hi

i am having an text file

test1.txt contains the following data:

Abcd
2222
ERROR:duplicate
ERROR:Getinstrument
ERROR:duplicate
www
xxx
 

here i want the output which only contain the word error

if i use the command :v/ERROR/d

then output :

ERROR:duplicate
ERROR:Getinstrument
ERROR:duplicate
 

now i want the output which contains the line other than
ERROR:duplicate

output should be only ERROR:Getinstrument

can anybody help me in this, how to get the lines other than ERROR:duplicate???

Thanks,
Priyanka

[miller]

Use a hash to match and skip duplicate lines:

perlfaq4 - How can I remove duplicate elements from a list or array?

- Miller

[gaurav khurana]

input
*************

/home/user> cat inputfile
Abcd
2222
ERROR:duplicate
ERROR:Getinstrument
ERROR:duplicate
www
xxx
/home/user> 

program
*************

/home/user> cat > prog
open(FH,"inputfile");
open(FH1,">","outputfile");
 
while(<FH>)
{
 if ( $_ =~ m/ERROR/)
 {
   if( $_ =~ m/duplicate/)
   {
    ## When Error & duplicate are there in the input we are not writing it to output file
   }
   else
   {
   ##prinitng those lines which are not having error or duplicate
   print FH1 $_;
   }
 }
}
close(FH);
close(FH1);

running program
********

/home/user> perl prog

output
*******

/home/user> cat outputfile
ERROR:Getinstrument
/home/user>

hope this can work