Help for this page

Select Code to Download


  1. or download this
    H: 1.000000
    B: 2,0,-1.57
    
  2. or download this
    $strASub = '';
    open(ASUBFILE,"/A/sub/$strTName") or die "can't open the asub file: $s
    +trTName : $!\n";
    ...
    $strASub .= $_;
    }
    close(ASUBFILE) or die "can't close the asub file: $strTName :$!\n";