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"

改行は問題なく機能しますが、自由に削除してください。それらは読みやすさのためにあります。