河野真治 @ 琉球大学情報工学です。

In article <btatm4$q5r$1@nn-os105.ocn.ad.jp>, "hanajipon" <hanajipon@mail.goo.ne.jp> writes
> perl の１ライナーを使って「ファイルの１〜３行目を削除」
>     perl -i -ne 'print unless $. == 1..3'

      print if (1..3)

でいいんじゃないかな。

>と「ファイルの後ろ３行を削除」
> 後者は出来るのでしょうか？

ふむ。

In article <20040105230610-2190H.1000@sox.m-jy.net>,Mizuno <mizuno@m-jy.net> writes
> perl -ne 'print pop @a if unshift(@a, $_)>3;'

なるほど。

    $a[0] = <>; $a[1] = <>; $a[2] = <>;
    while(<>) { push(@a,$_); print shift(@a); }

なんてのを思い付きますが...  one liner じゃないじゃん。あはは。

---
Shinji KONO @ Information Engineering, University of the Ryukyus, 
河野真治 @ 琉球大学工学部情報工学科,