Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.join.ad.jp!sutnews.sut.ac.jp!Q.T.Honey!aero.kyushu-u!kuee-news!kuis-news!news.cs.ritsumei.ac.jp!odins-suita!chiba-ns!hagi!is.tsukuba.ac.jp!sakamoto
From: sakamoto@hlla.is.tsukuba.ac.jp (Hideki SAKAMOTO)
Subject: Re: [Q]NewsServer =?ISO-2022-JP?B?GyRAGyRCJCskaTUtO3YkcjxoPVAbKEI=?=
 =?ISO-2022-JP?B?GyRAGyRCJDkbKEI=?=
References: <62flsr$3m4@meridian.akashi.flab.fujitsu.co.jp> 
	<yama-2110971524250001@biotech5e.biotech.okayama-u.ac.jp>
Date: Wed, 22 Oct 1997 02:19:18 GMT
Mime-Version: 1.0 (generated by vin2.0)
Nntp-Posting-Host: hlla-gw
Content-Type: text/plain; charset=ISO-2022-JP
Reply-To: sakamoto@hlla.is.tsukuba.ac.jp (Hideki SAKAMOTO,[HLLA],lab,5161)
Organization: Institute of Information Sciences & Electronics, University of Tsukuba, Japan
Sender: news@is.tsukuba.ac.jp (News Manager)
Message-ID: <qJLZf.sakamoto@hlla.is.tsukuba.ac.jp>
Lines: 77
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:2436
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=2436&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.

$BC^GHBg$N:d85$G$9!#(B

$B;3@>$5$s(B>
 |$BIaDL$O$3$3$+$i@h$O(Bfork()$B$G%W%m%;%9$rJ,$1$F!"?F$O%3%^%s%I$N=q$-9~$_$K(B
 |$B@lG0!";R$OFI$_=P$7$K@lG0!J5U$G$bNI$$$H;W$&!K$9$k$N$@$H;W$$$^$9!#(B
 |$B!J%i%/%@K\$N%W%m%;%94VDL?.!&4JC1$J%5%s%W%k%/%i%$%"%s%H$G$9!K(B

$B$=$l$r$d$C$F$7$^$&$H!"(B

Hirata$B$5$s(B>
 |$B$I$N$h$&$K$9$l$P#1%3%^%s%I$KBP$9$k#11~Ez7k2L$,F@$i$l$k$N(B
 |$B$G$9$+!#(B

$B$H$$$&$3$H$O$d$j$K$/$$$H;W$$$^$9!#(BRFC$B$rFI$s$G%W%m%H%3%k$rM}2r$7$?>e$G(B
$B0l$D$N%W%m%;%9$GFI$_=q$-$r$7$?J}$,8zN($O$$$$$G$7$g$&!#(B

$B;3@>$5$s(B>
 |$B$3$N$^$^$G$O!"(BQuit$B$9$k$^$GFI$_$K1>$C$F$$$J$$$N$G!"BPOCE*$K$O$J$C$F$J$$(B
 |$B$H;W$$$^$9!#(B

$B$3$l$O$=$NDL$j$@$H;W$$$^$9!#(B

 |>         print S "group aaa.bbb\n";
 |> 
 |>         for($i=1;$i<=500;$i++){
 |>                 print S "head\n";
 |>                 print S "body\n";
 |>                 print S "next\n";
 |>         }
 |> 
 |>         print S 'quit',"\n";
 |> 
 |>         while(<S>){
 |>                 print ;
 |>         }

$B$3$3$rNc$($P!"(B

print S "GROUP aaa.bbb\r\n";
@msg = split(/\s+/, <S>);
if ($msg[0] ne "211") {
    print STDERR "Error: @msg\n"
    print S "QUIT\r\n";
    close(S);
    exit(1);
}
for ($i=$msg[2];$i<=$msg[3];$i++) {
    open(ARTICLE, ">$i", 0644);
    print S "ARTICLE $i\r\n";
    $msg = <S>;
    next if ($msg !~ /^220/);
    while (<S>) {
chop;
chop;
last if /^\.$/;
print ARTICLE "$_\n";
    }
    close(ARTICLE);
}

$B$H$+$d$k$H$:$$$V$s2rEz$K6a$/$J$k$s$8$c$J$$$G$7$g$&$+!#(BRFC-977$B$rFI$s$G(B
$BM}2r$7$F$$$J$$$H%A%s%W%s%+%s%W%s$@$H;W$$$^$9$,!">/$J$/$H$b$3$NJ}K!$G(B
$BKM$N=q$$$?%9%/%j%W%H$O%^%H%b$KF0$$$F$$$^$9!#(B

Hirata$B$5$s(B>
 |$B%K%e!<%9%5!<%P!<$+$i5-;v$N<h$j=P$7$r9T$$$?$$$N$G$9$,!"(B
 |$B0J2<$N%W%m%0%i%`$@$H<h$j=P$95-;v$N?t$,$"$k0lDj?t$rD6$((B
 |$B$k$H!"I8=`=PNO$K=q$-=P$9B.EY$,5^$KCY$/$J$j$^$9!#(B
 |$B$J$<!"0lDj?t$N5-;v$r=PNO$7$?8e$G5^$KCY$/$J$k$N$G$9$+!#(B

$B$3$A$i$K4X$7$F$O%N!<%"%$%G%"$G$9!#KM$NJ}$O(Bperl$B$G=q$$$?(Bnntp$B%5!<%P$NDL?.(B
$BB.EY$K4X$7$F;w$?$h$&$J%H%i%V%k$,8+$i$l$^$7$?(B($BL$2r7h(B)$B$,!"4XO"$,$"$k$+$I(B
$B$&$+$OJ,$+$j$^$;$s!#(B

-- 
  $B:d85(B  $B1Q5*(B   (Hideki Sakamoto) $BC^GHBg3X9)3X8&5f2J(B
  e-mail: sakamoto@hlla.is.tsukuba.ac.jp
