Perl 分割文本文件

# test1
123
123

# test2
...
# test10
123
123

分割代码：

perl -E 'while(<>){if(/^# \[/){++$i;  open $out,">","File$i.out" or die $!; select $out}; print $_ if $out}' temp1

####
ls -rt *.out

File1.out  File2.out  File3.out  File4.out  File5.out  File6.out  File7.out  File8.out  File9.out  File10.out

gawk 方法

gawk '{print $0>(($0 ~ /^# \[/) ? ++i".out" : i".out")}' temp1