請問如何刪除指定區塊？

各位高手請問如何才能將有NAME=CCC的這個區塊刪除？ QAZ {  COL=12  NAME=CCC }
例如以下文字檔,謝謝!

.....................
QAZ {
    COL=10
    NAME=AAA
}

QAZ {
    COL=11
    NAME=BBB
}

QAZ {
    COL=12
    NAME=CCC
}


TOP {
    ROW=1
    CONTEXT=BOARD
    TYPE=DRILL
    NAME=DRILLO
    POLARITY=POSITIVE
    ORIENTATION=NOT_DEFINED
    START_NAME=
    END_NAME=
    OLD_NAME=D1
}

TOP {
    ROW=2
    CONTEXT=MISC
    TYPE=DRILL
    NAME=SLOT_KNOW
    POLARITY=POSITIVE
    ORIENTATION=NOT_DEFINED
    START_NAME=
    END_NAME=
    OLD_NAME=
}
............................

s/.*{[^}]*NAME=CCC[^}]*}//g

真强大，可是我不明白一点
第一个.*不是应该贪婪吗？应该把前面全部吃掉才对啊，为什么实际上保留了
难道正则里面默认对换行符有识别？
困惑

好深奥
{[^}]*  [^}]*}
分别表示什么意思的？

这句怎么个用法？

perl -ne '$_=~s/.*{[^}]*NAME=CCC[^}]*}//g;print;' file

这样么？好象没效果呀。

To perljoker:
默认情况下, .不匹配换行, 所以.*总是从每一行的行首开始匹配

To ly5066113:
将整个文件读入一个字符串:
perl -ne 'undef $/;s/.*{[^}]*NAME=CCC[^}]*}//g;print;' file

明白了，3333q

谢谢Lonki，我还有2个问题想请教一下：
1、将整个文件读入一个字符串 的这种方法，当文件很大的时候，假设2G，程序会不会挂掉？
2、perl读文件的时候，默认是以\n（换行）当做一行的结束，我可不可以自己设定行的结束符？

To ly5066113, see my comments:

1、将整个文件读入一个字符串 的这种方法，当文件很大的时候，假设2G，程序会不会挂掉？
虚拟的够就行, 但是效率极低. 文件很大时就不要一次读入了, 每读几行就处理一次.

2、perl读文件的时候，默认是以\n（换行）当做一行的结束，我可不可以自己设定行的结束符？
$/就是用来干这个的.

非常感谢Lonki的耐心讲解！

perl -ne '$/="";print unless /NAME=CCC/;'

我的这段代码好象也可以实现楼主的需求了。