Help for this page

Select Code to Download


  1. or download this
    $ncat += 1;
    $init_name = "init_$ncat";
    ...
    $l =~ s/#init_name/$init_name/gi;
    print FILE $l;
    }
    
  2. or download this
    $ncat += 1;
    $init_name = "init_$ncat";
    ...
    $l =~ s/#init_name/$init_name/gi;
    print FILE $l;
    }