Tera TermRevision: 10861
https://osdn.net/projects/ttssh2/scm/svn/commits/10861
Author: zmatsuo
Date: 2023-08-20 23:11:13 +0900 (Sun, 20 Aug 2023)
Log Message:
-----------
perlの文字コード変換
Modified Paths:
--------------
trunk/installer/check_sjis_code.pl
-------------- next part --------------
Modified: trunk/installer/check_sjis_code.pl
===================================================================
--- trunk/installer/check_sjis_code.pl 2023-08-18 16:46:25 UTC (rev 10860)
+++ trunk/installer/check_sjis_code.pl 2023-08-20 14:11:13 UTC (rev 10861)
@@ -1,7 +1,7 @@
#! /usr/bin/perl
#
-# \x89p\x8C\xEA\x94Ńh\x83L\x83\x85\x83\x81\x83\x93\x83g\x82ɓ\xFA\x96{\x8Cꂪ\x8A܂܂\xEA\x82Ă\xA2\x82Ȃ\xA2\x82\xA9\x82ׂ\xE9\x81B
+# 英語版ドキュメントに日本語が含まれていないかを調べる。
#
# Usage(ActivePerl):
# perl check_sjis_code.pl > result.txt
@@ -20,21 +20,21 @@
my @paths=();
my @temp = ();
- #-- \x83J\x83\x8C\x83\x93\x83g\x82̈ꗗ\x82\xF0\x8E擾 --#
+ #-- カレントの一覧を取得 --#
opendir(DIR, $top_dir);
@temp = readdir(DIR);
closedir(DIR);
foreach my $path (sort @temp) {
- next if( $path =~ /^\.{1,2}$/ ); # '.' \x82\xC6 '..' \x82̓X\x83L\x83b\x83v
- next if( $path =~ /^\.svn$/ ); # '.svn' \x82̓X\x83L\x83b\x83v
+ next if( $path =~ /^\.{1,2}$/ ); # '.' と '..' はスキップ
+ next if( $path =~ /^\.svn$/ ); # '.svn' はスキップ
my $full_path = "$top_dir" . '/' . "$path";
-# print "$full_path\r\n"; # \x95\\x8E\xA6\x82\xBE\x82\xAF\x82Ȃ\xE7\x91S\x82Ă\xF0\x95\\x8E\xA6\x82\xB5\x82Ă\xAD\x82\xEA\x82\xE9-------
- push(@paths, $full_path); # \x83f\x81[\x83^\x82Ƃ\xB5\x82Ď\xE6\x82荞\x82\xF1\x82ł\xE0\x91O\x82̎\xE6\x82荞\x82݂\xAA\x8F\x89\x8A\x{227B0B3}\x82\xEA\x82\xE9
- if( -d "$top_dir/$path" ){ #-- \x83f\x83B\x83\x8C\x83N\x83g\x83\x8A\x82̏ꍇ\x82͎\xA9\x95\xAA\x8E\xA9\x90g\x82\xF0\x8CĂяo\x82\xB7
+# print "$full_path\r\n"; # 表示だけなら全てを表示してくれる-------
+ push(@paths, $full_path); # データとして取り込んでも前の取り込みが初期化される
+ if( -d "$top_dir/$path" ){ #-- ディレクトリの場合は自分自身を呼び出す
&get_file_paths("$full_path");
} elsif (-B $full_path) {
- # \x83o\x83C\x83i\x83\x8A\x83t\x83@\x83C\x83\x8B\x82̓X\x83L\x83b\x83v
+ # バイナリファイルはスキップ
next;
} elsif (&check_exclude_file($path)) {
@@ -50,7 +50,7 @@
}
-# \x92\xB2\x8D\xB8\x91ΏۊO\x82̃t\x83@\x83C\x83\x8B\x82\xA9\x82ׂ\xE9
+# 調査対象外のファイルかを調べる
sub check_exclude_file {
my($fn) = shift;
my($s);
@@ -65,7 +65,7 @@
# cf. http://charset.7jp.net/sjis.html
-# ShiftJIS \x95\xB6\x8E\x9A
+# ShiftJIS 文字
sub check_sjis_code {
my($filename) = shift;
@@ -99,9 +99,9 @@
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
+# 行が対象外かどうかをチェックする
+# true: 対象外である
+# false: 対象外ではない
sub check_skipped_line {
my($line) = shift;
my($pos);