的Unix/Perl的 - 模式

Question

之前刪除文件的內容我有這樣

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

文件現在我想要的一切之前部分被刪除2。

如何在Perl或Unix中執行此操作？

Answer 1

perl -ne '$m = 1 if $_ =~ /SECTION 2/ ; next unless $m ; print $_;' filename > newfilename 

Answer 2

$ perl -pi -e '$_ = "" unless /SECTION 2/ .. /(*FAIL)/' file 

Answer 3

編輯就地文件：

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