Unix/Perl - 在模式之前删除文件的内容

Question

我有这样的文件

### SECTION 1 ###
data data
data data
### SECTION 2 ###
data data 
data data

现在我希望删除第2部分之前的所有内容.

我怎么能在Perl或Unix中做到这一点？

Answer 1

要就地编辑文件:

perl -i -ne 'print if /SECTION 2/..0' file