html2cxx.pl

Delaunay三角形的网格剖分程序

#! /usr/local/bin/perl
$file = $ARGV[0]; $file=~s/\.html//;
$filo = $ARGV[1];
if($filo){
    $filo =~s/\.cxx//;
}else{
    $filo = $file;
}
open(FILE,$file.'.html');
open(NEW, '>'.$filo.'.cxx');
$first=1;$count=1;
#print NEW "#line 1 ".$file.".html\n";
while(<FILE>){
    $count++;
    if($first){
	if(/<PRE>/) {
	    $first=0; print NEW "#line ".$count.' "'.$file.'.html"'."\n";
	}
	next;
    }
    s/<A //ig;
    s/<A//ig;
    s/<\/A>//ig;
    s/HREF="(.*)">//ig;
    s/NAME="(.*)">//ig;
    s/<\/PRE>/\/*/ig;
    s/<PRE>/*\//ig;
    s/&amp;/\&/ig;
    s/&lt;/</ig;
    s/&gt;/>/ig;
    print NEW;
}
 
print NEW "*/\n";
 
print 'using now code from '.$file.".html in ".$filo.".cxx\n";