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

การใช้งาน Calling API ในภาษา Perl

ในยุคดิจิทัลที่ข้อมูลเป็นทรัพย์สินสำคัญของธุรกิจ การเรียกใช้งาน (Calling) API (Application Programming Interface) ด้วยภาษาโปรแกรมมิ่งเช่น Perl ไม่เพียงแต่เปิดโอกาสใหม่ๆ ให้กับนักพัฒนา แต่ยังเป็นทักษะที่สำคัญในการสร้างและบริหารระบบในยุคปัจจุบันอีกด้วย

การเรียกใช้ API เป็นกระบวนการที่โปรแกรมหนึ่งส่งคำขอไปยังโปรแกรมอื่น (ที่เปิดเผยบริการผ่าน API) ผ่านโปรโตคอล HTTP เพื่อขอเข้าถึงข้อมูลหรือทำงานใดงานหนึ่ง ภายใต้สัญญาการเชื่อมต่อที่กำหนดโดย API นั้นๆ

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

ต่อไปนี้คือตัวอย่างของการเรียกใช้ API ด้วย Perl พร้อมกับอธิบายการทำงานและยกตัวอย่าง usecase ในโลกจริง

ตัวอย่างโค้ดที่ 1: การเรียกใช้ REST API ด้วยโมดูล `LWP::UserAgent`

 use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('https://api.example.com/data');

if ($response->is_success) {
    print $response->decoded_content;
} else {
    print STDERR $response->status_line, "\n";
}

ในตัวอย่างนี้ เราใช้โมดูล `LWP::UserAgent` สำหรับการส่งคำขอ GET ไปยัง API ที่มี URL คือ 'https://api.example.com/data' หลังจากรับคำตอบกลับมา โค้ดจะตรวจสอบว่าได้รับคำตอบสำเร็จหรือไม่ และแสดงผลลัพธ์หรือข้อความผิดพลาดขึ้นอยู่กับสถานะของคำตอบที่ได้รับ

ตัวอย่างโค้ดที่ 2: การเรียกใช้ API ด้วยการส่งค่าพารามิเตอร์ในรูปแบบ POST

 use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use JSON;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $endpoint = 'https://api.example.com/submit';
my $params = {
    'key1' => 'value1',
    'key2' => 'value2',
};
my $response = $ua->request(POST $endpoint, Content => encode_json($params));

if ($response->is_success) {
    print $response->decoded_content;
} else {
    print STDERR $response->status_line, "\n";
}

ในตัวอย่างที่สองนี้ โค้ดจะส่งคำขอไปยัง API โดยใช้วิธีการ POST พร้อมส่งข้อมูลขึ้นไปมากมายในรูปของ JSON หลังจากได้รับคำตอบ โค้ดจะดำเนินการเหมือนกับตัวอย่างแรก แต่ใช้ `HTTP::Request::Common` และ `JSON` สำหรับการจัดการคำขอและข้อมูล JSON

ตัวอย่างโค้ดที่ 3: การจัดการกับข้อมูล XML จาก API

 use LWP::UserAgent;
use XML::Simple;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('https://api.example.com/data.xml');

if ($response->is_success) {
    my $data = XMLin($response->decoded_content);
    print "Received name: " . $data->{name} . "\n";
} else {
    print STDERR $response->status_line, "\n";
}

ตัวอย่างโค้ดนี้แสดงการเรียกใช้งาน API ที่การกลับค่ามาเป็น XML โดยใช้โมดูล `XML::Simple` เพื่อแปลงข้อมูล XML ที่ได้รับเป็นข้อูลที่ Perl สามารถจัดการได้

Usecase ในโลกจริง

เหล่านี้เพียงแค่ตัวอย่างการเรียกใช้งาน API ในภาษา Perl เท่านั้น แต่โลกจริงภายนอกห้องเรียนที่ EPT นั้น มีการนำไปใช้เป็นจำนวนมาก เช่น การเรียกใช้งาน API สำหรับการติดต่อกับระบบการชำระเงิน เช่น PayPal หรือ Stripe, การตรวจสอบสถานะสินค้าผ่าน API ของบริการจัดส่งพัสดุ, หรือแม้แต่การเรียกข้อมูลสภาพอากาศเพื่อแสดงผลบนเว็บไซต์ของคุณ

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

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

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