Win32::PowerPoint - Charsbar::Note

Putty越しのコンパイル祭りの合間にちょろっと逃避。PODにはSporkやSporxの変換用なんて書いておいたけど、もちろん本意がPlagger::Plugin::Publish::PowerPointにあることは言うまでもない。とりあえずこんな感じで。もうちょいまわりを書けばPPPPPになるはず。

use Win32::PowerPoint;

my $pp = Win32::PowerPoint->new;
$pp->new_presentation;

foreach my $entry (@entries) {
  $pp->new_slide;
  $pp->add_text($entry->title_text, { size => 40, bold => 1 });
  $pp->add_text($entry->body_text);
}

$pp->save_presentation('slide.ppt');
$pp->close_presentation;

http://search.cpan.org/dist/Win32-PowerPoint/

Win32::PowerPointを名乗るのであれば、ActivePresentationとかActiveSlideとかも明示的にアクセサつくるべきだなあとか、アップしてから思った。そのうち直す。