Revision: 7570 https://osdn.net/projects/ttssh2/scm/svn/commits/7570 Author: yutakapon Date: 2019-04-11 19:48:09 +0900 (Thu, 11 Apr 2019) Log Message: ----------- 抽出行にUTF-8 BOMが含まれるものは対象外とする。 Modified Paths: -------------- trunk/installer/check_sjis_code.pl -------------- next part -------------- Modified: trunk/installer/check_sjis_code.pl =================================================================== --- trunk/installer/check_sjis_code.pl 2019-04-10 15:21:58 UTC (rev 7569) +++ trunk/installer/check_sjis_code.pl 2019-04-11 10:48:09 UTC (rev 7570) @@ -84,8 +84,10 @@ # printf "%s\n", $enc->name; if ($enc->name !~ /ascii/) { # printf "%s\n", $enc->name; - print "$filename:$no: $1\n"; - print "$line\n"; + if (!check_skipped_line($line)) { + print "$filename:$no: $1\n"; + print "$line\n"; + } } } # if ($line =~ /([\xA1-\xDF]|[\x81-\x9F\xE0-\xEF][\x40-\x7E\x80-\xFC])/) { @@ -97,3 +99,19 @@ close(FP); } +# \x8Ds\x82\xAA\x91ΏۊO\x82\xA9\x82ǂ\xA4\x82\xA9\x82\xF0\x83`\x83F\x83b\x83N\x82\xB7\x82\xE9 +# true: \x91ΏۊO\x82ł\xA0\x82\xE9 +# false: \x91ΏۊO\x82ł͂Ȃ\xA2 +sub check_skipped_line { + my($line) = shift; + my($pos); + +# print "[$line]"; + + # UTF-8 BOM + $pos = index($line, pack("C3", 0xef, 0xbb, 0xbf)); +# print "$pos\n"; + return 1 if ($pos != -1); + + return 0; +}