Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!tokyonet.ad.jp!tokyonet.ad.jp!news
From: "A.Kawamura" <kawamura@nippon-rad.co.jp>
Subject: Re: perl japanese patch
X-Nntp-Posting-Host: max1-06.harajuku.egg.or.jp
Content-Type: text/plain; charset=iso-2022-jp
Message-ID: <316A67DD.1B15@nippon-rad.co.jp>
Sender: news@TokyoNet.AD.JP
Content-Transfer-Encoding: 7bit
Organization: Tokyo Internet NetNews Service
References: <3169182A.1C@nippon-rad.co.jp> <r19g2aewnp6.fsf@wile-e-coyote.cs.washington.edu>
Mime-Version: 1.0
Date: Tue, 9 Apr 1996 13:36:29 GMT
X-Mailer: Mozilla 2.01Ib7 [ja] (WinNT; I)
Lines: 69
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:856
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=856&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$+$o$`$i!wF|K\%i%C%I3t<02q<R$G$9!#(B

$B$o$?$/$7$N!"(B

> $B$I$J$?$+!"(Bftp $B%5%$%H$r$4B8CN$NJ}$,$4$6$$$^$7$?$i!"$*CN$i$;$/$@$5(B
> $B$$!#(B

$B$KBP$7!"(B

Yasushi Saito wrote:

$B$5#n$+$i!"(B

> 
> Perl5.002$B$KBP$9$k%Q%C%A$,(BCPAN$B$KCV$$$F$"$j$^$9!#(B
> 
> ftp://ftp.lab.kdd.co.jp/lang/perl/CPAN/authors/Yasushi_Saito/perl5.002-jpatch.gz
> 
> $B$G$9!#(B

$B$H(B
  $B:J</!w0l66Bg$G$9!#(B
$B$5$s$+$i!"(B

>  $B6aF#$5$s$,:n@.$5$l$^$7$?(BPerl$B$K4X$9$k%Z!<%8(B
> (http://www.st.rim.or.jp/~cond/perlinfo/)$B$K$h$k$H!"(B
> ftp://ftp.lab.kdd.co.jp/lang/perl/CPAN/authors/id/YASU/perl5.002-jpatch.gz
> $B$K$"$k$h$&$G$9!#(B

$B$H%U%)!<%m!<$r$$$?$@$-$^$7$?!#(B
$BAaB.!";n$7$F$_$?$$$H;W$$$^$9!#(B

$B$^$?!"(B

>   : tr/$B$"(B-$B$s(B/$B%"(B-$B%s(B/ $B$H$d$C$?$i!"(B"$B$$(B" $B$,(B "$B%&(B" $B$K$J$C$F$7$^$C$?$j!"(B
>   $BA43Q%"%k%U%!%Y%C%H$,$+$1$J$+$C$?$j$7$F$^$9!#(B

$B$KBP$7$F$b!"(B
  $B:J</!w0l66Bg$5$s$+$i(B jcode.pl $B$rMxMQ$9$kJ}K!$d!"9u9>$5$s$+$i0J2<$N$h$&$J(B
$B4X?t$r;HMQ$7$F$$$k$H$N%U%)%m!<$r$$$?$@$-$^$7$?!#(B

> # Usage: $Japanese_EUC_str = hiragana2katakana($Japanese_EUC_str);
> 
> sub
> hiragana2katakana
> {
>         local($_) = @_;
>         s/\xa5\xa4/`/g;
>         s/\xa4([\xa1-\xfe])/\xa5$1/g;
>         s/`/\xa5\xa4/g;
>         $_;
> }

$B$3$A$i$b;n$7$F$_$?$$$H;W$$$^$9!#(B
$B<B$O!"(B"tr/$B$"(B-$B$s(B/$B%"(B-$B%s(B/" $B$K$?$$$7$F$O!"(B

s/$B$$(B/#/;
tr/$B$"(B-$B$s(B/$B%"(B-$B%s(B/;
s/#/$B%$(B/;

$B$J$I$H$$$&8HB)$J<jCJ$r;HMQ$7$F$4$^$+$7$F$$$?$N$G$9$,!"H>3Q$N5-9f$rA43Q$KJQ49$9$k(B
$BI,MW$,$"$j!"$d$`$J$/(B jperl $B$r;HMQ$9$k$K$$$?$C$?$N$G$9!#(B
$B1Q8l$O6l<j$J;d$G$9$,!"$3$N;~$P$+$j$OF|K\8l$r<v$C$F$7$^$$$^$7$?!#(B:-<

$B:#EY$N;E;v$O(B 5 $B7n$,G<4|$G$9!#(B
$B6;$r$O$C$F(B jperl 5.01(?) $B$GG<IJ$7$^$9!#(B
$B$"$j$,$H$&$4$6$$$^$7$?!#(B

=================================================================================
