Tera TermRevision: 9769
https://osdn.net/projects/ttssh2/scm/svn/commits/9769
Author: zmatsuo
Date: 2022-02-22 23:11:03 +0900 (Tue, 22 Feb 2022)
Log Message:
-----------
setini.pl を Unicodeベースに変更
- setini.pl を utf-8 に変更
- 入力ファイル、出力ファイルの文字コードは cp932
- 変更前と同じ
- どの環境でも出力iniファイルの改行コードはCRLFとした
Modified Paths:
--------------
trunk/installer/setini.pl
-------------- next part --------------
Modified: trunk/installer/setini.pl
===================================================================
--- trunk/installer/setini.pl 2022-02-21 15:05:55 UTC (rev 9768)
+++ trunk/installer/setini.pl 2022-02-22 14:11:03 UTC (rev 9769)
@@ -1,12 +1,22 @@
-#!/usr/bin/perl
-
-open INI, $ARGV[0];
-while(<INI>){
- s/^(Language\s*=).*$/$1Japanese/;
-# s/^(VTFont\s*=).*$/$1Terminal,0,-19,128/;
- s/^(VTFont\s*=).*$/$1\x82l\x82r \x83S\x83V\x83b\x83N,0,-16,128/;
- s/^(TEKFont\s*=).*$/$1Terminal,0,8,128/;
- s/^(TCPPort\s*=).*$/${1}22/;
- print;
-}
-close INI;
+#!/usr/bin/perl
+# 日本語環境用に teraterm.ini を設定する
+
+use strict;
+use warnings;
+use utf8;
+
+my $in_file = $ARGV[0];
+
+my $vtfont = 'ＭＳ ゴシック,0,-16,128';
+#my $vtfont = 'Terminal,0,-19,128';
+
+binmode STDOUT, ":crlf:encoding(cp932)";
+open(INI, '<:crlf:encoding(cp932)', $in_file);
+while(<INI>){
+ s/^(Language\s*=).*$/$1Japanese/;
+ s/^(VTFont\s*=).*$/$1$vtfont/;
+ s/^(TEKFont\s*=).*$/$1Terminal,0,8,128/;
+ s/^(TCPPort\s*=).*$/${1}22/;
+ print;
+}
+close INI;