需要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" 

隨意刪除換行符，雖然會與他們合作。他們在那裏爲了可讀性。