如何使用perl regex查找只有一組括號的行？

Question

我行的這些行的文件，例如：

row 1 (ddkdkdkdeieie) (ddkdkdkdeieie) (ddkdkdkdeieie) 
row 2 (ddkdkdkdeieie) 
row 3 (ddkdkdkdeieie) (ddkdkdkdeieie) 
row 4 (ddkdkdkdeieie) 

我試圖找到與只有一組圓括號行的模式。在上面的例子中，這將是第2排和4

我試過，但用perl正則表達式不工作....

 /^\(.*\)$/ 

Answer 1

或許下面會有所幫助：

use strict; 
use warnings; 

while (<DATA>) { 
    print if !/(?:\).*\()/; 
} 

__DATA__ 
row 1 (ddkdkdkdeieie) (ddkdkdkdeieie) (ddkdkdkdeieie) 
row 2 (ddkdkdkdeieie) 
row 3 (ddkdkdkdeieie) (ddkdkdkdeieie) 
row 4 (ddkdkdkdeieie) 

輸出：

row 2 (ddkdkdkdeieie) 
row 4 (ddkdkdkdeieie)