Perl 分割文本文件
2020-12-08 本文已影响0人
千羽之城88
# 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