การใช้งาน Class and object ในภาษา Perl แบบง่ายๆ พร้อมตัวอย่าง

การเขียนโปรแกรมถือเป็นศิลปะและวิทยาศาสตร์ที่ดึงโลกดิจิทัลมาสู่ชีวิตจริง และ Perl เป็นหนึ่งในภาษาโปรแกรมมิ่งที่มีบทบาทไม่น้อยในการเขียนสคริปต์และการประมวลผลข้อความที่เร็วและมีพลัง หนึ่งในความสามารถที่ทำให้ Perl เป็นที่นิยมคือการจัดการกับ class และ object หรือที่รู้จักกันในโลก OOP (Object-Oriented Programming) ไปดูกันว่าคุณสามารถใช้งาน class และ object ใน Perl ได้อย่างไร ด้วยตัวอย่าง Code และ Usecase ที่น่าสนใจ

ความหมายของ Class และ Object

Class เป็นรูปแบบหรือโครงสร้างของ Object ที่เราจะสร้างขึ้น นั่นคือมันประกอบด้วยข้อมูล (attributes) และขั้นตอนการทำงาน (methods) ที่ Define ว่า object ของเราควรมีลักษณะและทำงานอย่างไร ในขณะที่ object เป็น instance หรือตัวชี้วัดของ class ที่เราสร้างขึ้นมา

การสร้าง Class และ Object ใน Perl

การสร้าง class ใน Perl นั้นทำได้ง่าย เพียงแค่ใช้ package และสร้างโครงสร้างให้เสร็จสมบูรณ์ ส่วน object ถูกสร้างจาก class ด้วย keyword `bless` นี่คือตัวอย่าง code ที่ง่ายที่สุดในการสร้าง class และ object:

ตัวอย่างที่ 1: การสร้าง Class

 package Animal;

sub new {
    my $class = shift;
    my $self = {
        name => shift,
        sound => shift,
    };
    # Blessing object
    bless $self, $class;
    return $self;
}

sub speak {
    my $self = shift;
    return $self->{name} . " says " . $self->{sound};
}

1; # Perl package จำเป็นต้องจบด้วย value ที่จริง

ตัวอย่างที่ 2: การสร้าง Object จาก Class

 use Animal;

my $dog = Animal->new("Dog", "Bark");
print $dog->speak; # Dog says Bark

Usecase: ระบบจัดการสมาชิกห้องสมุด

มาดูตัวอย่าง usecase ที่เกี่ยวกับการสร้างระบบจัดการสมาชิกของห้องสมุดกัน โดยเริ่มต้นจากการสร้าง class ชื่อ `Member` ซึ่งจะจัดเก็บชื่อและสถานะการยืมของสมาชิก

 package Member;

sub new {
    my $class = shift;
    my $self = {
        name => shift,
        books => [],
    };
    bless $self, $class;
    return $self;
}

sub borrow_book {
    my ($self, $book_name) = @_;
    push @{$self->{books}}, $book_name;
}

sub return_book {
    my ($self, $book_name) = @_;
    @{$self->{books}} = grep { $_ ne $book_name } @{$self->{books}};
}

sub list_borrowed_books {
    my $self = shift;
    return join(', ', @{$self->{books}});
}

1;

และนี่คือการใช้งานที่แสดงให้เห็น:

 use Member;

my $member = Member->new("Somchai");
$member->borrow_book("The Alchemist");
$member->borrow_book("1984");
print $member->list_borrowed_books;  # The Alchemist, 1984

$member->return_book("1984");
print $member->list_borrowed_books;  # The Alchemist

การทำงานของ code นี้คือการจัดการกระบวนการยืมหนังสือและคืนหนังสือของสมาชิกห้องสมุด ซึ่งถือเป็นการสร้างระบบจัดการสมาชิกแบบง่ายๆ ด้วย Perl

ถึงแม้ว่า Perl อาจจะไม่ได้รับความนิยมเท่ากับภาษาโปรแกรมมิ่งอื่นๆ ในยุคสมัยนี้ แต่ความสามารถในการเขียนสคริปต์ได้อย่างรวดเร็วและการจัดการข้อความเชิงซับซ้อนยังคงให้ความสำคัญกับ Perl อยู่ ณ Expert-Programming-Tutor (EPT) เรามีความเชี่ยวชาญให้การสนับสนุนในการเรียนรู้และปรับใช้ภาษา Perl ในการใช้งานจริง ผ่านหลักสูตรที่เน้นลงมือปฏิบัติ มาร่วมกันค้นหาศักยภาพของ Perl และพัฒนาเทคนิคการเขียนโค้ดของคุณไปกับเราที่ EPT ที่ซึ่งคุณจะเปิดประสบการณ์ในโลกโปรแกรมมิ่งอย่างแท้จริง!

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