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 -pi -e '$_ = "" unless /SECTION 2/ .. /(*FAIL)/' file

于 2012-07-04T09:46:40.187 に答える

score 0 · Accepted Answer

0

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

于 2012-07-04T09:27:08.987 に答える

3 に答える 3