note
bikeNomad
This is from Vim. I just went:<p>
:ru! syntax/2html.vim<p>
Note that it doesn't handle <code>[]</code> constructs; it could easily be made to do so by adding to the 2html.vim file. I've also used perltidy to make HTML; it too would have to be post-filtered.
<pre>
<font color="#a52a2a"><b>package</b></font><font color="#2e8b57"><b> XX;</b></font>
<font color="#a52a2a"><b>sub</b></font><font color="#008b8b"> </font><font color="#008b8b">_create_accessors</font>
{
<font color="#a52a2a"><b>my</b></font> <font color="#008b8b">%orderObjectFields</font> = <font color="#008b8b">@_</font>;
<font color="#a52a2a"><b>foreach</b></font> <font color="#a52a2a"><b>my</b></font> <font color="#008b8b">$field</font> ( <font color="#a52a2a"><b>keys</b></font> <font color="#008b8b">%orderObjectFields</font> )
{
<font color="#a52a2a"><b>my</b></font> <font color="#008b8b">$default</font> = <font color="#008b8b">$orderObjectFields</font>{<font color="#008b8b">$field</font>};
<font color="#a52a2a"><b>no strict</b></font> <span style="background-color: #f2f2f2"><font color="#ff00ff">'</font></span><span style="background-color: #f2f2f2"><font color="#ff00ff">refs</font></span><span style="background-color: #f2f2f2"><font color="#ff00ff">'</font></span>;
*{ __PACKAGE__ . <span style="background-color: #f2f2f2"><font color="#ff00ff">"</font></span><span style="background-color: #f2f2f2"><font color="#ff00ff">::</font></span><font color="#008b8b">$field</font><span style="background-color: #f2f2f2"><font color="#ff00ff">"</font></span> } =<font color="#008b8b"> </font><font color="#a52a2a"><b>sub</b></font>
<font color="#008b8b"> </font>{
<font color="#a52a2a"><b>my</b></font> <font color="#008b8b">$value</font> =
( <font color="#a52a2a"><b>scalar</b></font> <font color="#008b8b">@_</font> > <span style="background-color: #f2f2f2"><font color="#ff00ff">1</font></span> ? <font color="#008b8b">$_</font>[<span style="background-color: #f2f2f2"><font color="#ff00ff">0</font></span>]->{<font color="#008b8b">$field</font>} = <font color="#008b8b">$_</font>[<span style="background-color: #f2f2f2"><font color="#ff00ff">1</font></span>] : <font color="#008b8b">$_</font>[<span style="background-color: #f2f2f2"><font color="#ff00ff">0</font></span>]->{<font color="#008b8b">$field</font>} );
<font color="#008b8b">$value</font> = <font color="#008b8b">$default</font> <font color="#a52a2a"><b>unless</b></font> <font color="#a52a2a"><b>defined</b></font> <font color="#008b8b">$value</font>;
<font color="#008b8b">$value</font>;
};
}
}
</pre>
103582
103582