Facebook Joinc 그룹
Joinc QA 사이트
Tweet
joinc는 Firefox와 chrome에서 테스트 했습니다. IE에서는 테이블이 깨지거나 이미지가 보이지 않을 수 있습니다. 특히 구글 Docs이미지의 경우 엑박처리될 수 있습니다.
Tweet
joinc는 Firefox와 chrome에서 테스트 했습니다. IE에서는 테이블이 깨지거나 이미지가 보이지 않을 수 있습니다. 특히 구글 Docs이미지의 경우 엑박처리될 수 있습니다.
참고 : http://www.devshed.com/c/a/Perl/Socket-Programming-in-PERL/
Perl 소켓 프로그래밍
네트워크 프로그램은 주로 C를 이용해서 작성을 해왔다. 워낙에 익숙해져 있기도 하지만 Perl을 이용한 멀티쓰레드, 멀티프로세싱 프로그래밍 경험이 없었기 때문이기도 하다. - 왠만 하면 C를 이용했기 때문에 경험이 없었을 수도 있지만.. -
이번에는 Perl을 이용해서 소켓 프로그래밍을 하기로 했다. Master <-> Slave 방식의 분산 시스템을 만들고, 이때 Slave 에서 실행될 Job Function은 Master에 의해서 배포되도록 설계를 했는데 아무래도 컴파일된 프로그램을 배포하는건 효율적이지 못하기 때문이다. 다양한 환경의 시스템이라면, 컴파일된 프로그램을 배포하는건 개발/관리차원에서 문제가 될 수 있다.
그래서 perl을 이용해서 job function을 개발하기로 했다.
Server 프로그래밍
001 #! /usr/bin/perl -w
002 # server0.pl
003 #--------------------
004
005 use strict;
006 use Socket;
007
008 # use port 7890 as default
009 my $port = shift || 7890;
010 my $proto = getprotobyname('tcp');
011
012 # reusable socket을 생성한다.
013 socket(SERVER, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
014 setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsock: $!";
015
016 # grab a port on this machine
017 my $paddr = sockaddr_in($port, INADDR_ANY);
018
019 # port를 bind() 한다.
020 bind(SERVER, $paddr) or die "bind: $!";
021 listen(SERVER, SOMAXCONN) or die "listen: $!";
022 print "SERVER started on port $port ";
023
024 # 연결을 받아들인다.
025 my $client_addr;
026 while ($client_addr = accept(CLIENT, SERVER))
027 {
028 # 연결된 호스트의 정보를 얻어낸다.
029 my ($client_port, $client_ip) = sockaddr_in($client_addr);
030 my $client_ipnum = inet_ntoa($client_ip);
031 my $client_host = gethostbyaddr($client_ip, AF_INET);
032
033 # 연결된 호스트의 정보를 출력한다.
034 print "got a connection from: $client_host","[$client_ipnum] ";
035
036 # 연결된 호스트에 메시지를 전송한다.
037 print CLIENT "Smile from the server";
038 close CLIENT;
039 }
040
Client 프로그래밍
001 #! /usr/bin/perl -w
002 # client1.pl - a simple client
003 #----------------
004
005 use strict;
006 use Socket;
007
008 # 연결할 호스트 정보를 설정한다.
009 my $host = shift || 'localhost';
010 my $port = shift || 7890;
011 my $proto = getprotobyname('tcp');
012
013 my $iaddr = inet_aton($host);
014 my $paddr = sockaddr_in($port, $iaddr);
015
016 # 소켓을 생성하고 연결한다.
017 socket(SOCKET, PF_INET, SOCK_STREAM, $proto)
018 or die "socket: $!";
019 connect(SOCKET, $paddr) or die "connect: $!";
020
021 my $line;
022 while ($line = <SOCKET>)
023 {
024 print $line;
025 }
026 close SOCKET or die "close: $!";
027