"hanajipon" <hanajipon@mail.goo.ne.jp> writes:

> perl の１ライナーを使って「ファイルの１〜３行目を削除」と「ファイルの後ろ３
> 行を削除」
> というのをしたいのですが、これって１ライナーで可能でしょうか？
> 前者は
>     perl -i -ne 'print unless $. == 1..3'
> で出来たのですが、
> 後者は出来るのでしょうか？

perl -e 'open F, "|-", "ed $ARGV[0]"; print F "-3,.d\nwq\n"'  edit_file