06/10/26 21:32:12 tW2McvQQ.net
>>129
いえいえ、こちらこそダイアログファイルの修正、ありがとうございます。
んで、変換部分が1行にまとめられたので、蛇足ながら再UPします。
tlkファイルのテキスト化サンプル
----------ここから-----------
#!perl -w
use strict;
my ($infile, $outfile);
$infile = "guard.tlk";
$outfile = "guard.txt";
open FI, "<", $infile or die("$!: $infile");
binmode FI;my $line = join('', <FI>);close FI;
$line =~ s/(.)/chr(ord($1)-1)/egos;
open FO, ">", $outfile or die("$!: $outfile");
binmode FO;print FO $line;close FO;
----------ここまで-----------
逆変換のサンプル
----------ここから-----------
#!perl -w
use strict;
my ($infile, $outfile);
$infile = "guard.txt";
$outfile = "guard.tlk";
open FI, "<", $infile or die("$!: $infile");
binmode FI;my $line = join('', <FI>);close FI;
$line =~ s/(.)/chr(ord($1)+1)/egos;
open FO, ">", $outfile or die("$!: $outfile");
binmode FO;print FO $line;close FO;
----------ここまで-----------