#!/usr/bin/perl -w # Tries to get what a user would want to know from scripts in standard input or # @ARGV and send it to stdout. # Used by http://www.cv.nrao.edu/~rreid/software/sd2h # # Changes: # 2009/12/09: Options! Most importantly -h to HTMLize the output. Be sure to # get a copy of the corresponding CSS, # http://www.cv.nrao.edu/~rreid/software/style.css # -d: Turn on debugging. use strict; my $indent = ' '; my $dohtml = 0; my $debug = 0; use Getopt::Long; GetOptions('html' => \$dohtml, 'debug' => \$debug); sub ehprint { my $line = $_[0]; if ($dohtml) { $line =~ s/</g; $line =~ s/>/>/g; } print $line; } my $nopendiv = 0; # Counts open