TSfree 発言

On Sun, 31 Aug 2008 09:52:13 +0900
藤岡和夫 <kazuf@...> wrote:

> 　Perlならこう書く^^)条件分岐を使うのでどのような複雑な処理でも可能にな
> ります。そう考えながら、Doughertyの本を捲るとsedも条件分岐もできるんだっ
> たか^^;)
> 
> while(<>){
>     if(/^$/){
>         $vac = 1;
>     }
>     if(/^---$/ && $vac == 0){
>         print "\n---\n";
>     }elsif(/^---$/ && $vac == 1){
>         print;
>         $vac = 0;
>     }else{
>         print;
>     }
> }

　だめだ^^;)こうか・・・

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

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