W00t!

鐃緒申鐃獣わ申600鐃淳でワ申鐃初イ鐃所ー鐃旬わ申iPad鐃緒申Kindle鐃緒申鐃宿む。鐃緒申鐃銃わ申鐃緒申 - 鐃緒申鐃塾ブワ申鐃緒申鐃熟常申鐃緒申鐃叔わ申鐃淑わ申鐃緒申
鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申椶鐃緒申鐃駿てわ申鐃緒申曚桧造鐃緒申覆鐃緒申鐃叔わ申鐃粛￥申iPhone鐃叔わ申600鐃淳はわ申呂鐃縮ワ申呂任鐃緒申鐃緒申鐃緒申鐃竣￥申鐃渋はわ申鐃塾ワ申鐃竣リか鐃緒申iPad鐃緒申鐃宿わ申鐃�epub鐃緒申鐃緒申个鐃緒申鐃緒申箸鐃緒申任鐃緒申鐃緒申任鐃緒申鐃緒申端鐃淑ハッワ申鐃夙わ申鐃緒申鐃緒け鐃叔はなわ申鐃緒申鐃緒申鐃初イ鐃所ー鐃塾ワ申鐃緒申鐃夙でわ申鐃緒申鐃緒申鐃緒申鐃書かわ申討鐃緒申泙鐃緒申鐃�
鐃熟てなブッワ申鐃殉￥申鐃緒申 - samurai20000鐃緒申bookmark
鐃緒申鐃曙す鐃緒申鐃緒申鐃緒申鐃暑。鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申櫃覆里納鐃銃逸申鐃緒申鐃緒申鐃緒申鐃緒申箸鐃緒申鐃�

鐃緒申鐃殉わ申鐃順う鐃緒申

鐃叔わ申鐃殉わ申鐃緒申鐃緒申

#!/usr/bin/env perl
use strict;
use warnings;
use File::Basename;
use File::Path;

sub clean{
    File::Path::rmtree('Payload');
}

my $src = shift;
die "usage:$0 src.ipa [dst.epub]" unless -f $src;
my $dst = shift;
if (!$dst){
    $dst = basename($src);
    $dst =~ s/\w+$/epub/;
}

system qw/unzip -q/, $src, qw/-x iTunes*/;
die $! if $!;
my $app = <Payload/*.app/book>;
clean and die "No book found in the archive" unless $app;
chdir $app;
my $updir = '../../..';
system qw/zip -q0X/, "$updir/$dst", 'mimetype';
system qw/zip -qXr9D/, "$updir/$dst", qw/ META-INF OEBPS/;
chdir $updir;
clean;
system qw{open -a /Applications/iTunes.app}, $dst;

鐃緒申鐃緒申鐃�ipa2epub鐃夙でわ申名鐃緒申鐃緒申弔鐃緒申鐃緒申鐃渋醐申鐃緒申董鐃�chmod +x ipa2epub鐃夙わ申鐃緒申鐃出￥申鐃緒申鐃夙わ申

ipa2epub path/to/thebook.ipa

鐃夙わ申鐃緒申丱鐃緒申鐃緒申肇妊鐃緒申譽�鐃夙ワ申鐃�epub鐃春ワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申如鐃�iTune鐃緒申鐃緒申録鐃殉でわ申鐃銃わ申鐃緒申泙鐃緒申鐃�

鐃緒申鐃緒申鐃藷、わ申鐃緒申鐃淑わ申鐃潤。

Enjoy!

Dan the EPUB-reading Perl Monger

鐃宿居申2011.11.16

O'Reilly鐃緒申iPhone鐃緒申鐃竣ワ申鐃叔緒申鐃述わ申鐃緒申ePub鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 @dankogai 鐃緒申離鐃緒申鐃緒申鐃竣ト￥申http://t.co/wcpvGU7Q 鐃祝￥申鐃緒申鐃塾ままわ申鐃緒申 iBooks 鐃叔英英種申鐃緒申砲覆鐃塾で￥申鐃緒申鐃渋種申鐃緒申鐃粛�鐃緒申鐃祝わ申鐃暑た鐃緒申離僖奪鐃緒申颪い鐃緒申鐃� http://t.co/Tw1dWgBDTue Nov 15 16:20:01 via Twitter for MacYuji Nakayama
nkym37

@nkym37++