需要perl one liner来从文件开头删除空白行

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"

尽管可以使用它们，但请随意删除换行符。它们是为了便于阅读。