アールメカブ

• 追加された行はこの色です。
• 削除された行はこの色です。
• Perl_prosperNote へ行く。
• Perl_prosperNote の差分を削除

[[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";
	}
	
 }