{ print "$host is a DNS Name, performing lookup¥n" if $debug; $ip = gethostbyname($host) or die "ERROR: Host $hostname not found.¥n"; } $nip = inet_ntoa($ip); print STDERR "Connecting to $nip:443¥n"; $sin = sockaddr_in(443, $ip); Perlスクリプティング 42 ...