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

การแสดงข้อมูลในตาราง (Data table) เป็นหนึ่งในงานพื้นฐานที่มักได้รับการใช้งานบ่อยในการพัฒนาโปรแกรม เนื่องจากโครงสร้างของตารางที่เรียบง่ายและชัดเจนเหมาะกับการจัดเก็บและการแสดงผลข้อมูลที่มีความสัมพันธ์กัน ในภาษา Perl ซึ่งเป็นภาษาสคริปต์ที่มีคุณสมบัติเน้นการทำงานกับข้อความ (text-processing) การแสดงข้อมูลในรูปแบบตารางสามารถทำได้ด้วยง่ายดาย ด้วยโค้ดที่กระชับและมีประสิทธิภาพ

ต่อไปนี้คือตัวอย่างโค้ดที่จะช่วยให้คุณเข้าใจการใช้งานตารางข้อมูลในภาษา Perl:

ตัวอย่างโค้ดที่ 1: การแสดงข้อมูลในรูปแบบตารางแบบพื้นฐาน

 #!/usr/bin/perl
use strict;
use warnings;

# ข้อมูลที่ต้องการแสดงในตาราง
my @data = (
    ['Name', 'Age', 'Occupation'],
    ['Alice', 30, 'Engineer'],
    ['Bob', 22, 'Artist'],
    ['Cathy', 25, 'Teacher']
);

# ฟังก์ชันที่ใช้ในการพิมพ์ข้อมูลเป็นตาราง
sub print_table {
    foreach my $row (@_) {
        print join("\t", @$row), "\n";
    }
}

# การแสดงข้อมูล
print_table(@data);

ในตัวอย่างโค้ดนี้ เราใช้ฟังก์ชัน `print_table` ในการพิมพ์ข้อมูลที่ถูกจัดเก็บในอาร์เรย์แบบ 2 มิติ (`@data`) โดยใช้ฟังก์ชัน `join` เพื่อต่อข้อความแต่ละอันในแถวด้วย tab (`\t`).

ตัวอย่างโค้ดที่ 2: การใช้งาน CPAN module เพื่อแสดงตารางข้อมูล

Perl มีห้องสมุด (library) มากมายที่พัฒนาขึ้นมาพร้อมใช้งานซึ่งเรียกว่า CPAN. เราสามารถใช้ module อย่าง `Text::Table` เพื่อช่วยในการสร้างและแสดงข้อมูลตารางได้ดังตัวอย่างด้านล่างนี้:

 #!/usr/bin/perl
use strict;
use warnings;
use Text::Table;

my $tb = Text::Table->new('Name', 'Age', 'Occupation');

$tb->load(
    ['Alice', 30, 'Engineer'],
    ['Bob', 22, 'Artist'],
    ['Cathy', 25, 'Teacher']
);

print $tb;

ในโค้ดข้างต้น, เราได้สร้าง object ใหม่ชื่อ `$tb` จาก `Text::Table` ด้วยหัวข้อตารางที่กำหนดไว้ และเพิ่มข้อมูลลงไปในตารางโดยใช้เมธอด `load` ก่อนที่จะพิมพ์ออกมา.

ตัวอย่างโค้ดที่ 3: การใช้งานด้วยข้อมูลจากฐานข้อมูล

Perl ยังสามารถใช้งานร่วมกับฐานข้อมูลได้เพื่อเรียกดูข้อมูล และแสดงเป็นตารางได้ดังนี้:

 #!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Text::Table;

my $dsn = "DBI:mysql:database_name;host=localhost";
my $username = "your_username";
my $password = "your_password";

# การเชื่อมต่อฐานข้อมูล
my $dbh = DBI->connect($dsn, $username, $password, { RaiseError => 1 });

# คำสั่ง SQL สำหรับเลือกข้อมูล
my $sql = 'SELECT name, age, occupation FROM users';
my $sth = $dbh->prepare($sql);
$sth->execute();

my $tb = Text::Table->new('Name', 'Age', 'Occupation');

while(my $row = $sth->fetchrow_hashref) {
    $tb->add($row->{name}, $row->{age}, $row->{occupation});
}

print $tb;

$dbh->disconnect;

ด้วยการใช้งาน `DBI` module, Perl สามารถเชื่อมต่อ ดึงข้อมูลจากฐานข้อมูล และใช้ `Text::Table` เพื่อแสดงผลข้อมูลในรูปแบบตาราง.

Usecase ในโลกจริง:

การใช้งานการแสดงข้อมูลในตารางด้วย Perl สามารถนำไปใช้ในหลากหลายสถานการณ์ เช่นการจัดการข้อมูลสำหรับรายงาน, การสร้าง Dashboard สำหรับการตรวจสอบข้อมูลต่างๆ, หรือการทำ ETL (Extract, Transform, Load) ซึ่งเป็นกระบวนการที่ใช้ในการแปลงและย้ายข้อมูลจากแหล่งหนึ่งไปยังอีกแหล่งหนึ่ง.

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

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