पर्ल में बहुपरत सर्वर? आराम से!

कभी-कभी कुछ सरल टीसीपी या यूडीपी सर्वर लिखना आवश्यक हो जाता है। उदाहरण के लिए, अब मेरा स्वयं का डीएचसीपी कार्यान्वयन उत्पादन में सफलतापूर्वक काम कर रहा है (मौजूदा लोग बारीकियों के कारण उपयुक्त नहीं हैं)। आमतौर पर यह बस किया जाता है - एक चक्र, सॉकेट को सुनो - और वोइला! लेकिन "बेवकूफ" दृष्टिकोण हमेशा उचित नहीं होता है (कुछ अधिक जटिल की आवश्यकता होती है - कई धाराओं में काम करना, उदाहरण के लिए), और भारी तोपखाने का उपयोग करना बहुत महंगा है।

रुचि रखते हैं? बिल्ली के लिए आपका स्वागत है।

तैयारी, या हमें क्या चाहिए

सबसे पहले, ज़ाहिर है, पर्ल को खुद की आवश्यकता है। कम या ज्यादा आधुनिक संस्करण करेंगे। तुरंत आरक्षण करें - विंडोज के तहत यह कैसे करना है, मुझे नहीं पता, मैंने कोड की जांच नहीं की है, लेकिन मुझे काम करना चाहिए।
जैसा कि यह पता चला है, CPAN में पहले से ही इस तरह के कार्यों के लिए एक तैयार नेट :: सर्वर मॉड्यूल है। अपने पैकेज मैनेजर (डेबियन / उबंटू में libnet-server-perl) या सीधे cpan (एक शौकिया के लिए) का उपयोग करके इसे डाउनलोड और इंस्टॉल करें:

cpan Net::Server 

सिद्धांत

नेट :: सर्वर मल्टी-थ्रेडिंग के साथ काम करने के लिए कई मॉडल प्रदान करता है: सिंगल (एक धागा), फोर्क (प्रत्येक कनेक्शन के लिए एक नया बच्चा प्रक्रिया), प्रीफ़ॉर्क (समान, लेकिन स्मार्ट), आईईटीटी ( आईटीडी के साथ उपयोग के लिए), मल्टी टाइप (मॉडल में से एक को चुनना - कॉन्फ़िगरेशन से या स्वचालित रूप से) और इसी तरह। मुझे व्यक्तिगत रूप से PreFork पसंद है (काफी सरल और स्थिर, लेकिन प्रभावी), और मैं इसका उपयोग करूंगा। वास्तव में, मल्टी टाइप का उपयोग करना बेहतर है - अगर हमें ज़रूरत है तो यह किसी अन्य मॉडल पर नहीं लौट सकता है।
यह पैकेज जो कुछ भी प्रदान करता है (मॉड्यूल, वर्ग, जैसा आप चाहते हैं) आधार है। आपको इसे विरासत में लेने की आवश्यकता है, कई कार्यों को फिर से परिभाषित करें (ठीक है, ठीक है, कम से कम एक!), इसे एक कॉन्फ़िगरेशन दें, और फिर इसे चलाएं। वास्तव में, हम सभी की जरूरत है एक आधार वर्ग है। आपको बस थोड़ा सा जोड़ने की जरूरत है। सिनॉप्सिस में वर्णित मूल संस्करण (जो, हालांकि, कुछ पर्ल जादू के बिना नहीं है - उदाहरण के लिए, विरासत श्रेणी घोषित किए बिना विरासत), इस तरह दिखता है:

 #!/usr/bin/perl use Net::Server::PreFork; @ISA = qw(Net::Server::PreFork); sub process_request { #...code... } __PACKAGE__->run(); 

यह काम करता है। बस। दृढ़ता से। प्रभावी ढंग से। और निफ़िगा स्पष्ट नहीं है (जो सामान्य रूप से, एक प्लस भी है - आप इसे किसी को दिखा सकते हैं)। व्यवहार में, हम इस सब को और अधिक मानवीय रूप में लाएंगे।

अभ्यास

एक कार्यक्रम के लिए, कहीं एक फ़ोल्डर का चयन करना बेहतर है। हमारे पास 3 फाइलें (पैकेज, कॉन्फ़िगरेशन, और निष्पादन योग्य स्वयं) होंगी। आगे की हलचल के बिना, कोड:
lib / Net / Server / Hello.pm

 #!/usr/bin/perl package Net::Server::Hello; #    use strict; #     ;) use warnings; use base qw(Net::Server::PreFork); #  sub process_request { # ,        my $self = shift; #    .  Perl - while (<STDIN>) { # Net::Server     STDIN + STDOUT! print "Hello!\n"; # .      . } } 1; # Perl-:    return 

आदि / myserver.cfg

 #  -   port 9999 proto tcp 

बिन / myserver.pl

 #!/usr/bin/perl use strict; use warnings; use FindBin; use lib "$FindBin::Bin/../lib"; #  :     bin, #   () -  lib,  .. use Net::Server::Hello; #    ; , ,      our $server = Net::Server::Hello->new(conf_file => "$FindBin::Bin/../etc/myserver.cfg"); $server->run(); # ! 

यदि आप अब इसे शुरू करते हैं, तो इसे टेलनेट के साथ कनेक्ट करें और कुछ पूछें, तो आपको निम्न जैसा कुछ मिलता है:
$ telnet 127.0.0.1 9999
Trying 127.0.0.1...
Connected to 127.0.0.1.
Escape character is '^]'.
!
Hello!
Hi!
Hello!

Hello!
^]quit

telnet> quit
Connection closed.


आगे क्या है?

नेट का उपयोग :: सर्वर केवल सरल नेटवर्क "हैलो वर्ल्ड" लिखने या हब पर लेख लिखने तक सीमित है उदाहरण के लिए, मेरे पास पहले से ही एक RADIUS सर्वर का एक कार्यशील प्रोटोटाइप है, जिसे मैं अपनी खुद की वीपीएन सेवा (केब्रम, हैलो!) के लिए उपयोग करने जा रहा हूं। इसके अलावा, CPAN पर कई टन कोड हैं जिनका नेट :: सर्वर एक या दूसरे तरीके से उपयोग करता है - उदाहरण के लिए, एक HTTP सर्वर। प्रलेखन पढ़ें - यह स्टीयर करता है। और बल आपके साथ आ सकता है।

चित्र xkcd से
अगर कुछ भी हो, तो यह मेरा पहला हैब्रतोपिक है, इसलिए कृपया मुझे हब्राहपोस्ट में सही फेंकने के लिए सड़े हुए अंडे दें।