컨버팅 하면서 펄로 만들어본 프로그램 2가지.

1. bless_scr.pl
간단한 연산이라 한번 테스트 삼아 만들어 봤는데 잘 되는군요.
(파일 하나만 테스트 하는거라 파일 하나만 작업되게 해둔..)

@file = ("00e0.nss");
foreach $file(@file){
 open (IN, "$file");
 open (OUT, ">$file\_out.txt");
 binmode IN;
 binmode OUT;
 @line = <IN>;
 my $char1 ="";
 foreach $line(@line){
  my $bin = unpack("H*",$line);
  my $cha = length($bin)/2;
  for ($i = 0; $i < $cha; $i++){
   my $two = hex(substr($bin,$i*2,2));
   $two2 = $two ^=4 ;
   $two3 = sprintf("%x",$two2);
   if ( length($two3) == 1 ){
    $two3 = "0$two3";
   }
    $char1 .= "\%"."$two3";
  }
 }
 $char1 =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1)/eg;
 print OUT $char1;
 close(IN);
 close(OUT);
}

2. ons_test.pl
텍스트 파일을 라인단위로 읽어서.
명령어라인인지, 텍스트라인인지 분석.
명령어라인이면 패스, 텍스트라인이면 특정 작업을 합니다.
반각을 전각으로 고친다던가?
(문제점이 있다면, 대사와 명령어가 함께 있다면, 대사와 명령어가 함께 치환.)

@file = ("0.txt");
foreach $file(@file){
 open (IN, "$file");
 open (OUT, ">$file\_kari.txt");
 @line = <IN>;
 foreach $line(@line){
  $r = $line =~ /[^a-zA-Z_0-9,+] [^a-zA-Z_0-9,+]/g;
  if ($r == 1)
  {
   $line =~ s/ /　/g;
  }
  print OUT $line;
 }
 close(IN);
 close(OUT);
}

둘다 심심풀이 테스트 프로그램이라 완전치 않습니다.

수정만 적절히 하면 충분히 사용가능하거나, 응용이 가능할거라 생각합니다.