アールメカブ

Programming

prosperからコメント部分を取り出す．余りにお手軽過ぎるが，とりあえずこれでいいだろう．

#!/usr/bin/perl

$document;
 
while(<>){
 if(/begin\{document\}/){
	$document = 1;
	print "\documentclass [a4paper]{jsarticle} \n  
              \begin{document}";
		next;
	}
	elsif(/EndOfNote/){
		$flag = 1;
	}
	elsif(/footnote/){
		$flag = 0;
	}
	elsif(/end\{document\}/{
		print;
		last;
	}
	if($document and !$flag){
		print ;
		print "\n";
	}
	
}