j2b
上传用户:minyiyu
上传日期:2018-12-24
资源大小:864k
文件大小:0k
源码类别:

Telnet服务器

开发平台:

Unix_Linux

  1. #!/usr/local/bin/perl
  2. $tmpjisfile = "/tmp/jisgate$$";
  3. $tmpeucfile = "/tmp/jisgate$$.euc";
  4. $jis='/usr/local/bin/jis';
  5. $e2b='/usr/local/bin/sinocode';
  6. open(TMP,"> $tmpjisfile") || die "can't write $tmpjisfile $!n";
  7. while (<>) {
  8. print TMP $_;
  9. }
  10. close(TMP);
  11. system("$jis -e $tmpjisfile $tmpeucfile");
  12. system("$e2b -jis $tmpeucfile -big -");
  13. unlink($tmpjisfile);
  14. unlink($tmpeucfile);