preproc.pl

麻省理工的计算光子晶体的程序

#!/usr/bin/perl -w

my $amcode = 0;

while (<>) {
  if ($amcode && /^(\\end\{comment\}|\\end\{verbatim\})$/) {
    $amcode = 0
  } elsif ($amcode) {
    print $_;
  } elsif (/^(\\begin\{comment\}|\\begin\{verbatim\})$/) {
    $amcode = 1;
  }
}