Diary/2007-5-9

iTextとかInline::Javaとか

iTextは、JavaでPDFを操作するためのライブラリ。
http://www.lowagie.com/iText/
# ロゴが「でText」に見えてしまう...
で、ふとperlから使えたら便利かなと、
Inline::Java で Perl から Java の日付関連クラスを使用するを参考に(というかそのまま)
iTextをInline::Javaつかってperlから使ってみた。動いた。

 #!/usr/bin/perl
 use strict;
 
 use Inline
 
     Java => 'STUDY',
     STUDY => [qw(
                  java.io.FileOutputStream
                  java.io.IOException
                  com.lowagie.text.Document
                  com.lowagie.text.DocumentException
                  com.lowagie.text.Paragraph
                  com.lowagie.text.pdf.PdfWriter
     )];
 
 my $doc =  com::lowagie::text::Document->new();
 my $fos = java::io::FileOutputStream->new("test.pdf");
 my $writer = com::lowagie::text::pdf::PdfWriter->getInstance($doc, $fos);
 $doc->open();
 $doc->add(com::lowagie::text::Paragraph->new("Hello World"));
 $doc->close();

とここまでやってから、perlには、PDFJがあるよなぁと思い出したり。
しかし、Inline::Javaって便利だな。Perl書けないけど。
これでCOINSとかいじると、今より楽に実験できるようになるかな？

CPANの設定をやりなおす

最初から設定をやり直したいときは、cpanのシェルを起動して

 o conf init

とする

JRubyとiText

JRubyが1.0.0RC1になってた。
というわけで、iTextをJRubyで。

 include Java
 
 require 'java'
 
 import java.io.FileOutputStream
 import java.io.IOException
 import com.lowagie.text.Document
 import com.lowagie.text.DocumentException
 import com.lowagie.text.Paragraph
 import com.lowagie.text.pdf.PdfWriter
 
 begin
   doc =  Document.new();
   fos = FileOutputStream.new("test.pdf");
   writer = PdfWriter.getInstance(doc, fos);
   doc.open();
   doc.add(Paragraph.new("Hello World"));
   doc.close();
 rescue DocumentException => e
   puts e
 rescue IOException => e
   puts e
 end

これは、便利!!

---