mieki256's diary

昨日作成したスクリプト(exe化したもの)を、ActivePerlをインストールしていない親父さんpcに入れてみたらちゃんと動いてくれた。が、親父さんの使い方からすると、いくつか修正しなければいけない点があることに気付いたり。その中の一つに、htmlのページタイトルをその都度指定したいというソレがあって。であれば、初期値文字列をiniに含めて…と修正したところでハマったり。






スクリプト自体をUTF8で書くことと関連して、iniをSJISで書くか、UTF8で書くかなどの問題もあるようで。

サンプルスクリプトはこんな感じ。

#!/usr/bin/perl -w
#
# Config:Simple と Tk のテスト
# スクリプト自体は utf8で記述

use strict;
use warnings;
use utf8;
use Tk;
use Encode;
use Config::Simple;

my $mode = 3;

# iniファイル読み込み

my $title = '';
if ( $mode == 0 ) {                                     # NG : ini が shiftjis
    my $cfg = new Config::Simple('setting_sjis.ini');
    $title = $cfg->param('setting.title');
} elsif ( $mode == 1 ) {                                # NG : ini が utf8
    my $cfg = new Config::Simple('setting_utf8.ini');
    $title = $cfg->param('setting.title');
} elsif ( $mode == 2 ) {                                # OK : ini が shiftjis
    my $cfg = new Config::Simple('setting_sjis.ini');
    binmode STDIN, ':encoding(shiftjis)';
    $title = decode('shiftjis', $cfg->param('setting.title'));
} else {                                                # OK : ini が utf8
    my $cfg = new Config::Simple('setting_utf8.ini');
    $title = decode('utf8', $cfg->param('setting.title'));
}

# Tk 初期化

my $mw= new MainWindow;
$mw->title("Config::Simple and Tk test");
$mw->fontCreate('MS',-family => 'ＭＳ ゴシック');
$mw->optionAdd('*font' => 'MS 9');

$mw->Label(-text => "タイトル")->grid(-row => 0, -column => 0);
$mw->Entry(-textvariable => \$title)->grid(-row => 0, -column => 1);

MainLoop;

encoding() とか decode() とか、さっぱり判ってないまま巷のソレをコピペでアレコレなのです。