Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!sinfony-news01!tokyonet.ad.jp!tokyonet.ad.jp!taurus!news.dtinet.or.jp!news.dti.ad.jp!tokio!melconws!katase.melco!wnoc-sfc-news!sfc-keio-news!t93141tk
From: t93141tk@sfc.keio.ac.jp (Takeshi Kusune)
Subject: Re: record separator
In-Reply-To: jun@nih.go.jp's message of 12 Mar 1997 18:04:49 JST
Message-ID: <T93141TK.97Mar13030848@ccs01.sfc.keio.ac.jp>
Sender: news@sfc.keio.ac.jp
Nntp-Posting-Host: ccs01.sfc.keio.ac.jp
Organization: Keio University Shonan Fujisawa Campus, Fujisawa, Japan
References: <JUN.97Mar4174002@crick.nih.go.jp> <5g00nl$ghs@novalord.nova.co.jp>
	<JUN.97Mar11163215@crick.nih.go.jp>
	<7slo7tvjq1.fsf@sdd.tokyo-sc.toshiba.co.jp>
	<JUN.97Mar12180449@crick.nih.go.jp>
Date: Wed, 12 Mar 1997 18:08:48 GMT
Lines: 52
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1810
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1810&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.

$BFo:,$G$9!#(B
# $B$J$s$+%?%$%`%i%0$,$"$k$h$&$J5$$,$9$k!D!#(B

In article <JUN.97Mar12180449@crick.nih.go.jp>
 jun@nih.go.jp (ISHIKAWA Jun) writes:

 >> In article <7slo7tvjq1.fsf@sdd.tokyo-sc.toshiba.co.jp>
 >>  Inaba Hiroto <inaba@sdd.tokyo-sc.toshiba.co.jp> writes:
 >> 
 >> > > while (<>) {
 >> > >     $buffer .= $_;
 >> > >     split ,,2 if /^LOCUS/;
 >> > >     if (m#^//#) {
 >> > >         print $buffer unless $mark{$_[1]};
 >> > >         $mark{$_[1]}++;
 >> > >         $buffer = "";
 >> > >     }
 >> > > }

 >> > $B$3$NCf$N!V(Bsplit ,,2$B!W$O(B, split ' ',$_,2$B$r0U?^$7$F$$$k$H;W$$$^$9$,(B,
 >> > perl$B$O$=$N$h$&$K2r<a$7$F$$$^$;$s(B.
 >> > $BNc$($P!V(Bsplit(,,2)$B!W$H$9$k$H(Bsyntax error$B$K$J$j$^$9(B.

$B$A$J$_$K(B perl4 $B$@$H$3$N$^$^$G$b(B error $B$K$J$j$^$9$M!#(B

 >> > perl$B$O$3$l$r!V(B((split),),2$B!W$H2r<a$7$F$$$k$H;W$o$l$^$9(B.
 >> 
 >> $B$&!<$s!"<B9T7k2L$r8+$k$H2?$iLdBj$O$J$$$N$G$9$,(B(split$B$NOC(B)$B!"(B

$B$=$l$O(B
---------------- begin ---------------------- begin ----------------
LOCUS       ABU18603     1818 bp    DNA             PRI       16-JAN-1995
LOCUS       AGGGLINE     7360 bp    DNA             PRI       31-JUL-1993
LOCUS       AGMA13GT      371 bp    DNA             PRI       06-SEP-1991
----------------- end ------------------------ end -----------------
$B$_$?$$$J$N3F9T$NBhFs9`$r8+$F$k$@$1$@$+$i$G$9$h$M!#(B
$BBhFs9`$@$1I,MW$J$N$G!"A0$NFs$D$@$1J,3d$7$h$&$H$7$F(B ,2 $B$H$7$F$k$N$K!"(B
$B7k6IA4It(B split $B$7$F$7$^$C$F$k$o$1$G$9!#(B

$B$D$^$j!"(Bsplit ,,2 $B$O!"(B
---------------- begin ---------------------- begin ----------------
((@_ = ("LOCUS","ABU18603","1818","bp","DNA","PRI","16-JAN-1995")),),2
----------------- end ------------------------ end -----------------
$B$H$$$&$h$&$K2r<a$5$l$F!"(B,,2 $B$O$J$$$N$HF1$8$3$H$K$J$j$^$9!#(B

 >> $B$4;XE&$N$h$&$J4m81$,$"$k$H$$$&$3$H$J$N$G!">JN,$O$d$a$h$&$H;W$$$^$9!#(B
 >> $B!t(B/[ \t\n]+/$B$H=q$/$N$,LLE]$G!"$D$$>JN,$7$F$$$^$7$?!#(B

/\s+/ $B$G$OBLL\$G$9$+!)(B
--
$B7DXf5A=NBg3X(B $B4D6->pJs3XIt(B $BFAED8&5f<<(B  $BFo:,M:;V(B
kusune@sfc.wide.ad.jp, t93141tk@sfc.keio.ac.jp
