Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!news.trc!nf2.iij.ad.jp!nr0.iij.ad.jp!news.iij.ad.jp!rim.or.jp!Q.T.Honey!yynet.tama.tokyo.jp!nf2.spnet.ne.jp!news.cs.ritsumei.ac.jp!newshub.bkc.ritsumei.ac.jp!cancer.nca5.ad.jp!nfeed.gw.nagoya-u.ac.jp!vega2!ccsatoru
From: ccsatoru@vega.aichi-u.ac.jp (Satoru Takabayashi)
Subject: Re: [Q]$BJ8;zNs=hM}(B
Sender: news@vega2.aichi-u.ac.jp (News Master)
Message-ID: <Ep1C9s.3sC@vega2.aichi-u.ac.jp>
Date: Fri, 27 Feb 1998 11:37:04 GMT
Lines: 44
References: <6d3r0o$64b@cooper.hit.ntt-at.co.jp>
	<baogzt4zaz.fsf_-_@wren.pinnacle.co.jp>
Nntp-Posting-Host: saturn.aichi-u.ac.jp
Organization: Aichi University Computer Center, Aichi University, Aichi, Japan.
X-Newsreader: mnews [version 1.20] 1996-12/08(Sun)
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:2818
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=2818&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

hiramoto@pinnacle.co.jp wrote:

>> $B#1%P%$%HJ8;z!"#2%P%$%HJ8;z$,:.:_$7$F$$$k%G!<%?$r!"%W%m%0%i%`$r(B
>> $BDL$9$H!"#8#07e$0$i$$$G@^$jJV$9$&$K2~9T%3!<%I$r!"J8;zNs$KF~$l$?$$(B
>> $B$N$G$9$,!"$I$N$h$&$K$7$?$i$h$$$+$o$+$j$^$;$s!#(B
>
>  perl $B$H$$$&$h$j!"%"%k%4%j%:%`$NOC$K$J$j$=$&$G$9$M!#(B2byte 
>$BJ8;z$OF|K\8l$@$H2>Dj$7$F$*$-$^$9!#(B
>
>(1) EUC $B%3!<%I$KJQ49$7$^$9!#(B
>(2) $B@hF,$+$i(B 1$BJ8;z$:$D%A%'%C%/$7$F$$$-$^$9!#(B
>(3) 0x7f $B0J2<$N%3!<%I$J$i(B 1byte $BJ8;z$H8+Jo$7$F!"(B1$BJ8;z?J$a$^(B
>    $B$9!#(B
>(4) 0x80 $B0J>e$N%3!<%I$J$i(B 2byte $BJ8;z$N(B 1byte$BL\$H8+Jo$7$F!"(B2
>    $BJ8;z?J$a$^$9!#(B
>(5) (3)(4)$B$r7+$jJV$7(B($B%k!<%W$rAH$`$3$H$K$J$k$G$7$g$&(B)$B!"(B80$BJ8;z(B
>    $BDxEY$NM=$a7h$a$F$*$$$?J8;z?t$r1[$($?$i!"2~9T%3!<%I$rF~$l(B
>    $B$^$9!#(B

$BJ8;z%3!<%I$,(B EUC-JP $B$J$i$PC1=c$K0l9T(B 60 or 61 byte $B$G@^$jJV$9$K$O(B

$length = 60;
while (<>) {
    while (length($_)) {
        $foo = substr($_, 0, $length);
        $n = $foo =~ tr /\xa1-\xfe/\xa1-\xfe/;
        $foo .= substr($_, $length, 1) if $n % 2;
        substr($_, 0, $length + $n % 2) = "";
        print $foo;
        print "\n" unless $foo =~ /\n$/;
    }
}

$B$H$$$&J}K!$O$$$+$,$G$7$g$&$+!#(B

        $foo = substr($_, 0, $length);
        $n = $foo =~ tr /\xa1-\xfe/\xa1-\xfe/;
        $foo .= substr($_, $length, 1) if $n % 2;
        substr($_, 0, $length + $n % 2) = "";

$B$NItJ,$,%_%=$G$9!#(B

--
$B9bNS(B $BE/(B Satoru Takabayashi
