tools/doxygen/fig2dev_postprocessor.pl

   1 #! /usr/bin/perl
   2
   3 use strict;
   4
   5 my $print = 0;
   6 my $line;
   7
   8 while($line=<STDIN>) {
   9     chomp $line;
  10     if($line=~/IMG/) {$print=1;}
  11     if($print) {print $line."\n";}
  12     if($line=~/\/MAP/) {$print=0;}
  13 }
  14 #perl -pe 's/imagemap/simgrid_modules/g'| perl -pe 's/<IMG/<IMG style=border:0px/g'