刪除包含相同字符串的行

Question

如果行IN(..)和行OUT(..)在其括號中具有相同的字符串，請刪除行OUT(..)。

我的輸入文件是這樣的：

IN(ABC); 
IN(DEF);   
IN(FGH);   
OUT(QWE);  
OUT(ABC);  
OUT(DEF); 

我所需的輸出是：

IN(ABC); 
IN(DEF); 
IN(FGH); 
OUT(QWE); 

Answer 1

在假設所有IN(...)線是OUT(...)線之前（即排序），下面應該工作：

my %in; 
while (<DATA>) { 
    if (/^IN\((.*?)\)/) { 
     $in{$1} = 1; 
    } elsif (/^OUT\((.*?)\)/) { 
     if ($in{$1}) { 
      next; 
     } 
    } 
    print $_; 
} 

__DATA__ 
IN(ABC); 
IN(DEF); 
IN(FGH); 
OUT(QWE); 
OUT(ABC); 
OUT(DEF); 

這個想法是使用散列來跟蹤其中IN值已被使用。逐行瀏覽數據，如果是IN行，則存儲該值並打印行。如果它是OUT行，但它不在已識別的IN值的列表中，請將其打印出來，否則請跳過它。