Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!wnoc-sfc-news!sfc-keio-news!t94063to
From: t94063to@sfc.keio.ac.jp (ookoshi tadashi)
Subject: [Q]ClientProgram error on Solaris & Perl5.002
Message-ID: <1996Jul7.142528.23335@sfc.keio.ac.jp>
Sender: news@sfc.keio.ac.jp
Nntp-Posting-Host: cca00.sfc.keio.ac.jp
Organization: Keio University Shonan Fujisawa Campus, Fujisawa Japan
X-Newsreader: mnews [version 1.19] 1995-07/21(Fri)
Date: Sun, 7 Jul 1996 14:25:28 GMT
Lines: 90
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1068
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1068&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.

$BBg1[!w7DXf$H?=$7$^$9!#(B

NUTSHELL$B$N!V(BPerl$B%W%m%0%i%_%s%0!W(Bp466$B!A$K$"$k!"!V4JC1$J%5%s%W%k%/%i%$%"%s%H!W(B
$B$N%=!<%9$r$^$C$?$/JQ99$;$:$KF0$+$7$F$$$k$N$G$9$,!"!J0J2<$N%=!<%9!K:#$^$G$N(B
SunOS4(Perl$B$N%P!<%8%g%s3P$($F$$$J$$(Bm(__)m )$B$+$i!"(BSS2 + Solaris2.5J + Perl5.002
$B$K4D6-$rJQ$($?=j!"(B
-------------
Protocol not supported at client.pl line 41.
-------------
$B$N%(%i!<$,=P$k$h$&$K$J$C$F$7$^$$$^$7$?!#!J(B41$B9TL\$O!"(Bsocket$B$N=j$G$7$?!#!K(B
$B%=%1%C%H$K$D$$$F>\$7$/$J$/!"$^$?(BPerl$B$b$=$s$J$K@:DL$7$F$$$J$$$N$G!"$I$&$7$F(B
$B$h$$$+$h$/$o$+$i$::$$C$F$$$^$9!#%"%I%P%$%9D:$1$?$i9,$$$G$9!#(B

$B$h$m$7$/$*4j$$CW$7$^$9!#(B

------------------------$B$3$3$+$i%=!<%9(B------------------------------------
#!/usr/local/bin/perl
#
# TCP/IP Client Script
#
#

#$B%G%U%)%k%H$N%5!<%P!&%]!<%HHV9f$r@_Dj(B
($them,$port,$MSG) = @ARGV;
$port = 80 unless $port;
$them = 'www.sfc.keio.ac.jp' unless $them;
$MSG = `GET /index.html\n' unless $MSG;

#$BDj?t$r@_Dj(B
$AF_INET = 2;
$SOCK_STREAM = 1;


$SIG{'INT'} = 'dokill';
sub dokill {
kill 9, $child if $child;
}

$sockaddr = 'S n a4 x8';

chop($hostname = `hostname`);

($name,$aliases,$proto) = getprotobyname('tcp');
($name,$aliases,$port)  = getservbyname($port,'tcp') unless $port =~ /^\d+$/;;
($name,$aliases,$type,$len,$thisaddr) = gethostbyname($hostname);
($name,$aliases,$type,$len,$thataddr) = gethostbyname($them);

$this = pack($sockaddr, $AF_INET, 0, $thisaddr);
$that = pack($sockaddr, $AF_INET, $port, $thataddr);

#$B%=%1%C%H%U%!%$%k%O%s%I%k$r:n$k(B
if (socket(S, $AF_INET, $SOCK_STREAM, $proto)){
  #print "socket OK!!!!!!!!\n";
}else{
  die $!;
}

#$B%=%1%C%H$K%"%I%l%9$rM?$($k(B
if (bind(S, $this)){
  #print "bind OK!!!!!!!\n";
}else{
  die $!;
}

#$B%5!<%P$K%3%M%/%H$9$k(B
if (connect(S, $that)){
  #print "connect OK!!!!!!\n";
}else {
  die $!;
}


#$B%=%1%C%H$r%3%^%s%I%P%C%U%!%j%s%0$9$k$h$&$K@_Dj$9$k(B
select(S); $| = 1; select(STDOUT);

#$BDL?.(B
print S "GET $MSG\n";

while(<S>){
       print;
   }

-------------------------$B$3$3$^$G(B------------------------------------------
$B(#(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!($(B
$B("Bg1[(B  $B6)(B(Tadashi Okoshi)                    $B7DXf5A=NBg3X(B $B4D6->pJs3XIt#3G/(B $B(-(B
$B("FAED!&B<0f!&FoK\8&5f2q(B(KMSF Project)    Knowell Project                   $B(-(B
$B("%$%Y%s%H7O%5!<%/%k!X$9$3$d$+$5$s!Y(B      Tennis Circle $B#L#O#G#H#O#U#S#E(B    $B(-(B
$B("(Be-mail: t94063to@sfc.keio.ac.jp  or  slash@sfc.wide.ad.jp                 $B(-(B
$B("(BURL:    http://www.SFC.KEIO.ac.jp/~t94063to/                              $B(-(B
$B(&(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(0(B
