while loop คืออะไร การใช้งาน while loop ในภาษา Perl แบบง่ายๆ พร้อมตัวอย่าง ในภาษา Perl

หัวข้อ: While Loop ใน Perl ประยุกต์ใช้งานได้หลากหลายด้วยโค้ดง่ายๆ

บทความโดย EPT – โรงเรียนสอนการเขียนโปรแกรม

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

While Loop คืออะไร

While loop ใน Perl คือ คำสั่งที่ทำให้โปรแกรมทำงานซ้ำๆ จนกว่าจะพบกับเงื่อนไขที่ทำให้ต้องหยุดการทำซ้ำ โดยมีโครงสร้างดังนี้:

while (condition) {
    # โค้ดที่จะทำซ้ำ
}

`condition` ที่ว่านี้หมายถึง เงื่อนไขที่ต้องพิจารณา ถ้าเงื่อนไขนั้นเป็นจริง (`true`) จะทำให้การทำงานภายในบล็อก `while` ดำเนินต่อไป หากเป็นเท็จ (`false`) การทำงานภายใน loop จะสิ้นสุดลง

การใช้งาน While Loop ใน Perl พร้อมตัวอย่างโค้ด

ลองมาดูตัวอย่างง่ายๆ ของการใช้งาน while loop ใน Perl:

my $counter = 0;

while ($counter < 5) {
    print "Counter is: $counter\n";
    $counter++;  # เพิ่มค่า counter ทีละ 1
}

การทำงานของโค้ดนี้ก็คือ จะพิมพ์ค่าของตัวแปร `$counter` จนกว่าค่านั้นจะน้อยกว่า 5 เมื่อค่า `$counter` ถึง 5 การทำซ้ำจะหยุดลง

Usecase ในโลกจริง

ตัวอย่างที่ 1: การอ่านข้อมูลจากไฟล์

การใช้ while loop ในการอ่านข้อมูลจากไฟล์ทีละบรรทัดเป็นสิ่งที่พบเห็นได้บ่อยใน Perl:

open my $fh, '<', 'data.txt' or die "Cannot open file: $!";
while (my $line = <$fh>) {
    chomp $line;  # ลบ newline character ออกจากท้ายสตริง
    print "Read line: $line\n";
}
close $fh;

ในตัวอย่างนี้มีการเปิดไฟล์ `data.txt` และอ่านข้อมูลจากไฟล์ทีละบรรทัด ระหว่างการทำซ้ำไปจนถึงจุดสิ้นสุดของไฟล์

ตัวอย่างที่ 2: การจัดการกับ Input ของผู้ใช้ ในภาษา Perl

การใช้ while loop ในการรับ input จากผู้ใช้และทำงานกับข้อมูลนั้น:

print "Enter your name (or type 'exit' to quit): ";
while (my $name = ) {
    chomp $name;
    last if $name eq 'exit';
    print "Hello, $name!\n";
    print "Enter your name (or type 'exit' to quit): ";
}

โค้ดนี้จะขอให้ผู้ใช้ป้อนชื่อ หากป้อน 'exit' โปรแกรมจะสิ้นสุดการทำงานของ loop

ทิ้งท้าย

การเขียนโปรแกรมนั้นเต็มไปด้วยการทำงานซ้ำๆ และการควบคุมการทำงานดังกล่าวให้มีประสิทธิภาพ ซึ่ง while loop เป็นเครื่องมือที่เราไม่ควรมองข้าม ต้องการเรียนรู้มากขึ้นเกี่ยวกับการใช้งาน loop อย่างถูกต้องและมีประสิทธิภาพหรือไม่? EPT พร้อมต้อนรับและอบรมทุกท่านอย่างมืออาชีพ ณ โรงเรียนสอนโปรแกรมของเรา มาร่วมเปิดโลกการเขียนโปรแกรมที่ท้าทายและเข้มข้นกับเรา สมัครเรียนได้ทันที!

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