renumCS.pl

tipsやちょっとしたスクリプト

foo

を

foo.out

に変換

use strict;

my $levelOffset=0;
my $level = 1;
my @csnum;
$csnum[$level]=0;


my ($l, $t, $s);
my $lv;

while(<>){
    chop;
    y/０/0/;
    y/１/1/;
    y/２/2/;
    y/３/3/;
    y/４/4/;
    y/５/5/;
    y/６/6/;
    y/７/7/;
    y/８/8/;
    y/９/9/;
    y/．/./;
    y/−/-/;

    if( /^\s*(\d+)(?:\s*[-.]\s*([-\s\d.]+))?\s*\.?\s*(.*)$/){
        ($l, $t, $s)=($1, $2, $3);
        print STDERR "<$l><$t><$s>\n";
        $lv = 1;
        if($t ne ""){
            ++$lv while( $t=~/\d+/g );
        }
        print STDERR "lv=$lv\n";
        if( $lv-$levelOffset == $level){
            $csnum[$level]++;
        }
        elsif( $lv-$levelOffset < $level ){
            $levelOffset =0;
            $level = $lv;
            $csnum[$level]++;
            $#csnum = $level;
        }
        elsif( $lv == $level+1){
            ++$level;
            $csnum[$level]=1;
        }
        else{
            # section too deep
            $levelOffset = $lv-$level-1;
            print STDERR "leveloffset=$levelOffset\n";
            ++$level;
            $csnum[$level]=1;
        }
        
        print "   " x $level;
        print join(".", @csnum[1..$level]);
        print " $s\n";
    }
    else{
        print "$_\n";
    }

}