06/10/26 08:20:13 tW2McvQQ
ファイル名はスクリプトの中で直接指定しているので、短いです。
必要に応じて、スクリプトを書き換えてください。
ActivePerl 5.8 で動作確認しています。
tlkファイルのテキスト化サンプル
$infileで指定したtlkファイルを読み込み、$outfileで指定したテキストファイルに出力する。
----------ここから-----------
#!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;
my $after = '';
for(my $i=0; $i < length($line); $i++) {
my $str = substr $line, $i, 1;
my $num = ord $str;
my $str2 = chr ($num - 1);
$after = $after . $str2;
}
open FO, ">", $outfile or die("$!: $outfile");
binmode FO;print FO $after;close FO;
----------ここまで-----------
逆変換のサンプル
$infileで指定したテキストファイルを読み込み、$outfileで指定したtlkファイルに出力する。
----------ここから-----------
#!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;
my $after = '';
for(my $i=0; $i < length($line); $i++) {
my $str = substr $line, $i, 1;
my $num = ord $str;
my $str2 = chr ($num + 1);
$after = $after . $str2;
}
open FO, ">", $outfile or die("$!: $outfile");
binmode FO;print FO $after;close FO;
----------ここまで-----------