作者: 藤岡和夫
日時: 2008/8/31(09:52)
On Sun, 31 Aug 2008 01:17:57 +0900
藤岡和夫 <kazuf@...> wrote:

> 　そうですね。空行が---行の直前にあったりなかったりするのを、あることに
> 調節するだけなら、
> 
> /^$/d
> s/^---$/\n&/
> 
> が簡単そう。ただ、この場合、必要な空行を削除してしまうのが難点。それが嫌
> なら複行処理を使うしかないですね。

　Perlならこう書く^^)条件分岐を使うのでどのような複雑な処理でも可能にな
ります。そう考えながら、Doughertyの本を捲るとsedも条件分岐もできるんだっ
たか^^;)

while(<>){
    if(/^$/){
        $vac = 1;
    }
    if(/^---$/ && $vac == 0){
        print "\n---\n";
    }elsif(/^---$/ && $vac == 1){
        print;
        $vac = 0;
    }else{
        print;
    }
}

藤岡 和夫
kazuf@...
日曜プログラマのひとりごと http://homepage1.nifty.com/kazuf/renewal.html