Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!jindai-news!cc-jindai-news!news
From: hiro@cc.kanagawa-u.ac.jp (Hiroyuki Satoh)
Subject: How to search Japanese with Perl
Message-ID: <prybcs6na9.fsf@fondu.cc.kanagawa-u.ac.jp>
Lines: 33
Sender: hiro@fondu.cc.kanagawa-u.ac.jp
Organization: IPC, Kanagawa Univ. Yokohama, Japan
X-Newsreader: Gnus v5.0.6
Date: Fri, 14 Feb 1997 04:10:06 GMT
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1719
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1719&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:4F#?@F`@nBg3X$H?=$7$^$9!#(B

$B3'$5$s$K$*$-$-$7$?$$$3$H$,$"$j!"$H$&$3$&$7$^$7$?!#(B

$B<ALd$O(B
jperl$B$r;HMQ$;$:$KF|K\8l$r8!:w$9$k;v$,$G$-$k$+$I$&$+$H$$$&;v$G$9!#(B

$BNc$($P$3$N$h$&$J%W%m%0%i%`$r:n@.$7$?;~$K(B($B4A;z%3!<%I$O(BEUC$B$G$9!#(B)
#!/usr/local/bin/perl
while(<>){
        @aaa = grep(/$B8$(B/,$_);
        print @aaa;
}
$B%G!<%?$,(B
$B8$(B
$B%8$N(B
$BG-(B
$B$H$7$^$9!#(B

$B$3$N%W%m%0%i%`$r<B9T$7$F8$$N$_$r8!:w$7$h$&$H$7$F$b(B
$B%8$N$,%^%C%A$7$F$7$^$$$^$9!#(B

$B$3$l$O(BEUC$B$N%3!<%I$,(B10$B?J?t$G(B
$B8$(B 184 164
$B%8$N(B 165 184 164 206
$B$@$+$i$@$H$*$b$$$^$9!#(B

$B$3$l$rDL>o$N(BPerl$B$r$7$h$&$7(B(jperl$B$G$O$J$/(B)$B8$$N$_$r%^%C%A$5$;$?$$$N$G$9!#(B

$B$O$?$7$F!"$=$N$h$&$J$3$H$O2DG=$J$N$G$7$g$&$+!)(B

$B$I$J$?$+!"65$($F2<$5$$!#$h$m$7$/$*4j$$$7$^$9!#(B

-- 
------------------------------------
Hiroyuki Satoh 
hiro@cc.kanagawa-u.ac.jp
dept: economics. kanagawa univ.
------------------------------------

