Newsgroups: fj.lang.ruby,fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!news.trc!nf2.iij.ad.jp!nr0.iij.ad.jp!news.iij.ad.jp!uunet!in5.uu.net!newsrouter.icnc.com!europa.clark.net!208.134.240.140!newsfeed.internetmci.com!158.205.228.2!news.idc.ad.jp!news.ptopnet.or.jp!news.oki.co.jp!newsoffice.oki.co.jp!mtcss1k!aoi!lion!suzuki
From: suzuki@otsl.co.jp (SUZUKI Hisao)
Subject: Re: send POST request with telnet
In-Reply-To: Yukihiro Matsumoto's message of 23 Feb 1998 18:01:48 +0900
Message-ID: <SUZUKI.98Feb24094335@oz.otsl.oki.co.jp>
Lines: 36
Sender: news@lion.otsl.oki.co.jp
Nntp-Posting-Host: oz
Organization: Oki Technosystems Laboratory, Inc., Nagoya, Japan
References: <7sbtvzf8ns.fsf@sdd.tokyo-sc.toshiba.co.jp>
	<lvyaz2snib.fsf@picachu.netlab.co.jp>
Date: Tue, 24 Feb 1998 00:43:35 GMT
Xref: galaxy.trc.rwcp.or.jp fj.lang.ruby:24 fj.lang.perl:2783
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=2783&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.

$BNkLZ$G$9!#(B

$B5-;v(B <lvyaz2snib.fsf@picachu.netlab.co.jp> $B$K$F(B $B$^$D$b$H(B $B$5$s(B
>Inaba Hiroto <inaba@sdd.tokyo-sc.toshiba.co.jp> writes:
>
>|$B$$$A$*!<(B, Perl5$B$GF1$8$h$&$K=q$/$H(B, 
>|
>|  #!/usr/local/bin/perl -w
>|  use IO::Socket;
>|  print IO::Socket::INET->new(PeerAddr=>"$ARGV[0]:daytime")->getline;
>|
>|$B$G$7$g$&$+(B.
>
>$B$$$d$"!$(BPerl$B$b?J2=$7$^$7$?$M!%(B
>
>|# . $B$h$j(B -> $B$,9%$-(B. end $B$h$j(B {} $B$,9%$-(B.
>
>$B!V(Bend$B$h$j(B {} $B$,9%$-!W$H$$$&$N$O$^$C$?$/$b$C$F6&46$G$-$k$N$G$9(B
>$B$,!$(BPerl$B;H$$$O0lJ8;z$G$bC;$$J}$,9%$-$H$$$&?M$,B?$$$N$G!V(B. $B$h(B
>$B$j(B -> $B$,9%$-!W$H$$$&$N$O>/!90U30$G$7$?!%(B

Perl $B$O@N$+$i!V(B.$B!W$rJ8;zNsO"7k$N1i;;;R$H$7$F;H$C$F$$$k$+$i!$(B
$B$7$+$?$J$7$K!V(B->$B!W$r;H$C$F$$$k!$$H$$$&$N$,??Aj$N5$$,$9$k!D!#(B

% perl -e 'print aaa . bbb . "\n"'
aaabbb

$B$A$J$_$K!$(Bpython $B$G;w$?$h$&$J$b$N$r=q$/$H!$(B

#!/usr/local/bin/python
import telnetlib, sys, socket
port = socket.getservbyname("daytime", "tcp")
print telnetlib.Telnet(sys.argv[1], port).read_all(),

--===-----========------------- SANA ESPRIMO NASKAS SANAN IDEON.
SUZUKI Hisao           e-mail: suzuki@acm.org, suzuki@otsl.co.jp
