8.10 ファイルの最後の行を削除する

  • Tie::FIleモジュールを使用して、ファイルを配列にtieする。
use Tie::File;

tie @lines, Tie::File, $file or die;
delete $lines[-1];