debian/extractdoc

   1 #!/usr/bin/perl -w
   2 $o= '';
   3 for (;;) {
   4     exit 0 unless defined ($_= <STDIN>);
   5     $o .= $_;
   6     last if / \-\-\-8\<\-\-\- end of documentation /;
   7 }
   8 ($before, $_, $after)= @ARGV;
   9 s,.*/,,;
  10 $of= $before.$_.$after;
  11 open F, "> $of" or die $!;
  12 print F $o or die $!;
  13 close F or die $!;
  14 print " wrote $of\n" or die $!;