Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!news.trc!nf2.iij.ad.jp!nr0.iij.ad.jp!news.iij.ad.jp!rim.or.jp!tamaru-news!kuee-news!odins-suita!itserv.it.okayama-u.ac.jp!elecnews!biotech5e!yama
From: yama@biotech.okayama-u.ac.jp (Mamoru Yamanishi)
Subject: Re: [Q]NewsServer=?ISO-2022-JP?B?GyRCJCskaTUtO3YkcjxoGyhC?=
	=?ISO-2022-JP?B?GyRCPVAkORsoQg==?=
Sender: news@plasma.elec.okayama-u.ac.jp
Message-ID: <yama-2110971524250001@biotech5e.biotech.okayama-u.ac.jp>
Date: Tue, 21 Oct 1997 06:24:25 GMT
Content-Type: text/plain; charset=iso-2022-jp
References: <62flsr$3m4@meridian.akashi.flab.fujitsu.co.jp>
Nntp-Posting-Host: biotech5e.biotech.okayama-u.ac.jp
Mime-Version: 1.0
Organization: Okayama Univ.
X-Newsreader: NewsWatcher-J18 (2.1.6)
Lines: 48
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:2428
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=2428&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.

$BD>@\E*$J2sEz$G$O$J$$$3$H$H!"(BUNIX$B4D6-$G$J$$$H;H$($J$$$+$b(B
$B$7$l$J$$$N$G$9$,!"(B

> #!/usr/bin/perl
> 
>         use Socket;
> 
>         $server = 'abc.co.jp';
>         $port = 119;
>         $sockaddr = 'S n a4 x8';
> 
>         ($name,$aliases,$proto) = getprotobyname('tcp');
>         ($name,$aliases,$type,$len,$hostaddr) = gethostbyname($server);
>         $sock = pack($sockaddr,2,$port,$hostaddr);
> 
>         socket(S,&PF_INET,&SOCK_STREAM,$proto) || die $!;
>         connect(S,$sock) || die $!;
>         select(S); $| = 1; select(STDOUT);

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

>         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$b$7!"(BUNIX$B4D6-$G$O$J$$$1$IBPOCE*$K=hM}$7$?$$$J$i!"(Bselect()$B$,;H$($k$+$b(B
$B$7$l$^$;$s!#(Bselect$B$GF~=PNO2DG=$J%U%!%$%k%O%s%I%k$r8+$D$1$FJ,4t$7$F(B
$B=hM}$9$k$N$G$9$,!"$&$^$/F0$/$h$&$J%9%/%j%W%H$r$+$1$k$+$I$&$+!)!)!)(B

-- 
$B;3@>!!<i(B <yama@biotech.okayama-u.ac.jp>
$B2,;3Bg3X9)3XIt@8J*5!G=9)3X2J(B
086-251-8196
