scripts/gbtoxhtml-all.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 my $gbtoxhtml = "$ENV{AONPATH}/bin/gbtoxhtml.pl";
   6 my @bookCodes = qw{ 01fftd  02fotw  03tcok  04tcod
   7                     05sots  06tkot  07cd    08tjoh
   8                     09tcof  10tdot  11tpot  12tmod
   9                     13tplor 14tcok  15tdc
  10                     01gstw  02tfc   03btng
  11                     rh
  12                 };
  13
  14 foreach my $bookCode (@bookCodes) {
  15     print "\n" . ('~' x 10) . " $bookCode " . ('~' x 10) . "\n\n";
  16     print qx{$gbtoxhtml $bookCode};
  17 }