Perl_prosperNote - RとLinuxと...

RとLinuxと...


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";
	}
	
}
 
Link: Programming(3184d) 日録2007_11月(4190d)
Last-modified: 2007-11-30 (金) 15:48:10 (4191d)