1#!/usr/bin/perl 2 3# This small perl script produce html-formatted output for postings into 4# "documentation" area of http://sourceforge.net/projects/husky 5# 6# (c) Stas Degteff 2:5080/102 7 8print "<pre>\n"; 9while( <> ){ 10 chomp; 11 12 if( /\[(\d+)\]/ ){ print "<a name=$1></a>"; } 13 s/^(.*\[\d+\].*)$/<h3>$1<\/h3>/; 14 s/^(Q: .*)$/<font color=blue>$1<\/font>/; 15 s/^(A:.*)$/<\/font><font color=brown>$1<\/font>/; 16 s/ *\/-+\/ */<hr>/; 17 s/Q(\d+)(\. .*)$/<a href=\#$1>Q$1$2<\/a>/; 18 19 print "$_\n"; 20} 21print "</pre>\n"; 22