Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!icot10!ss151!kumon
From: kumon@icot.or.jp (Kumon Kouichi)
Subject: Re: Where is Jperl
In-Reply-To: utashiro@wide.ad.jp's message of Sat, 4 Feb 1995 03: 15:32 GMT
Message-ID: <KUMON.95Feb6134909@ss119.icot.or.jp>
Followup-To: fj.lang.perl
Sender: news@ss151.icot.or.jp
Organization: Institute for New Generation Computer Technology, Tokyo, Japan.
References: <NOZAWA.95Jan28160145@oscar19.oscar.info.waseda.ac.jp>
	<SANPEI.95Jan30144057@cyan.yy.cs.keio.ac.jp>
	<ENDO-H.95Jan31141918@coco.cs.uec.ac.jp>
	<KAZUSI-M.95Feb1192536@jupiter.is.aist-nara.ac.jp>
	<UTASHIRO.95Feb2011835@fs.wide.ad.jp>
	<KUMON.95Feb3171636@ss119.icot.or.jp>
	<UTASHIRO.95Feb4121532@koedo.wide.ad.jp>
Date: Mon, 6 Feb 1995 04:49:09 GMT
Lines: 52
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:335
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=335&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.

$B5WLg$G$9!#(B

In article <UTASHIRO.95Feb4121532@koedo.wide.ad.jp> utashiro@wide.ad.jp (Kazumasa Utashiro) writes:
 |   $B$3$s$J%3!<%I$r=q$/$N$O$+$J$j$N6lDK$G$7$g$&$+$i!"(Bjperl$B$NB8:_2ACM$O$"$k(B
 |   $B$H;W$$$^$9$h!#(B($B$b$&>/$7C;$$=q$-J}$O$"$k$+$bCN$l$J$$!#(B)
 |
 |$B$3$s$J%3!<%I$r=q$$$F$^$G(B jperl $B$r;H$o$J$+$C$?$N$G$9$+$i!">/$J$/$H$b5W(B
 |$BLg$5$s$K$H$C$F$OB8:_2ACM$,$J$+$C$?$H$$$&$3$H$G$7$g$&!#KM$K$H$C$F$bF1$8(B
 |$B$G$9!#2ACM$rG'$a$F$$$J$$?M4V$,!"B>?M$NBeJ[$r$7$F$b$"$^$j@bF@NO$O$J$$$N(B
 |$B$G!"H?O@$9$k4D6-$,$"$k>l9g$K$O!"KM$OI,MW$J$$$H$$$&%9%?%s%9$r<h$k$3$H$K(B
 |$B$7$F$$$^$9!#(B

$B2NBe$5$s$K5DO@$r?a$-$+$1$k$D$b$j$OLSF,$J$$$N$G!"6/$/$O!"H?O@$7$^$;$s!#(B
2$B%P%$%H=hM}$K4X$7$F!"0BD>$K9T$J$&$H!V7k9=$JIQEY$G:$$k$h!W$H8@$&$3$H$r!"(B
$B<gD%$7$F$*$-$?$+$C$?$@$1$G$9!#(B

$BKM$,$3$N>l9g!"(Bjperl$B$r;H$o$J$+$C$?M}M3$N0l$D$O!"(Bjperl$B$,$I$3$K$G$b$"$kLu(B
$B$G$O$J$+$C$?!#$H8@$&$3$H$G$9!#(B

$BNc$H$7$F=P$7$?%3!<%I$O!"!V$I$3$G$bF0$/!W%3!<%I$NI,MW$,$"$C$?$N$G(Bjperl
$B$OMxMQ$7$^$;$s$G$7$?!#(B
($B$7$+$7!"(Bjperl$B$GF0$+$9$H@5$7$/F0:n$7$J$$$H$$$&$N$O!"HiFy$J$3$H$G$9(B)
$B$7$+$7!"(Bperl$B$,!V$*<j7Z$K>pJs$N@0M}$r9T$J$&!W$?$a$N=hM}7O$@$H9M$($k$H(B
$B!V$I$3$G$bF0$/!WI,MW$O$J$/!"!V$9$0$KF0$/!W$,=EMW$G$9$7!"<B:]$=$N>u67$G(B
$B$O(Bjperl$B$r;H$&$3$H$b$"$j$^$9!#(B

$B$3$3$+$i$&$7$m$NOC$7$O@55,I=8=$N8zN($NOC$7$K$J$j$^$9!#(B

 |$BCV49$N7o$K4X$7$F$O!"KM$@$C$?$i!"$?$H$($P(B
 |
 |  $subs{'$B!!(B'} =  '  ';
 |  s/[\200-\377]?./defined($subs{$&}) ? $subs{$&} : $&/eg;
 |
 |$B$H$$$&46$8$K$9$k$G$7$g$&$+!#$+$J$j8zN($O0-$$$N$G!"%k!<%W$NCf$@$C$?$i:G(B
 |$B=i$KCV49$9$kJ8;zNs$,$"$k$+$I$&$+$r%A%'%C%/$7$^$9!#(B
 |
 |$B$"$k$$$O!"(B
 |
 |  1 while s/^(([\200-\377].|[\000-\177])*)$B!!(B/$1  /;
 |
 |$B$H$$$&<j$b$"$j$^$9$M!#(B

$B$3$l$i$NCV49$O$9$Y$F(Bwhile$BJ8$rMQ$$$F<B9T$7$F$$$k$?$a$K>o$K9TF,$+$iC5:w(B
$B$r9T$J$&$H8@$&LdBj$,$"$j$^$9!#(B
($B%*!<%@$NOC$7$G62=L$G$9$,!"6uGr$@$1$N9T$N=hM}$K4X$7$FJ8;zNs$ND9$5$N(B2$B>h(B
$B$N7W;;NL$K$J$k$h$&$K46$8$i$l$^$9(B)

$B@$$NCf$K$O!"6uGr(B(2$B%P%$%H$N(B)$B$@$1$G=PMh$F$$$k9T$d!"6uGr$G6u4V$r$"$1$?I=(B
$BAH$N$h$&$J$b$N$O7k9=B?$$$N$G!"LLE]$G$9$,A0$K$*8+$;$7$?$h$&$JD>A0$N(B1$B%P(B
$B%$%HJ8;z$+$i$ND9$5$G=hM};~4V$,7h$^$k$h$&$J@55,I=8=$rMxMQ$7$?$b$N$G$9!#(B
($B$b$C$H$bJ#;($J@55,I=8=$rMQ$$$F$$$k$+$i!"B.$/$J$C$F$$$k$N$+$I$&$+$OIT(B
$BL@$G$9(B)
