docs/docbook/scripts/make-article.pl

   1 #!/usr/bin/perl
   2
   3 $ignore = 0;
   4
   5 print "<!DOCTYPE article PUBLIC \"-//OASIS//DTD DocBook V4.1//EN\">\n";
   6
   7 while (<STDIN>) {
   8
   9         $_ =~ s/<chapter/<article/g;
  10         $_ =~ s/<\/chapter/<\/article/g;
  11
  12         if ( $_ =~ '<articleinfo>') {
  13                 $ignore = 1;
  14         }
  15
  16         if ( $_ =~ '</articleinfo>') {
  17                 $ignore = 0;
  18                 $_ = "";
  19         }
  20
  21
  22         if (! $ignore) { print "$_"; }
  23
  24
  25 }