#!/usr/bin/perl # topic.cgi 1.00 - 1.10用データ変換スクリプト # 作成：萩原逸郎<hagi@web-shinsengumi.com> # 著作：Web新撰組(http://www.web-shinsengumi.com) # # 使い方: perl henkan.pl 日本語コード # 　　　（日本語コードには、euc,sjis,jisのどれかを指定）

require 'jcode.pl';

$JC=$ARGV[0]; $JC =~ tr/[A-Z]/[a-z]/;

system("cp -f topics.dat topics.01");

open(IN,"topics.dat"); while(<IN>){
	$data=$_;
	&jcode'convert(*data,'euc');
    $data =~ s/,/Enc_Comma/g;
	$data =~ s/\^/,/g;
	$data =~ s/<br>/<BR>/ig;
	&jcode'convert(*data,"$JC") if($JC ne 'euc');
	push(@alldata,$data);
	print "-"; } close(IN);

print "read phase done...\n";

open(OUT,"> topics.dat"); foreach (@alldata){
	print OUT $_;
	print "+"; } close(OUT);

print "convert phase done...\n"; print "old datafile was saved as topics.01\n"; exit;