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

การใช้งาน Web Scraping ในภาษา Perl แบบง่ายๆ

การรู้จักวิธีการเข้าถึงข้อมูลบนเว็บไซต์ผ่านเทคนิคที่เรียกว่า 'Web Scraping' เป็นหนึ่งในทักษะที่มีค่าสำหรับนักพัฒนาซอฟต์แวร์และนักวิเคราะห์ข้อมูล โดยเฉพาะเมื่อต้องการทำการวิเคราะห์ข้อมูลจำนวนมากจากอินเทอร์เน็ต ภาษา Perl คือหนึ่งในภาษาโปรแกรมมิ่งที่มีการใช้งาน Web Scraping มายาวนาน ด้วยความสามารถในการจัดการกับข้อความ (Text Processing) ที่เป็นเลิศ ทำให้ Perl คือตัวเลือกที่ดีสำหรับนักพัฒนาที่ต้องการ 'เก็บเกี่ยว' ข้อมูลข่าวสารจากเว็บไซต์ต่างๆ

ตัวอย่าง CODE ที่ 1: การใช้งาน LWP::Simple

 use LWP::Simple;

# กำหนด URL ที่ต้องการดึงข้อมูล
my $url = 'http://example.com/data.html';

# ใช้ฟังก์ชัน get() เพื่อดึงข้อมูลจาก URL
my $content = get($url);
die "Couldn't get $url" unless defined $content;

# ทำการพิมพ์ข้อมูลที่ได้มา
print $content;

ในตัวอย่างนี้ เราใช้โมดูล `LWP::Simple` ซึ่งเป็นโมดูลพื้นฐานที่ช่วยให้สามารถดึงข้อมูลจากเว็บไซต์ได้ง่ายดาย โดยไม่ต้องใส่ใจกับรายละเอียดในเรื่องของ HTTP Request มากนัก

ตัวอย่าง CODE ที่ 2: การใช้งาน Web::Scraper

 use Web::Scraper;
use URI;

# สร้าง Scraper สำหรับการวิเคราะห์ส่วนที่ต้องการจากหน้าเว็บ
my $scraper = scraper {
    process 'title', 'title' => 'TEXT'; # เลือกส่วนของ title
    process '//p[@class="info"]', 'info[]' => 'TEXT'; # เลือก paragraph ที่มี class "info"
};

# กำหนด URL
my $uri = URI->new('http://example.com/data.html');

# ดึงข้อมูลและวิเคราะห์
my $result = $scraper->scrape($uri);

print "Title: $result->{title}\n";
foreach (@{$result->{info}}) {
    print "Info: $_\n";
}

ในตัวอย่างนี้เราใช้ `Web::Scraper` ซึ่งเป็นโมดูลที่ช่วยให้เราสามารถระบุส่วนที่ต้องการจากหน้า HTML ได้อย่างชัดเจนและระบุเฉพาะเป้าหมาย ช่วยให้สามารถดึงข้อมูลที่จำเพาะเจาะจงจากหน้าเว็บได้อย่างแม่นยำ

ตัวอย่าง CODE ที่ 3: การใช้งาน Mojo::UserAgent

 use Mojo::UserAgent;

# สร้างตัวแทนผู้ใช้ (User Agent)
my $ua = Mojo::UserAgent->new;

# ดึงข้อมูลจาก URL
my $tx = $ua->get('http://example.com/data.html');

# เช็คว่ามีข้อผิดพลาดหรือไม่
die "Connection error: " . $tx->error->{message} if $tx->error;

# ใช้ DOM parser เพื่อค้นหาข้อมูล
my $title = $tx->res->dom->find('title')->text;
print "Title: $title\n";

# หา element p ที่มี class เป็น info
my $infos = $tx->res->dom->find('p.info')->map(sub { $_->text })->join("\n");
print "Infos:\n$infos\n";

ในตัวอย่างนี้เราได้เห็นการใช้ `Mojo::UserAgent` ซึ่งเป็นโมดูลที่มีฟังก์ชันครบถ้วนเกี่ยวกับ HTTP client รวมทั้งยังมี DOM parser สำหรับการจัดการ HTML และ XML ได้อย่างยอดเยี่ยม

Usecase ในโลกจริง

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

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