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: $!"; |
Copyright © 2005 Apple Computer, Inc. All Rights Reserved. Terms of Use | Privacy Policy | Updated: 2005-10-27