Perl_prosperNote
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(5180d)
日録2007_11月(6186d)
Last-modified: 2007-11-30 (金) 15:48:10 (6187d)