Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!etlinn.etl.go.jp!etl.go.jp!trc.rwcp!rwc-tyo!news.iij.ad.jp!news.sun.co.jp!sunj-gate.Japan.Sun.COM!news2me.EBay.Sun.COM!venus.sun.com!cs.utexas.edu!news.sprintlink.net!news.gdbnet.ad.jp!sinetnews!newssinet!news.ipc.chiba-u!news.tj.chiba-u!asada
From: asada@ics.tj.chiba-u.ac.jp (Takuya Asada)
Subject: Re: [Q] about numeric strings convert
Message-ID: <DIovvn.DBy@ics.tj.chiba-u.ac.jp>
Sender: usenet@ics.tj.chiba-u.ac.jp
Nntp-Posting-Host: icsj6.tj.chiba-u.ac.jp
Organization: Chiba-University
References: <DIJGLH.99F@tf1neptune.isl.mei.co.jp>
Date: Mon, 27 Nov 1995 06:40:34 GMT
Lines: 21
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:577
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=577&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.

$B$"$5$@$J$N$G$9!#(B

$B:4!90f$5$s(B>
> $_="$B#1#2#3#4(B56$B#A(BBC";
> $B$H$$$C$?J8;zNs(B($B4A;z%3!<%I$O(BEUC$B$G$9(B)$B$rM?$($i$l$?;~!"(B
> "123456$B#A(BBC"
> $B$KJQ49$9$kJ}K!$G%(%l%,%s%H$J$b$N$,$"$l$P65$($F2<$5$$!#(B

$B$<$s$<$s%(%l%,%s%H$8$c$J$$!D$D!<$+!"$b$N$9$4$/$"$0$j!<$G$9$,!"(B

$c = (unpack("CC", "$B#0(B"))[1] - unpack("C", "0");

$B$H$+:G=i$K$7$F$*$$$F!"(B

s/\243([\260-\271])/pack("c",unpack("C",$1)-$c)/eg;

$B$G$bB?J,%$%1$^$9(B ^^;

$B$"$5$@(B $B$?$/$d(B


