view release on metacpan or  search on metacpan

bin/html2ps  view on Meta::CPAN

    nb: no;
  }
  toc {
    heading: "<H1>Table of Contents</H1>";
    level: 6;
    indent: 1em;
  }
  titlepage {
    content: "<DIV align=center>
      <H1><BIG>$T</BIG></H1>
      <H2>$[author]</H2></DIV>";
    margin-top: 4cm;
  }
  font {
    times {
      names: "Times-Roman
              Times-Italic
              Times-Bold
              Times-BoldItalic";
    }
    new-century-schoolbook {

bin/html2ps  view on Meta::CPAN

  s/<[^ ]$R//gi;
  s/\n*$//;
  $tex="\\batchmode\\magnification=$mag\\hsize=40cm\\nopagenumbers\n"
 ."\\def\\lft{\\left}\\def\\rgt{\\right}\n\\setbox0=\\hbox{\$$st$di".$_."\$}\n"
 ."\\immediate\\write0{$prog: \\the\\ht0: \\the\\dp0}\\box0\n\\end\n";
}
sub Getopts {
  local($optlist)=@_;
  local(@args,$_,$opt,$opts,$rest,$olist,$plist,$found,@popts);
  local($errs)=0;
  local($[)=0;
  @args=split( /\|/, $optlist );
  for $opt (@args) {
    if(substr($opt,-1,1) ne ':') {$olist.=$opt}
    else {$plist.=$opt}
  }
  @popts=split(/:/,$plist);
  while(@ARGV && ($_=$ARGV[0]) =~ /^-(.*)/) {
    $opt=$1;
    if($opt=~/^-/ && $optalias{$'}) {$opt=$optalias{$'}};
    if($opt =~ /^[$olist]+$/) {