#!/bin/perl # Grammar HTML to a form of HTML suitable for cut&paste as fragments. # Remove definition links. # In # ==> or id="fragXXX" # # ?? # In # => $DOC = 1 ; if ( $DOC ) { print <<'EOF' SPARQL Grammar Fragments EOF } while(<>) { s/\// ; print ; } if ( $DOC ) { print <<'EOF' EOF }