Browse Subversion Repository
Diff of /branches/4-stable/doc/htmlhelp_index_make.pl
 Parent Directory
|  Revision Log
|  Patch
| 4 |
# HTMLヘルプのインデックスファイルを生成する |
# HTMLヘルプのインデックスファイルを生成する |
| 5 |
# |
# |
| 6 |
# Usage(ActivePerl): |
# Usage(ActivePerl): |
| 7 |
# perl htmlhelp_index_make.pl |
# perl htmlhelp_index_make.pl ja html > ja\Index.hhk |
| 8 |
# |
# |
| 9 |
|
|
| 10 |
use Cwd; |
use Cwd; |
| 71 |
sub check_html_file { |
sub check_html_file { |
| 72 |
my($filename) = shift; |
my($filename) = shift; |
| 73 |
local(*FP); |
local(*FP); |
| 74 |
my($line, $no); |
my($line, $no, $val); |
| 75 |
|
|
| 76 |
if ($filename !~ /.html$/) { |
if ($filename !~ /.html$/) { |
| 77 |
return; |
return; |
| 85 |
if ($line =~ /<TITLE>(.+)<\/TITLE>/i) { |
if ($line =~ /<TITLE>(.+)<\/TITLE>/i) { |
| 86 |
# print "$filename:$no: $1\n"; |
# print "$filename:$no: $1\n"; |
| 87 |
# print "$line\n"; |
# print "$line\n"; |
| 88 |
write_add_index($filename, $1); |
$val = $1; |
| 89 |
|
$val =~ s/"/"/g; # 二重引用符をエスケープする |
| 90 |
|
write_add_index($filename, $val); |
| 91 |
last; |
last; |
| 92 |
} |
} |
| 93 |
|
|
|
|
Legend:
| Removed from v.4405 |
|
| changed lines |
| |
Added in v.4431 |
|
|
| 
Tera Term
Parent Directory
Revision Log
Patch