• R/O
  • SSH
  • HTTPS

sotp: Commit


Commit MetaInfo

Revision114 (tree)
Time2009-09-02 19:12:08
Authormiyabe

Log Message

(empty log message)

Change Summary

Incremental Difference

--- reiki/trunk/tools/read-title.pl (revision 113)
+++ reiki/trunk/tools/read-title.pl (revision 114)
@@ -42,13 +42,12 @@
4242 print "$text\n";
4343
4444 my $srcText = $text;
45- $text = encode('euc-jp', $text);
4645 my $n = $mecab->parseToNode($text);
4746 $text = '';
4847 $n = $n->{next};
4948 while ($n->{next}) {
5049 my $f = $n->{feature};
51- $f = decode('euc-jp', $f);
50+ $f = decode('utf8', $f);
5251 my @f = split(',', $f);
5352 $text .= $f[7];
5453 $n = $n->{next};
--- reiki/trunk/tools/make-index.pl (revision 113)
+++ reiki/trunk/tools/make-index.pl (revision 114)
@@ -44,14 +44,13 @@
4444 }
4545
4646 my $srcText = $text;
47- $text = encode( 'euc-jp', $text );
4847 my $n = $mecab->parseToNode($text);
4948 $n = $n->{next};
5049 while ( $n->{next} ) {
5150 my $f = $n->{feature};
52- $f = decode( 'euc-jp', $f );
51+ $f = decode( 'utf8', $f );
5352 my $w = $n->{surface};
54- $w = decode( 'euc-jp', $w );
53+ $w = decode( 'utf8', $w );
5554 my @f = split( ',', $f );
5655 if ($f[0] ne '助詞') {
5756 if (!$self->{word}->{$w}) {
--- reiki/trunk/htdocs/lib/Ajino.pm (revision 113)
+++ reiki/trunk/htdocs/lib/Ajino.pm (revision 114)
@@ -42,6 +42,7 @@
4242 $session->start_resource( *STDOUT, "style/pdf/$file" );
4343 binmode(STDOUT);
4444 open( IN_IMG, "$rsrcDir/$file" );
45+ binmode(IN_IMG);
4546 while (<IN_IMG>) { print; }
4647 close(IN_IMG);
4748 $session->end_resource(*STDOUT);
@@ -57,6 +58,7 @@
5758 $session->start_resource( *STDOUT, "../data/object/$file" );
5859 binmode(STDOUT);
5960 open( IN_IMG, "$rsrcDir/$file" );
61+ binmode(IN_IMG);
6062 while (<IN_IMG>) { print; }
6163 close(IN_IMG);
6264 $session->end_resource(*STDOUT);
--- reiki/trunk/README.txt (revision 113)
+++ reiki/trunk/README.txt (revision 114)
@@ -1,24 +1,13 @@
1-REIKI-BASE 製本スクリプト
21
3-REIKI-BASEのサイトを巡回し、例規集のPDFを作ります。
2+CGI
3+LWP::Simple
4+Encode
5+File::Temp
6+XML::SAX::Base
7+XML::SAX::ParserFactory
8+XML::SAX::Writer
9+XML::XPath
410
5-■ 使い方
6-次のようにreiki.pl(Perlスクリプト)を実行し、表示されるusageを参照してください。
7-
8-perl reiki.pl
9-
10-imposer.jarは製本用の面付け(4つ折両面印刷)をするJavaプログラムです。
11-次のコマンドで実行してください。
12-
13-java -jar imposer.jar
14-
15-■ 実行例
16-mkdir output
17-perl reiki.pl -url http://XXX/reiki_menu.html \
18- -out_html output/reiki.html
19-perl reiki.pl -in_html output/reiki.html -pdf output/reiki.pdf
20-java -jar imposer.jar output/reiki.pdf output/reiki-i.pdf
21-
2211 ■ ライセンス
2312
2413 Copyright (c) 2009 株式会社GNN
Show on old repository browser