Onnowpurbo: New page: Sumber: http://www.tutorialspoint.com/perl/perl_socket_programming.htm Server #!/usr/bin/perl -w # Filename : server.pl use strict; use Socket; # use port 7890 as default my $p...

2014-05-07T22:32:30Z

New page: Sumber: http://www.tutorialspoint.com/perl/perl_socket_programming.htm Server #!/usr/bin/perl -w # Filename : server.pl use strict; use Socket; # use port 7890 as default my $p...

New page

Sumber: http://www.tutorialspoint.com/perl/perl_socket_programming.htm

Server

#!/usr/bin/perl -w
# Filename : server.pl

use strict;
use Socket;

# use port 7890 as default
my $port = shift || 7890;
my $proto = getprotobyname('tcp');
my $server = "localhost"; # Host IP running the server

# create a socket, make it reusable
socket(SOCKET, PF_INET, SOCK_STREAM, $proto)
or die "Can't open socket $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1)
or die "Can't set socket option to SO_REUSEADDR $!\n";

# bind to a port, then listen
bind( SOCKET, pack_sockaddr_in($port, inet_aton($server)))
or die "Can't bind to port $port! \n";

listen(SOCKET, 5) or die "listen: $!";
print "SERVER started on port $port\n";

# accepting a connection
my $client_addr;
while ($client_addr = accept(NEW_SOCKET, SOCKET)) {
# send them a message, close connection
my $name = gethostbyaddr($client_addr, AF_INET );
print NEW_SOCKET "Smile from the server";
print "Connection recieved from $name\n";
close NEW_SOCKET;
}

Jalankan

$perl sever.pl&

Client

!/usr/bin/perl -w
# Filename : client.pl

use strict;
use Socket;

# initialize host and port
my $host = shift || 'localhost';
my $port = shift || 7890;
my $server = "localhost"; # Host IP running the server

# create the socket, connect to the port
socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2])
or die "Can't create a socket $!\n";
connect( SOCKET, pack_sockaddr_in($port, inet_aton($server)))
or die "Can't connect to port $port! \n";

my $line;
while ($line = <SOCKET>) {
print "$line\n";
}
close SOCKET or die "close: $!";

Jalankan

$perl client.pl
Smile from the server

==Referensi==

* http://www.tutorialspoint.com/perl/perl_socket_programming.htm

Perl: Socket Programming - Revision history

Onnowpurbo: New page: Sumber: http://www.tutorialspoint.com/perl/perl_socket_programming.htm Server #!/usr/bin/perl -w # Filename : server.pl use strict; use Socket; # use port 7890 as default my $p...