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

บทความ: การสร้าง Simple Calculator ในภาษา Perl พร้อมโอกาสทางการเรียนรู้ที่ EPT

การเขียนโปรแกรมไม่ได้หมายถึงแค่การสร้างแอปพลิเคชั่นขนาดใหญ่หรือระบบที่ซับซ้อนเสมอไป บ่อยครั้งที่เราเริ่มต้นจากโปรเจ็กต์ขนาดเล็ก ซึ่งเป็นจุดเริ่มต้นที่ดีในการเรียนรู้และทำความเข้าใจกับหลักการพื้นฐานของภาษาโปรแกรมมิ่ง การสร้าง "Simple Calculator" หรือเครื่องคิดเลขง่ายๆ ในภาษา Perl คือหนึ่งในโปรเจ็กต์สำหรับมือใหม่ที่ทำให้เราได้เรียนรู้การจัดการข้อมูล, การทำงานกับตัวแปร, การสร้างฟังก์ชัน, และการใช้งานคำสั่งควบคุมโปรแกรม

ในบทความนี้ เราจะพูดถึงการใช้งาน Simple Calculator ในภาษา Perl พร้อมกับตัวอย่างโค้ด 3 ตัวอย่างและอธิบายการทำงาน ทั้งนี้ ยังรวมถึงการนำไปใช้ในโลกจริง (use cases) และไม่ลืมที่จะแนะนำเพื่อนๆ ที่สนใจให้ลองศึกษาที่ EPT ที่เต็มไปด้วยทรัพยากรการเรียนรู้มากมาย

ตัวอย่างโค้ดที่ 1: การสร้างเครื่องคิดเลขพื้นฐาน

 #!/usr/bin/perl

use strict;
use warnings;

print "กรุณาใส่ตัวเลขที่หนึ่ง: ";
chomp(my $num1 = <STDIN>);
print "กรุณาใส่ตัวเลขที่สอง: ";
chomp(my $num2 = <STDIN>);

sub add {
    my ($a, $b) = @_;
    return $a + $b;
}

sub subtract {
    my ($a, $b) = @_;
    return $a - $b;
}

sub multiply {
    my ($a, $b) = @_;
    return $a * $b;
}

sub divide {
    my ($a, $b) = @_;
    return $b != 0 ? $a / $b : 'ERROR: Division by zero';
}

print "ผลบวก: " . add($num1, $num2) . "\n";
print "ผลลบ: " . subtract($num1, $num2) . "\n";
print "ผลคูณ: " . multiply($num1, $num2) . "\n";
print "ผลหาร: " . divide($num1, $num2) . "\n";

คำอธิบายโค้ด: โค้ดนี้แสดงการรับอินพุตสองค่าจากผู้ใช้ หลังจากนั้นใช้ฟังก์ชัน `add`, `subtract`, `multiply`, และ `divide` สำหรับการคำนวณและแสดงผลลัพธ์ออกมา

ตัวอย่างโค้ดที่ 2: การจัดการข้อผิดพลาดในการหารด้วยศูนย์

 # ฟังก์ชัน divide ที่ใช้ในตัวอย่างที่ 1 มีการจัดการเคส division by zero

sub divide {
    my ($a, $b) = @_;
    if ($b == 0) {
        warn "การหารด้วยศูนย์จะไม่ถูกทำงาน";
        return undef;
    } else {
        return $a / $b;
    }
}

คำอธิบายโค้ด: ในโค้ดนี้, การจัดการข้อผิดพลาดเมื่อมีการหารด้วยศูนย์ถูกแสดงโดยใช้คำสั่ง `warn` และ `return undef`. การใช้เทคนิคนี้ช่วยให้ผู้ใช้ได้รับการแจ้งเตือนและไม่ทำให้โปรแกรมถูกสิ้นสุดอย่างไม่คาดคิด

ตัวอย่างโค้ดที่ 3: การขยายฟังก์ชั่นของเครื่องคิดเลข

 # เพิ่มการทำงานโดยใช้คำสั่ง if เพื่อเลือกการทำงานตามตัวเลือกของผู้ใช้

print "กรุณาเลือกการทำงาน (+, -, *, /): ";
chomp(my $operator = <STDIN>);

my %operations = (
    '+' => \&add,
    '-' => \&subtract,
    '*' => \&multiply,
    '/' => \÷,
);

if (exists $operations{$operator}) {
    my $result = $operations{$operator}->($num1, $num2);
    print "ผลลัพธ์: $result\n";
} else {
    print "ตัวดำเนินการไม่ถูกต้อง!\n";
}

คำอธิบายโค้ด: โค้ดนี้แนะนำฟังก์ชันเพิ่มเติม ซึ่งรวมการใช้งาน hash เพื่อการเข้าถึงฟังก์ชันในการคำนวณตามตัวเลือกของผู้ใช้ การใช้ hash ช่วยอำนวยความสะดวกในการจัดการและขยายระบบของเครื่องคิดเลขได้ง่ายขึ้น

ยกตัวอย่าง use case ในโลกจริง

เครื่องคิดเลขง่ายๆ ที่สร้างขึ้นด้วย Perl สามารถใช้ในสถานการณ์ออฟฟิศทั่วไป ตั้งแต่การคำนวณงบประมาณ, การวิเคราะห์การขาย, การจัดการข้อมูลทางการเงิน หรือแม้แต่นักเรียนที่ต้องการเครื่องมือช่วยคำนวณเพื่อการบ้าน มันเป็นตัวอย่างที่ดีในการแสดงให้เห็นถึงพลังของความเรียบง่ายในการแก้ปัญหาทางโปรแกรมมิ่ง

สรุป

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

หมายเหตุ:

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