ssize.pl

   1 #! /usr/bin/perl -w
   2 use diagnostics;
   3 use strict;
   4
   5 my $body = 0;
   6 my $filename = shift;
   7
   8 while (<>)
   9 {
  10         if (/^<BODY/)
  11         {
  12                 $body = 1;
  13                 $_ = <>;
  14                 $_ = <>;
  15                 print "<!--#include virtual=\"$filename.header.ssi\" -->\n";
  16         }
  17         next unless $body;
  18         last if /^<\/BODY/;
  19         print;
  20 }
  21
  22 print "<!--#include virtual=\"footer.ssi\" -->\n";
  23