renumCS.pl の変更点

追加された行はこの色です。
削除された行はこの色です。
renumCS.pl へ行く。
 [[tipsやちょっとしたスクリプト]]
 #ref(foo)
 を
 #ref(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/－/-/;
      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*(.*)$/){
         ($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";
     }
      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";
      }
  
  }