Perl 의 Socket 이라는 Module 을 이용한 Socket Programming.
먼저 Server side Programming.
우선 Basic statement
#Server side:
my $trans_serv = getprotobyname( 'udp' );
my $local_host = gethostbyname( LOCAL_INETNAME );
my $local_port = SIMPLE_UDP_PORT;
my $local_addr = sockaddr_in( $local_port, INADDR_ANY );
#socket() : socket open 상수전달
#(Protocol family, Address family, Socket Type, Linux specific shortcut)
socket( UDP_SOCK, PF_INET, SOCK_DGRAM, $trans_serv )
or die "udp_s2: socket creation failed : $!\n";
bind( UDP_SOCK, $local_addr )
or die "udp_s2: bind to address failed : $!\n";
#Client 로 부터 전달 받은 메시지를 while문을 통해 출력.
my $data;
while( 1 ){
my $from_who = recv( UDP_SOCK, $data, MAX_RECV_LEN, 0 );
if ( $from_who ){
my ( $the_port, $the_ip ) = sockaddr_in( $from_who );
my $remote_name = gethostbyaddr( $the_ip, AF_INET );
warn "Received from $remote_name: $data\n";
}
else{
warn "Problem with recv: $!\n";
}
}
#Client side:
#! /usr/bin/perl -w
use strict;
use Socket;
use constant SIMPLE_UDP_PORT => 4001;
use constant REMOTE_HOST => 'localhost';
#||(or) : 명령행 전달인자가 있을경우 취하고 없으면 REMOTE_HOST 상수를 이용해 받음.
#protocol name 으로 서비스 포트넘버를 리턴.
#or 의 기본 연산원리를 이용한 것으로 첫번째 인자가 false 일 경우 두번째 인자를
#검사를 하지만, 첫번째 인자가 True 인경우 두번째 인자와는 관계없이 True 이므로
#두번째 인자는 검사하지 않는다. 즉 아규먼트가 있으면 shift 되지만 없을경우
#위에서 정의된 REMOTE_HOST 상수값이 리턴된다.
my $remote = shift || REMOTE_HOST;
my $trans_serv = getprotobyname( 'udp' );
my $remote_host = gethostbyname( $remote )
or die "udp_c2: name lookup failed : $remote\n";
my $remote_port = shift || SIMPLE_UDP_PORT;
my $destination = sockaddr_in( $remote_port, $remote_host );
socket( UDP_SOCK, PF_INET, SOCK_DGRAM, $trans_serv )
or die "udp_s2: socket creation failed : $!\n";
#send(): $destination 측으로 $data 를 메시지로 전송.
my $data = "Hello Server ~~!!";
send( UDP_SOCK, $data, 0, $destination )
or warn "udp_c2: send to socket failed.\n";
close UDP_SOCK
or die "udp_c2: close socket failed : $!\n";
#Referenced 'Programming the network with perl' - Paul Barry -
#! /usr/bin/perl -w
use strict;
use Socket; #Socket Module 사용
use strict;
use Socket; #Socket Module 사용
#사용할 Port 와 최대로 받고 싶은 길이, 도메인 네임을
#use constant 를 이용하여 정의. (C에서 #define 과 같은 의미로 보면된다)
use constant SIMPLE_UDP_PORT => 4001;
use constant MAX_RECV_LEN => 1500;
use constant LOCAL_INETNAME => 'localhost';
#다음 Socket Module 의 함수를 이용하여 스칼로로 리턴
use constant MAX_RECV_LEN => 1500;
use constant LOCAL_INETNAME => 'localhost';
#다음 Socket Module 의 함수를 이용하여 스칼로로 리턴
#- 간단한 함수의 정의
#getprotobyname() : protocol name 으로 service port number 를 리턴.
#gethostbyname() : domain name 으로 host IP 를 리턴.
#sockaddr_in(): 포트정보와 IP Address 정보로 socket address 를 리턴
#혹은 socket address 로 IP Address 와 포트정보를 리턴.
#sockaddr_in(): 포트정보와 IP Address 정보로 socket address 를 리턴
#혹은 socket address 로 IP Address 와 포트정보를 리턴.
my $trans_serv = getprotobyname( 'udp' );
my $local_host = gethostbyname( LOCAL_INETNAME );
my $local_port = SIMPLE_UDP_PORT;
my $local_addr = sockaddr_in( $local_port, INADDR_ANY );
#socket() : socket open 상수전달
#(Protocol family, Address family, Socket Type, Linux specific shortcut)
socket( UDP_SOCK, PF_INET, SOCK_DGRAM, $trans_serv )
or die "udp_s2: socket creation failed : $!\n";
bind( UDP_SOCK, $local_addr )
or die "udp_s2: bind to address failed : $!\n";
#Client 로 부터 전달 받은 메시지를 while문을 통해 출력.
my $data;
while( 1 ){
my $from_who = recv( UDP_SOCK, $data, MAX_RECV_LEN, 0 );
if ( $from_who ){
my ( $the_port, $the_ip ) = sockaddr_in( $from_who );
my $remote_name = gethostbyaddr( $the_ip, AF_INET );
warn "Received from $remote_name: $data\n";
}
else{
warn "Problem with recv: $!\n";
}
}
#Client side:
#! /usr/bin/perl -w
use strict;
use Socket;
use constant SIMPLE_UDP_PORT => 4001;
use constant REMOTE_HOST => 'localhost';
#||(or) : 명령행 전달인자가 있을경우 취하고 없으면 REMOTE_HOST 상수를 이용해 받음.
#protocol name 으로 서비스 포트넘버를 리턴.
#or 의 기본 연산원리를 이용한 것으로 첫번째 인자가 false 일 경우 두번째 인자를
#검사를 하지만, 첫번째 인자가 True 인경우 두번째 인자와는 관계없이 True 이므로
#두번째 인자는 검사하지 않는다. 즉 아규먼트가 있으면 shift 되지만 없을경우
#위에서 정의된 REMOTE_HOST 상수값이 리턴된다.
my $remote = shift || REMOTE_HOST;
my $trans_serv = getprotobyname( 'udp' );
my $remote_host = gethostbyname( $remote )
or die "udp_c2: name lookup failed : $remote\n";
my $remote_port = shift || SIMPLE_UDP_PORT;
my $destination = sockaddr_in( $remote_port, $remote_host );
socket( UDP_SOCK, PF_INET, SOCK_DGRAM, $trans_serv )
or die "udp_s2: socket creation failed : $!\n";
#send(): $destination 측으로 $data 를 메시지로 전송.
my $data = "Hello Server ~~!!";
send( UDP_SOCK, $data, 0, $destination )
or warn "udp_c2: send to socket failed.\n";
close UDP_SOCK
or die "udp_c2: close socket failed : $!\n";
#Referenced 'Programming the network with perl' - Paul Barry -
