Perl Socket Programming

Socket juga dikenal sebagai "socket", aplikasi ini biasanya dikeluarkan oleh "socket" untuk permintaan jaringan atau network respon permintaan, sehingga proses antara host atau antara komputer di dapat berkomunikasi.

Bagian ini adalah semua yang kami terima bahasa Perl cara menggunakan layanan Socket.

membuat server

Gunakan fungsisocket untuk membuat layanan socket.
Gunakan fungsimengikat untuk mengikat pelabuhan.
Gunakanmendengarkan mendengarkan fungsi pelabuhan.
Gunakanmenerima fungsi menerima permintaan klien.

Membuat klien

Gunakan fungsisocket untuk membuat layanan socket.
Menggunakan fungsiconnect untuk menghubungkan ke server socket.

Bagan berikut ini merupakan arus komunikasi antara klien dan server:

Fungsi Server soket

fungsi socket

Perl, kita menggunakan fungsi socket () untuk membuat socket, sintaks adalah sebagai berikut:

socket( SOCKET, DOMAIN, TYPE, PROTOCOL );

parameter analisis:

Menentukan protokol mengatur soket DOMAIN dibuat. Sebagai contoh:
- AF_INET menunjukkan protokol jaringan IPv4
- AF_INET6 untuk IPv6
- AF_UNIX mewakili soket lokal (menggunakan file)
Jenis TYPE socket dapat koneksi-oriented atau connectionless ke SOCK_STREAM atau SOCK_DGRAM
PROTOKOL harus(getprotobyname ( 'tcp')) [2].Tentukan protokol transport yang sebenarnya.

Jadi fungsi socket panggilan sebagai berikut:

use Socket     # 定义了 PF_INET 和 SOCK_STREAM

socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2]);

bind () function

Gunakan mengikat () menetapkan alamat ke soket:

bind( SOCKET, ADDRESS );

Socket descriptor socket. ALAMAT alamat socket (TCP / IP) mengandung tiga unsur:

Alamat keluarga (TCP / IP, adalah AF_INET, pada sistem Anda mungkin 2)
Nomor port (seperti 21)
alamat jaringan (seperti 10.12.12.168)

Setelah menggunakan socket () menciptakan socket, hanya memberikan protokol yang mereka gunakan dan tidak memberikan alamat. Sebelum menerima koneksi host lain, Anda harus terlebih dahulu memanggil bind () menetapkan alamat ke soket.

contoh sederhana adalah sebagai berikut:

use Socket        # 定义了 PF_INET 和 SOCK_STREAM

$port = 12345;    # 监听的端口
$server_ip_address = "10.12.12.168";
bind( SOCKET, pack_sockaddr_in($port, inet_aton($server_ip_address)))
   or die "无法绑定端口! \n";

atau mati di alamat mengikat gagal eksekusi.

Dengan menetapkan pilihan SO_REUSEADDR setsockopt () untuk mengatur port dapat digunakan kembali segera.

pack_sockaddr_in () fungsi untuk mengkonversi alamat ke format biner.

mendengarkan () fungsi

Ketika soket dan alamat mengikat, mendengarkan () fungsi akan mulai mendengarkan permintaan sambungan mungkin. Namun, ini hanya dapat menjamin aliran data yang dapat diandalkan ketika menggunakan:

listen( SOCKET, QUEUESIZE );

SOCKET: deskriptor soket.

QUEUESIZE: integer adalah keputusan untuk memantau ukuran antrian, ketika ada permintaan sambungan tiba, itu akan memasuki mendengarkan antrian, ketika permintaan koneksi adalah menerima () untuk menerima, dihapus dari monitor antrian, ketika antrian penuh, koneksi baru permintaan akan kembali kesalahan.

Setelah sambungan diterima, itu kembali 0 untuk sukses, kesalahan kembali -1.

menerima () function

menerima () fungsi menerima permintaan koneksi soket. Jika berhasil dalam bentuk terkompresi alamat jaringan, jika tidak maka kembali PALSU:

accept( NEW_SOCKET, SOCKET );

SOCKET: deskriptor soket.

ALAMAT: ADDRESS adalah alamat soket (TCP / IP) mengandung tiga unsur:

Alamat keluarga (TCP / IP, adalah AF_INET, pada sistem Anda mungkin 2)
Nomor port (seperti 21)
alamat jaringan (seperti 10.12.12.168)

menerima () yang biasanya diterapkan dalam loop tak terbatas:

while(1) {
   accept( NEW_SOCKET, SOCKT );
   .......
}

Contoh di atas dapat memantau secara real time untuk permintaan klien.

fungsi klien

menghubungkan () fungsi

menghubungkan () system call untuk mendirikan sebuah soket parameter koneksi file descriptor dan alamat host.

connect( SOCKET, ADDRESS );

Berikut ini menciptakan koneksi soket ke server misalnya:

$port = 21;    #  ftp 端口
$server_ip_address = "10.12.12.168";
connect( SOCKET, pack_sockaddr_in($port, inet_aton($server_ip_address)))
    or die "无法绑定端口! \n";

contoh lengkap

Selanjutnya kita datang untuk memahami semua fungsi aplikasi socket melalui contoh lengkap:

Server server.pl Code:

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

use strict;
use Socket;

# 使用端口 7890 作为默认值
my $port = shift || 7890;
my $proto = getprotobyname('tcp');
my $server = "localhost";  # 设置本地地址

# 创建 socket, 端口可重复使用，创建多个连接
socket(SOCKET, PF_INET, SOCK_STREAM, $proto)
   or die "无法打开 socket $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1)
   or die "无法设置 SO_REUSEADDR $!\n";

# 绑定端口并监听
bind( SOCKET, pack_sockaddr_in($port, inet_aton($server)))
   or die "无法绑定端口 $port! \n";

listen(SOCKET, 5) or die "listen: $!";
print "访问启动：$port\n";

# 接收请求
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 "我是来自服务端的信息";
   print "Connection recieved from $name\n";
   close NEW_SOCKET;
}

Buka terminal, jalankan kode berikut:

$ perl sever.pl
访问启动：7890

Klien client.pl Code:

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

use strict;
use Socket;

# 初始化地址与端口
my $host = shift || 'localhost';
my $port = shift || 7890;
my $server = "localhost";  # 主机地址

# 创建 socket 并连接
socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2])
   or die "无法创建 socket $!\n";
connect( SOCKET, pack_sockaddr_in($port, inet_aton($server)))
   or die "无法连接：port $port! \n";

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

Buka terminal lain, mengeksekusi kode berikut:

$ perl client.pl
我是来自服务端的信息

Sebelumnya: Perl Kirim Surat

Berikutnya: Perl Berorientasi Objek

Perl kuliah