[Ttssh2-commit] [4431] 二重引用符をエスケープするようにした。

svnno****@sourc***** svnno****@sourc*****
2011年 4月 10日 (日) 22:49:08 JST


Revision: 4431
          http://sourceforge.jp/projects/ttssh2/svn/view?view=rev&revision=4431
Author:   yutakapon
Date:     2011-04-10 22:49:08 +0900 (Sun, 10 Apr 2011)

Log Message:
-----------
二重引用符をエスケープするようにした。

Modified Paths:
--------------
    trunk/doc/htmlhelp_index_make.pl


-------------- next part --------------
Modified: trunk/doc/htmlhelp_index_make.pl
===================================================================
--- trunk/doc/htmlhelp_index_make.pl	2011-04-10 13:32:22 UTC (rev 4430)
+++ trunk/doc/htmlhelp_index_make.pl	2011-04-10 13:49:08 UTC (rev 4431)
@@ -4,7 +4,7 @@
 # HTMLƒwƒ‹ƒv‚̃Cƒ“ƒfƒbƒNƒXƒtƒ@ƒCƒ‹‚𐶐¬‚·‚é
 #
 # Usage(ActivePerl):
-#  perl htmlhelp_index_make.pl
+#  perl htmlhelp_index_make.pl ja html > ja\Index.hhk
 #
 
 use Cwd;
@@ -71,7 +71,7 @@
 sub check_html_file {
 	my($filename) = shift;
 	local(*FP);
-	my($line, $no);
+	my($line, $no, $val);
 	
 	if ($filename !~ /.html$/) {
 		return;
@@ -85,7 +85,9 @@
 		if ($line =~ /<TITLE>(.+)<\/TITLE>/i) {
 #			print "$filename:$no: $1\n";
 #			print "$line\n";
-			write_add_index($filename, $1);
+			$val = $1;
+			$val =~ s/"/&#34;/g;  # “ñdˆø—p•„‚ðƒGƒXƒP[ƒv‚·‚é
+			write_add_index($filename, $val);
 			last;
 		}
 



Ttssh2-commit メーリングリストの案内