client.pl

#!/usr/bin/perl -w
 
# File: client.pl
# 
# Abstract: Perl script to create a socket and connect on port 12345.
# 
# Version: 1.0
# 
# © Copyright 2005 Apple Computer, Inc. All rights reserved.
# 
# IMPORTANT:  This Apple software is supplied to 
# you by Apple Computer, Inc. ("Apple") in 
# consideration of your agreement to the following 
# terms, and your use, installation, modification 
# or redistribution of this Apple software 
# constitutes acceptance of these terms.  If you do 
# not agree with these terms, please do not use, 
# install, modify or redistribute this Apple 
# software.
# 
# In consideration of your agreement to abide by 
# the following terms, and subject to these terms, 
# Apple grants you a personal, non-exclusive 
# license, under Apple's copyrights in this 
# original Apple software (the "Apple Software"), 
# to use, reproduce, modify and redistribute the 
# Apple Software, with or without modifications, in 
# source and/or binary forms; provided that if you 
# redistribute the Apple Software in its entirety 
# and without modifications, you must retain this 
# notice and the following text and disclaimers in 
# all such redistributions of the Apple Software. 
# Neither the name, trademarks, service marks or 
# logos of Apple Computer, Inc. may be used to 
# endorse or promote products derived from the 
# Apple Software without specific prior written 
# permission from Apple.  Except as expressly 
# stated in this notice, no other rights or 
# licenses, express or implied, are granted by 
# Apple herein, including but not limited to any 
# patent rights that may be infringed by your 
# derivative works or by other works in which the 
# Apple Software may be incorporated.
# 
# The Apple Software is provided by Apple on an "AS 
# IS" basis.  APPLE MAKES NO WARRANTIES, EXPRESS OR 
# IMPLIED, INCLUDING WITHOUT LIMITATION THE IMPLIED 
# WARRANTIES OF NON-INFRINGEMENT, MERCHANTABILITY 
# AND FITNESS FOR A PARTICULAR PURPOSE, REGARDING 
# THE APPLE SOFTWARE OR ITS USE AND OPERATION ALONE 
# OR IN COMBINATION WITH YOUR PRODUCTS.
# 
# IN NO EVENT SHALL APPLE BE LIABLE FOR ANY 
# SPECIAL, INDIRECT, INCIDENTAL OR CONSEQUENTIAL 
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, 
# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS 
# OF USE, DATA, OR PROFITS; OR BUSINESS 
# INTERRUPTION) ARISING IN ANY WAY OUT OF THE USE, 
# REPRODUCTION, MODIFICATION AND/OR DISTRIBUTION OF 
# THE APPLE SOFTWARE, HOWEVER CAUSED AND WHETHER 
# UNDER THEORY OF CONTRACT, TORT (INCLUDING 
# NEGLIGENCE), STRICT LIABILITY OR OTHERWISE, EVEN 
# IF APPLE HAS BEEN ADVISED OF THE POSSIBILITY OF 
# SUCH DAMAGE.
 
 
use strict;
use Socket;
 
# Set the hostname and port number
# For this sample we'll use the same port number
# that is specified in SampleD.c
my $destination = sockaddr_in(12345, inet_aton('localhost'));
 
# Create the socket, connect to the port
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || die "socket: $!";
connect(SOCKET, $destination) || die "connect: $!";
 
# Read whatever the streamm provides
my $message;
while ($message = <SOCKET>) {
        print "$message\n";
}
close SOCKET || die "close: $!";