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

Question

我有这样的文件

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

现在我希望删除第 2 节之前的所有内容。

我如何在 Perl 或 Unix 中做到这一点？

score 6 · Accepted Answer

6

要就地编辑文件：

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

于 2012-07-04T09:47:09.950 回答

score 0 · Accepted Answer

0

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

于 2012-07-04T09:27:08.987 回答

score 0 · Accepted Answer

0

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

于 2012-07-04T09:46:40.187 回答

3 回答 3