home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / fj / question / unix / 663 < prev    next >
Encoding:
Text File  |  1992-12-25  |  1.1 KB  |  36 lines
  1. Newsgroups: fj.questions.unix
  2. Path: sparky!uunet!ccut!news.u-tokyo.ac.jp!utnet-news!glocom!wnoc-tyo-news!sranha!sranhd!sran230!utashiro
  3. From: utashiro@sran230.sra.co.jp (Kazumasa Utashiro)
  4. Subject: Re: what is xbtoa format ?
  5. References: <KUGE.92Dec25161045@k1ss.strl.nhk.or.jp>
  6. Organization: Software Research Associates, Inc., Japan
  7. Date: Fri, 25 Dec 1992 10:34:14 GMT
  8. Message-ID: <Bzt9D3.800@sran230.sra.co.jp>
  9. Distribution: fj
  10. Lines: 24
  11.  
  12. In article <KUGE.92Dec25161045@k1ss.strl.nhk.or.jp>
  13.     kuge@strl.nhk.or.jp (Tetsuro Kuge) writes:
  14. >> xbtoa Begin
  15. >> +.\K>61pse+paSq@`l'>j<"acqg`:R.2.H])`]rEqruRc5[BQ>gTt]@`qqJH/tb]K8'kl(c
  16. >> .....
  17. >> $B$H$$$C$?FbMF$N%F%-%9%H%U%!%$%k$rF~<j$7$?$N$G$9$,!"$[$I$-$+$?$,J,$+$i$J$$(J.
  18.  
  19. $BC5$;$P$I$3$+$K$"$k$G$7$g$&$,;29M$^$G$K!#(JBig Endian $B$G%5%$%:(J
  20. $B$,(J 4 $B$NG\?t$J$i$[$I$1$k$H;W$&!#(J
  21.  
  22. #!/usr/local/bin/perl
  23.  
  24. $t=<> until $t=~/^xbtoa Begin/;
  25. while ($_.=($t=<>), $t) {
  26.   last if /xbtoa End/;
  27.   chop;
  28.   while (s/^(z|.....)//) {
  29.     $w=0;
  30.     grep($w=$w*85+ord()-33, split(//,$&)) unless $& eq 'z';
  31.     print pack('L', $w);
  32.   }
  33. }
  34.  
  35. --utashiro
  36.