แปลง curl เป็น Perl

LWP (Library for WWW in Perl) เป็นไลบรารี HTTP client มาตรฐานสำหรับ Perl โมดูล LWP::UserAgent มีฟีเจอร์ครบถ้วนทั้งการจัดการคุกกี้, การ redirect, การรองรับ proxy และ SSL ติดตั้งด้วย cpan LWP หรือ apt install libwww-perl โดย curl2code ใช้ LWP เป็นค่าเริ่มต้นสำหรับการแปลงเป็น Perl

LWP มีฟีเจอร์ครบครันและเป็นตัวเลือกดั้งเดิม HTTP::Tiny เป็นโมดูลหลัก (ไม่ต้องติดตั้ง) — เหมาะสำหรับ request ง่ายๆ Mojo::UserAgent ทันสมัยพร้อมรองรับ async และ WebSocket สำหรับสคริปต์ด่วนๆ ให้ใช้ HTTP::Tiny สำหรับฟีเจอร์เต็มรูปแบบให้ใช้ LWP สำหรับภาษาเขียนสคริปต์ที่คล้ายกัน ดูได้ที่ curl เป็น Python หรือ curl เป็น Ruby

ใช้ LWP: $ua->default_header('Authorization' => 'Bearer token') สำหรับ Basic auth: $ua->credentials('host:port', 'realm', 'user', 'pass') หรือตั้งค่า headers ราย request ในออบเจกต์ HTTP::Request โดย curl2code จะแปลงแฟล็ก -u และ -H 'Authorization' เป็นไวยากรณ์ Perl

ใช้ HTTP::Request::Common: POST($url, Content_Type => 'form-data', Content => [file => ['path/file.pdf']]) โดย LWP จะจัดการ multipart boundaries ให้โดยอัตโนมัติ สำหรับฟิลด์เพิ่มเติม ให้เพิ่มคู่คีย์-ค่าลงในอาเรย์ Content โดย curl2code จะแปลงแฟล็ก -F เป็นรูปแบบนี้

ตรวจสอบ $response->is_success หลังการเรียกแต่ละครั้ง สำหรับรายละเอียดข้อผิดพลาด: $response->status_line จะคืนค่า status code และข้อความ LWP จะคืนค่าออบเจกต์ response เสมอแม้เกิดข้อผิดพลาด — ให้ตรวจสอบ $response->code สำหรับสถานะ HTTP ใช้ die หรือ warn เพื่อรายงานข้อผิดพลาด

ใช้โมดูล JSON: my $data = decode_json($response->content) สำหรับการเข้ารหัส: my $json = encode_json($hashref) ติดตั้งด้วย cpan JSON สำหรับ Perl 5.14+ ให้พิจารณา JSON::PP (โมดูลหลัก ไม่ต้องติดตั้ง) สำหรับเครื่องมือที่เน้น JSON มากกว่านี้ ดูได้ที่ curl เป็น Go

ตั้งค่าที่ UserAgent: my $ua = LWP::UserAgent->new(timeout => 30) ซึ่งจะเป็นการตั้งค่า timeout รวมของ request เป็นวินาที สำหรับ timeout การเชื่อมต่อโดยเฉพาะ ให้ใช้ตัวเลือก IO::Socket::SSL ส่วนการลองใหม่ (retries) ของ LWP ไม่ได้มีมาให้ในตัว — ต้องเขียนเองหรือใช้ LWP::UserAgent::Determined

ตั้งค่าที่ UserAgent: $ua->proxy(['http', 'https'], 'http://proxy:8080') หรือใช้ตัวแปรสภาพแวดล้อม: $ua->env_proxy จะอ่านค่าจาก HTTP_PROXY และ HTTPS_PROXY สำหรับข้อยกเว้นไม่ใช้ proxy: $ua->no_proxy('localhost', '.internal') โดย curl2code จะแปลงแฟล็ก -x เป็นการเรียก proxy ของ LWP

แปลงคำสั่ง curl POST เช่น curl -X POST -H "Content-Type: application/json" -d '{"key":"value"}' URL เป็น Perl โดยใช้ curl2code โค้ดที่สร้างขึ้นจะใช้ $ua->post($url, Content_Type => 'application/json', Content => encode_json($data)) โดย curl2code จะตรวจจับแฟล็ก -d/--data ที่มีเนื้อหา JSON โดยอัตโนมัติ และตั้งค่าส่วนหัว Content-Type ที่เหมาะสมในโค้ด LWP::UserAgent

ส่ง curl -H "Authorization: Bearer YOUR_TOKEN" URL ไปยัง curl2code และเครื่องมือจะสร้างโค้ด LWP::UserAgent พร้อมส่วนหัวการยืนยันตัวตน: $req->header('Authorization' => 'Bearer YOUR_TOKEN') โดย curl2code จะตรวจจับ Bearer tokens จากทั้งแฟล็ก -H "Authorization: Bearer ..." และ --oauth2-bearer สำหรับ Basic auth ให้ใช้ -u user:pass

curl2code จะแปลง curl -H "Content-Type: application/json" URL เป็นโค้ด LWP::UserAgent พร้อมส่วนหัวที่ถูกต้อง: $req->header('Content-Type' => 'application/json') สำหรับข้อมูล -d นั้น curl จะกำหนดค่าเริ่มต้นเป็น application/x-www-form-urlencoded ส่วนการอัปโหลดฟอร์ม -F จะใช้ multipart/form-data โดย curl2code จะจับคู่แต่ละรายการเข้ากับ LWP::UserAgent API ที่ถูกต้อง