🚀 go-pugleaf

$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