การใช้งาน create mini web server ในภาษา Perl แบบง่ายๆ พร้อมตัวอย่าง

บทความ: การสร้าง Mini Web Server ด้วย Perl: ง่ายแต่ได้มากกว่าที่คิด

การพัฒนาเว็บเซอร์เวอร์ขนาดเล็กหรือ Mini Web Server ไม่จำเป็นต้องเริ่มต้นด้วยการใช้ซอฟต์แวร์ขนาดใหญ่และซับซ้อนเสมอไป เพราะบางครั้งเราต้องการเพียงแค่สิ่งที่เรียบง่ายและเฉพาะเจาะจงเพื่องานพิเศษที่สั้นๆ หรือการทดลองแนวคิด ภาษา Perl เป็นหนึ่งในภาษาโปรแกรมมิ่งที่สามารถช่วยเราให้บรรลุจุดประสงค์นี้ได้อย่างยอดเยี่ยม โดยที่ไม่ต้องลงทุนเวลาและทรัพยากรมากนัก

การทำงานของ Mini Web Server ใน Perl

Perl มีไลบรารีมาตรฐานที่เรียกว่า HTTP::Server::Simple ซึ่งช่วยให้สร้าง mini web server เป็นไปได้อย่างรวดเร็ว ไลบรารีนี้จัดการกับรีเควสท์ HTTP พื้นฐานและการเซิร์ฟไฟล์หรือข้อมูลโดยตรงจาก Perl Script ดังนั้นมันจึงเป็นเครื่องมือที่ดีสำหรับการพัฒนาที่รวดเร็วหรือการทดสอบแอปพลิเคชั่นเว็บขนาดเล็ก

ตัวอย่าง Code

ตัวอย่างที่ 1: สร้าง Basic Web Server

 use HTTP::Server::Simple::CGI;
use base qw(HTTP::Server::Simple::CGI);

my $server = __PACKAGE__->new(8080);
$server->run(sub {
    my $cgi = shift;
    print "HTTP/1.0 200 OK\r\n";
    print $cgi->header,
          $cgi->start_html('A Simple Perl Web Server'),
          $cgi->h1('Hello, world!'),
          $cgi->end_html;
});

ตัวอย่างนี้แสดงการสร้างเว็บเซิร์ฟเวอร์ตัวง่ายที่สุด ที่ทำงานบนพอร์ต 8080 และเมื่อผู้ใช้เข้าถึงเซิร์ฟเวอร์ เพจ HTML ที่มีข้อความ "Hello, world!" จะถูกแสดงให้เห็น

ตัวอย่างที่ 2: การเซิร์ฟ Static Files

 use HTTP::Server::Simple::Static;
use base qw(HTTP::Server::Simple::CGI);
use Cwd;

my $web_root = getcwd; # การแสดงไดเรกทอรีปัจจุบันเป็น web root

sub handle_request {
    my ($self, $cgi) = @_;
    my $path = $cgi->path_info();

    if (-f "$web_root$path") {
        $self->serve_static($cgi, "$web_root$path");
    } else {
        print "HTTP/1.0 404 Not found\r\n";
        print $cgi->header,
              $cgi->start_html('Not found'),
              $cgi->h1('Not found'),
              $cgi->end_html;
    }
}

my $server = __PACKAGE__->new(8080);
$server->run(\&handle_request);

ตัวอย่างที่สองพัฒนาไปกว่าตัวแรกโดยการเซิร์ฟไฟล์จริงจากไดเรกทอรีที่อยู่บนเซิร์ฟเวอร์ได้ ทำให้สามารถใช้ Perl web server เพื่อเซิร์ฟเว็บเพจแบบสโตร์จริงได้

ตัวอย่างที่ 3: การประมวลผล CGI Scripts

 use HTTP::Server::Simple::CGI;
use base qw(HTTP::Server::Simple::CGI);

sub handle_request {
    my ($self, $cgi) = @_;

    if ($cgi->path_info() eq "/time") {
        print "HTTP/1.0 200 OK\r\n";
        print $cgi->header,
              $cgi->start_html('Current Time'),
              $cgi->h1('Current Time'),
              $cgi->h2(scalar localtime),
              $cgi->end_html;
    }
    # สามารถเพิ่มเงื่อนไขเพื่อจัดการ CGI scripts อื่นๆ ที่นี่
}

my $server = __PACKAGE__->new(8080);
$server->run(\&handle_request);

ตัวอย่างที่สามเราเริ่มเห็นการจัดการ CGI scripts ที่เปิดโอกาสให้ทำงานต่างๆ ได้มากขึ้น โดยตัวอย่างจะแสดงเวลาปัจจุบันเมื่อเข้าถึง path `/time`

Usecase ในโลกจริง

Mini web servers ที่พัฒนาด้วย Perl นั้นมีประโยชน์ในหลายโอกาส เช่น การทดลองระบบอัตโนมัติสำหรับการปรับแต่งหรือทดสอบ API endpoints, การจัดการข้อมูลระหว่าง devices ในระบบ IoT, การเซิร์ฟเอกสารหรือเว็บเพจภายในเครือข่ายองค์กร, หรือใช้เป็น mock server สำหรับการพัฒนา front-end โดยไม่ต้องมี back-end server ที่แท้จริง

การเรียนรู้การสร้าง mini web servers ใน Perl ไม่เพียงแต่ช่วยเพิ่มทักษะในการจัดการ web technologies ของคุณเท่านั้น แต่ยังเปิดประตูสู่ความเป็นไปได้มากมายในการสร้างระบบที่สร้างสรรค์และมีประสิทธิภาพ ที่ EPT, เรามีหลักสูตรที่ครอบคลุมตั้งแต่พื้นฐานไปจนถึงการใช้งาน Perl ในระดับสูง หากคุณต้องการต่อยอดความรู้และประสบการณ์จริงในโลกของการพัฒนาเว็บ อย่ารอช้าที่จะติดต่อเราที่ EPT เพื่อเรียนรู้และเติบโตไปพร้อมกับเรา!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง