Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!csdnews.sm.sony!atg2gw!sonygw2!sonyinet!news.iij.ad.jp!iijnet!news1!utashiro
From: utashiro@wide.ad.jp (Kazumasa Utashiro)
Subject: Re: Where is Jperl
In-Reply-To: kumon@icot.or.jp's message of Fri, 3 Feb 1995 08:16:36 GMT
X-Nntp-Posting-Host: koedo.iij.ad.jp
Message-ID: <UTASHIRO.95Feb4121532@koedo.wide.ad.jp>
Followup-To: fj.lang.perl
Sender: news@iij.ad.jp
Organization: WIDE Project
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>
Date: Sat, 4 Feb 1995 03:15:32 GMT
Lines: 57
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:330
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=330&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.


In article <KUMON.95Feb3171636@ss119.icot.or.jp> kumon@icot.or.jp (Kumon Kouichi) writes:

   $B;d<+?H$OIaCJ$O(Bjperl$B$r;H$o$J$$$N$G$9$,!"%P%$%J%j!<$H$7$F07$&$H!"(B2$B%P%$%H(B
   $BJ8;z$N@Z$lL\$r4V0c$($k$N$G!"$+$J$j$NITJX$K$J$k>l9g$,$"$j$^$9!#<B:]!"$3(B
   $B$N%1!<%9$K$O$^$C$F$7$^$$!"6lO+$7$F@55,I=8=$r=q$-D>$7$?;v$,$"$j$^$9!#(B
   $B!t$=$l$G$b(Bjperl$B$O;H$o$J$+$C$?$,!"(B

   ($BCfN,(B)

   $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

$B8=:_$N(B jperl $B$rM-MQ$@$H46$8$k?M$,$$$k$3$H$bG'$a$^$9$7!"F|K\8l(B/$BB?9q8l=h(B
$BM}$NI,MW@-$OHs>o$K46$8$F$$$^$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

Perl 5 $B$@$C$?$i(B

1 while s/^(([\200-\377].|[\000-\177])*?)$B!!(B/$1  /;

$B$NJ}$,$A$g$C$H5$;}$A$$$$$1$I!"2?$b$&$l$7$/$J$$$+(B...

$B$b$C$H$b!"%^%k%A%P%$%HJ8;z$N=hM}$,@5$7$/<B8=$5$l$F$$$l$P!"$3$s$J6lO+$O(B
$B$7$J$/$F$9$`$H$$$&$3$H$KJQ$o$j$O$"$j$^$;$s!#(B

format $B$K4X$7$F$O!"$=$b$=$b(B format $B$H$$$&$N$,:G=i$O;H$($F$b!"$8$-$KIT(B
$B==J,$K$J$C$FA4It<+J,$G=hM}$9$k$h$&$K$J$k$3$H$,B?$$$N$G!"$"$^$jI,MW@-$r(B
$B46$8$F$$$^$;$s$G$7$?!#<+J,$G=hM}$9$k$K$7$F$bJ8;zNs$N@^$jJV$7$OI,MW$J$N(B
$B$G!"(Bfold.pl $B$H$$$&$N$r:n$j$^$7$?!#$3$l$O(B EUC $B$+(B SJIS $B$G$"$l$PF|K\8l$r(B
$B@5$7$/=hM}$9$k$7!"%P%C%/%9%Z!<%9$b9M$($F$"$j$^$9!#$b$H$b$H$O(B sdif $B$N$?(B
$B$a$K:n$C$?4X?t$G$9!#(B

fold.pl $B$N%5%s%W%k$H$7$F(B stripe $B$H$$$&%3%^%s%I$,(B ftp $B$KCV$$$F$"$j$^$9(B
$B$,!"$3$l$O!"Lr$KN)$?$J$$%W%m%0%i%`%3%s%F%9%H$H$$$&$N$,$"$C$?$i1~Jg$7$h(B
$B$&$+$H;W$C$F$$$k$b$N$G$9(B :-)

--utashiro
