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!vcmei!ced.mei!chorus.mei!tf1neptune.mei!sasai
From: sasa@isl.mei.co.jp
Subject: Re: [Q] about numeric strings convert
Message-ID: <DIqv6H.9DG@tf1neptune.isl.mei.co.jp>
Sender: news@tf1neptune.isl.mei.co.jp
Nntp-Posting-Host: iona
Organization: Matsushita Electric Industrial Co.,Ltd. Osaka, Japan
X-Newsreader: mnews [version 1.19] 1995-07/21(Fri)
References: <DIJGLH.99F@tf1neptune.isl.mei.co.jp>
	<DIovvn.DBy@ics.tj.chiba-u.ac.jp>
Date: Tue, 28 Nov 1995 08:20:41 GMT
Lines: 30
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:581
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=581&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<ALd85$N:4!90f!w(Bperl$BAG?M$G$9(B

<DIovvn.DBy@ics.tj.chiba-u.ac.jp>$B$N5-;v$K$*$$$F(B
asada@ics.tj.chiba-u.ac.jp$B$5$s$O=q$-$^$7$?!#(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 ^^;

$BJ8;zNs$K$h$C$F$OJ8;z2=$1$9$k$_$?$$$G$9$,(B(^^;$B!"$3$l(B($B",(B)$B!"D:$-$^$9!#(B
$BB>$K$b%U%)%m!<$7$F2<$5$C$?3'$5$s!"$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(B

$B$7$+$7!"(B

s/\r\n$/\n/;

$B$G(B CRLF$B"*(BLF $BJQ49$,2DG=$J$i!"(B

s/\243[\260-\271]/[0-9]/;

$B$G:4!90f$N4uK>DL$j$NJQ49$,$G$-$F$bNI$5$=$&$J$N$K!D!#(B(^^;

$B!A:4!90f!w(Bperl$BAG?M(B
