[kansaipm] COBOL TO perl コンバージョンソフト

[yuu hashimoto]

$B66K\M%$G$9(B

$B$3$3!"#2=54V$[$I!"#C#O#B#O#L!J<B:]$K$O#C#O#B#O#L$,<+F0 at 8@.$G$-$k#R#P(B
$B#G-7Ey$r2~NI$7$?4J0W8 at 8l!K$+$i!"#p#e#r#l$X$N%3%s%P!<%8%g%s%=%U%H(B
$B$r:n$C$F$$$^$9!#(B
$BL\E*$O!"#L#i#n#u#x$G$O!"4p446HL3$N;vL3=hM}$r<B9T$9$k4D6-$,<e$$$N$G!"(B
$B4D6-$r:n$k$?$a$G$9!#(B

$B$=$N2aDx$G!"2r$C$?$3$H$r#2!A#3Js9p$7$^$9!#(B
$B$3$l$K$h$j!"(Bperl$B$rCN$i$J$$$,!"(BCOBOL$B$J$iCN$C$F$$$k$H$$$&?M$,(Bperl$B$r(B
$BM}2r$9$k=u$1$K$J$j$^$9!#(B
-------------------------------------------------------
COBOL(C)$B$H(Bperl(p)$B$N0c$$!&FCD'(B
-------------------------------------------------------
$B!&JQ?t(B (p)$a  (C)01 A PIC 9(4).
  (C)$B=8CD9`L\$,$"$k(B
  (C)$B7e?t$r;XDj$9$k(B
  (C)$BIi9f$O:G=*7e$N>e0L#4%S%C%H$K;}$D(B
  (C)$B?tCM9`L\!&J8;z9`L\$N6hJL$,$"$k(B
$B!&J8;zNsE>Aw(B (p) $b=$a; (C)MOVE A TO B.
  (C)$B7e?t$G at Z$l$k(B
  (C)$B8e$m$r6uGr$GKd$a$k(B
  (C)$B7?$K$h$jE>Aw5,B'$,0[$J$k(B
$B!&?t;zE>Aw(B
  (C)$B7e?t$G at Z$l!"@Z$j<N$F$i$l$k(B
$B!&Hf3SL?Na(B (p)if( $a eq $b )  (C)IF A = B
  (C)$BC;$$J}$N8e$m$r6uGr$GKd$a$?8e!"Hf3S(B
$B!&1i;;(B
  (p)$B#4<N#5F~$r%5%]!<%H$9$k4X?t$,$J$$(B
  (p)$BM-8z7e?t$,#1#57e(B
  (C)$B?t;z9`L\$7$+1i;;$G$-$J$$(B
$B!&G[Ns(B
  (C)$B at 8@.;~!"MWAG?t$r;XDj$9$k(B (p)undef @g; (C)03 G OCCURS 20.
  (C)$BFs<!85!&;0<!85$NG[Ns$,$"$k(B
  (p)$B%-!<$r;}$C$?G[Ns$,$"$k(B
$B!&$=$NB>$NFCD'(B
  (p)$BJ8;zNs=hM}!"9=B$2==hM}$,6/$$(B
  (C)$B=8CD9`L\!&8GDjD99`L\$N%a%j%C%H$+$i$/$k$,!"%W%j%s%H%W%m%0%i%`$,8+$d$9$$(B
--------------------------------------------------------------------
$B!z(BCOBOL$B$+$i(Bperl$B$X$NJQ49!J8_49%3%s%P!<%8%g%s!K4X?t$H$7$FDs6!$9$k$b$N(B
--------------------------------------------------------------------
$B!&=8CD9`L\$r%5%]!<%H$9$k;EAH$_(B
$B!&Fs<!85G[Ns$r%5%]!<%H$9$k;EAH$_(B
$B!&(BCOBOL$B$N3F%?%$%W$rDj5A$9$k;EAH$_(B
$B!&;M<N8^F~$r%5%]!<%H$9$k4X?t(B
$B!&(BCOBOL$B$N5,B'$K9gCW$7$?!"(BCOBOL$B3FL?Na$KBP1~$9$k4X?t72(B
-------------------------------------------------------
$B!zL\E*(B
-------------------------------------------------------
$B!&4p446HL3$r(BLinux$B$GF0$+$94D6-$N9=C[!#(B
$B!&$J$*!"$3$N%W%m%8%'%/%H$O!"C1$K8 at 8l$N%3%s%P!<%8%g%s$H$$$C$?$b$N$G$O$J$/!"(B
$B!!HFMQ5!!&%*%U%3%s$N%8%g%V4IM}#O#S5!G=$r%5%]!<%H$7$?$b$N$r7W2h$7$F$$$^$9!#(B
-------------------------------------------------------
$B!z46A[(B
-------------------------------------------------------
$B!&(Bperl$B$O!"J8;zNs=hM}$,6/$$$?$a!"$3$N$h$&$J%3%s%P!<%8%g%s%=%U%H$r:n$k$N$K(B
$B!!(BCOBOL$B$HHf3S$7$F!"#3!A#5G\$0$i$$!J<B46!KAa$$!#%$%s%?!<%W%j%?!<$H$$$&E@$G(B
 $B$bJXMx!#(B
$B!&J8;zNs$r%A%'%C%/$9$k$N$K!"0LCV$,J,$+$C$F$$$l$P!"@55,I=8=8!:w$h$j!"(Bsubstr
  $B$NJ}$,Aa$$$HK\$K=q$$$F$"$j$^$7$?$N$G!"%F%9%H$7$F$_$k$H!"#1 at iK|2s!J$3$N2s(B
  $B?t$J$$$H$G!":9$,2r$i$J$$!K$G!"#3#5IC$H#3#0IC$G$=$l$[$I:9$O$J$+$C$?!#(B