perl - 需要 perl 一行来从文件开头删除空行

Question

我有以下脚本可以从文件中删除许可证区域，但我在开头留下了一个空白行。

perl -pi~ -ne 'if (/#region License/../#endregion/) {$_ = "" if ($. == 1 || $. == 2)}' $i

Answer 1

perl -i~ -ne'
    next if /#region License/../#endregion/;
    next if !$body && /^\s+\z/;
    ++$body;
    print;
' "$i"

随意删除换行符，尽管它适用于它们。他们在那里是为了可读性。