Konversi curl ke Perl

Q: Apa itu Perl LWP?

LWP (Library for WWW in Perl) adalah library HTTP client standar untuk Perl. Modul LWP::UserAgent menyediakan client berfitur lengkap dengan penanganan cookie, pengalihan, dukungan proxy, dan SSL. Instal dengan cpan LWP atau apt install libwww-perl. curl2code menggunakan LWP sebagai default untuk konversi Perl.

Q: LWP vs HTTP::Tiny vs Mojo::UserAgent — mana yang harus digunakan?

LWP kaya fitur dan merupakan pilihan tradisional. HTTP::Tiny adalah modul inti (tidak perlu instalasi) — bagus untuk permintaan sederhana. Mojo::UserAgent modern dengan dukungan async dan WebSocket. Untuk skrip cepat, gunakan HTTP::Tiny. Untuk fitur lengkap, gunakan LWP. Untuk bahasa skrip serupa, lihat curl ke Python atau curl ke Ruby.

Q: Bagaimana cara menangani autentikasi di Perl?

Dengan LWP: $ua->default_header('Authorization' => 'Bearer token'). Untuk autentikasi Basic: $ua->credentials('host:port', 'realm', 'user', 'pass'). Atau atur header per permintaan pada objek HTTP::Request. curl2code mengonversi flag -u dan -H 'Authorization' ke sintaks Perl.

Q: Bagaimana cara mengirim data formulir multipart di Perl?

Gunakan HTTP::Request::Common: POST($url, Content_Type => 'form-data', Content => [file => ['path/file.pdf']]). LWP menangani boundary multipart secara otomatis. Untuk field tambahan, tambahkan pasangan kunci-nilai ke array Content. curl2code mengonversi flag -F ke format ini.

Q: Bagaimana cara menangani kesalahan HTTP di Perl?

Periksa $response->is_success setelah setiap permintaan. Untuk detail kesalahan: $response->status_line mengembalikan kode status dan pesan. LWP mengembalikan objek respons bahkan pada kesalahan — periksa $response->code untuk status HTTP. Gunakan die atau warn untuk pelaporan kesalahan.

Q: Bagaimana cara mengurai JSON di Perl?

Gunakan modul JSON: my $data = decode_json($response->content). Untuk encoding: my $json = encode_json($hashref). Instal dengan cpan JSON. Untuk Perl 5.14+, pertimbangkan JSON::PP (modul inti, tanpa instalasi). Untuk alat yang lebih berpusat pada JSON, lihat curl ke Go.

Q: Bagaimana cara mengatur timeout di Perl LWP?

Atur pada UserAgent: my $ua = LWP::UserAgent->new(timeout => 30). Ini mengatur timeout permintaan keseluruhan dalam detik. Untuk timeout koneksi secara khusus, gunakan opsi IO::Socket::SSL. Percobaan ulang LWP tidak bawaan — terapkan secara manual atau gunakan LWP::UserAgent::Determined.

Q: Bagaimana cara menggunakan proxy di Perl?

Atur pada UserAgent: $ua->proxy(['http', 'https'], 'http://proxy:8080'). Atau gunakan variabel lingkungan: $ua->env_proxy membaca HTTP_PROXY dan HTTPS_PROXY. Untuk pengecualian tanpa proxy: $ua->no_proxy('localhost', '.internal'). curl2code mengonversi flag -x ke panggilan proxy LWP.

Q: Bagaimana cara mengirim POST request dengan JSON body di Perl?

Konversi perintah curl POST seperti curl -X POST -H "Content-Type: application/json" -d '{"key":"value"}' URL ke Perl menggunakan curl2code. Kode yang dihasilkan menggunakan $ua->post($url, Content_Type => 'application/json', Content => encode_json($data)). curl2code secara otomatis mendeteksi flag -d/--data dengan konten JSON dan mengatur header Content-Type yang sesuai dalam kode LWP::UserAgent.

Q: Bagaimana cara menambahkan otorisasi Bearer token di Perl?

Masukkan curl -H "Authorization: Bearer YOUR_TOKEN" URL ke curl2code dan alat ini akan menghasilkan kode LWP::UserAgent dengan header auth: $req->header('Authorization' => 'Bearer YOUR_TOKEN'). curl2code mendeteksi Bearer token dari flag -H "Authorization: Bearer ..." maupun --oauth2-bearer. Untuk Basic auth, gunakan -u user:pass.

Konversi perintah curl ke kode Perl menggunakan LWP::UserAgent. curl2code berjalan sepenuhnya di peramban Anda melalui WebAssembly — data Anda tetap pribadi. Untuk Python, coba konverter curl ke Python kami. Untuk Ruby, lihat curl ke Ruby. Di bawah ini adalah contoh Perl yang siap digunakan.

Cara menyalin curl dari peramban Anda

1
Buka DevTools
Tekan F12 atau Ctrl+Shift+I untuk membuka alat pengembang peramban Anda.
2
Buka tab Network
Klik tab Network dan lakukan tindakan yang memicu permintaan HTTP.
3
Salin sebagai cURL
Klik kanan pada permintaan → Copy → Copy as cURL. Kemudian tempelkan di atas.

Contoh Kode Perl

1Permintaan GET Sederhana

perintah curl

curl https://api.example.com/users

Perl · LWP

use LWP::Simple;
$content = get('https://api.example.com/users');

2POST dengan Body JSON

perintah curl

curl -X POST https://api.example.com/users \
  -H "Content-Type: application/json" \
  -d '{"name":"John","email":"john@example.com"}'

Perl · LWP

use LWP::UserAgent;

$ua = LWP::UserAgent->new();
$response = $ua->post(
    'https://api.example.com/users',
    'Content-Type' => 'application/json',
    Content => '{"name":"John","email":"john@example.com"}'
);

3Permintaan dengan Bearer Token

perintah curl

curl https://api.example.com/me \
  -H "Authorization: Bearer token123"

Perl · LWP

use LWP::UserAgent;

$ua = LWP::UserAgent->new();
$response = $ua->get(
    'https://api.example.com/me',
    Authorization => 'Bearer token123'
);

4Unggah Formulir Multipart

perintah curl

curl -X POST https://api.example.com/upload \
  -F "file=@document.pdf" \
  -F "description=My file"

Perl · LWP

use LWP::UserAgent;

$ua = LWP::UserAgent->new();
$response = $ua->post(
    'https://api.example.com/upload',
    Content_Type => 'form-data',
    Content => [
        file => ['document.pdf'],
        description => 'My file'
    ]
);

5Header Kustom

perintah curl

curl https://api.example.com/data \
  -H "X-API-Key: abc123" \
  -H "Accept: application/json" \
  -H "X-Request-ID: req-456"

Perl · LWP

use LWP::UserAgent;

$ua = LWP::UserAgent->new();
$response = $ua->get(
    'https://api.example.com/data',
    'X-API-Key' => 'abc123',
    Accept => 'application/json',
    'X-Request-ID' => 'req-456'
);

Pertanyaan yang Sering Diajukan

Apa itu Perl LWP?

LWP (Library for WWW in Perl) adalah library HTTP client standar untuk Perl. Modul LWP::UserAgent menyediakan client berfitur lengkap dengan penanganan cookie, pengalihan, dukungan proxy, dan SSL. Instal dengan cpan LWP atau apt install libwww-perl. curl2code menggunakan LWP sebagai default untuk konversi Perl.

LWP vs HTTP::Tiny vs Mojo::UserAgent — mana yang harus digunakan?

LWP kaya fitur dan merupakan pilihan tradisional. HTTP::Tiny adalah modul inti (tidak perlu instalasi) — bagus untuk permintaan sederhana. Mojo::UserAgent modern dengan dukungan async dan WebSocket. Untuk skrip cepat, gunakan HTTP::Tiny. Untuk fitur lengkap, gunakan LWP. Untuk bahasa skrip serupa, lihat curl ke Python atau curl ke Ruby.

Bagaimana cara menangani autentikasi di Perl?

Dengan LWP: $ua->default_header('Authorization' => 'Bearer token'). Untuk autentikasi Basic: $ua->credentials('host:port', 'realm', 'user', 'pass'). Atau atur header per permintaan pada objek HTTP::Request. curl2code mengonversi flag -u dan -H 'Authorization' ke sintaks Perl.

Bagaimana cara mengirim data formulir multipart di Perl?

Gunakan HTTP::Request::Common: POST($url, Content_Type => 'form-data', Content => [file => ['path/file.pdf']]). LWP menangani boundary multipart secara otomatis. Untuk field tambahan, tambahkan pasangan kunci-nilai ke array Content. curl2code mengonversi flag -F ke format ini.

Bagaimana cara menangani kesalahan HTTP di Perl?

Periksa $response->is_success setelah setiap permintaan. Untuk detail kesalahan: $response->status_line mengembalikan kode status dan pesan. LWP mengembalikan objek respons bahkan pada kesalahan — periksa $response->code untuk status HTTP. Gunakan die atau warn untuk pelaporan kesalahan.

Bagaimana cara mengurai JSON di Perl?

Gunakan modul JSON: my $data = decode_json($response->content). Untuk encoding: my $json = encode_json($hashref). Instal dengan cpan JSON. Untuk Perl 5.14+, pertimbangkan JSON::PP (modul inti, tanpa instalasi). Untuk alat yang lebih berpusat pada JSON, lihat curl ke Go.

Bagaimana cara mengatur timeout di Perl LWP?

Atur pada UserAgent: my $ua = LWP::UserAgent->new(timeout => 30). Ini mengatur timeout permintaan keseluruhan dalam detik. Untuk timeout koneksi secara khusus, gunakan opsi IO::Socket::SSL. Percobaan ulang LWP tidak bawaan — terapkan secara manual atau gunakan LWP::UserAgent::Determined.

Bagaimana cara menggunakan proxy di Perl?

Atur pada UserAgent: $ua->proxy(['http', 'https'], 'http://proxy:8080'). Atau gunakan variabel lingkungan: $ua->env_proxy membaca HTTP_PROXY dan HTTPS_PROXY. Untuk pengecualian tanpa proxy: $ua->no_proxy('localhost', '.internal'). curl2code mengonversi flag -x ke panggilan proxy LWP.

Bagaimana cara mengirim POST request dengan JSON body di Perl?

Konversi perintah curl POST seperti curl -X POST -H "Content-Type: application/json" -d '{"key":"value"}' URL ke Perl menggunakan curl2code. Kode yang dihasilkan menggunakan $ua->post($url, Content_Type => 'application/json', Content => encode_json($data)). curl2code secara otomatis mendeteksi flag -d/--data dengan konten JSON dan mengatur header Content-Type yang sesuai dalam kode LWP::UserAgent.

Bagaimana cara menambahkan otorisasi Bearer token di Perl?

Masukkan curl -H "Authorization: Bearer YOUR_TOKEN" URL ke curl2code dan alat ini akan menghasilkan kode LWP::UserAgent dengan header auth: $req->header('Authorization' => 'Bearer YOUR_TOKEN'). curl2code mendeteksi Bearer token dari flag -H "Authorization: Bearer ..." maupun --oauth2-bearer. Untuk Basic auth, gunakan -u user:pass.

Bagaimana cara mengatur header Content-Type di Perl?

curl2code mengonversi curl -H "Content-Type: application/json" URL ke kode LWP::UserAgent dengan header yang tepat: $req->header('Content-Type' => 'application/json'). Untuk data -d, curl secara default menggunakan application/x-www-form-urlencoded; untuk unggahan formulir -F, curl menggunakan multipart/form-data. curl2code memetakan masing-masing ke API LWP::UserAgent yang benar.

Tautan Berguna

Dokumentasi LWP

metacpan.org

Referensi Pustaka Standar

metacpan.org

Halaman Man curl

curl.se

Panduan curl

Kode Error curl

Cari kode keluar curl apa pun — penyebab, perbaikan, dan tips debugging.

Unduh File dengan curl

Simpan file dengan -o, -O, ikuti redirect, lanjutkan unduhan, dan lainnya.

SSL, TLS & Proxy

Konfigurasi sertifikat, versi TLS, proxy HTTP/SOCKS, dan DNS kustom.

Cara menyalin curl dari peramban Anda

Contoh Kode Perl

1Permintaan GET Sederhana

2POST dengan Body JSON

3Permintaan dengan Bearer Token

4Unggah Formulir Multipart

5Header Kustom

Pertanyaan yang Sering Diajukan

Tautan Berguna

Panduan curl

Konversi curl ke Bahasa Lain

Contoh Kode Perl

1Permintaan GET Sederhana

2POST dengan Body JSON

3Permintaan dengan Bearer Token

4Unggah Formulir Multipart

5Header Kustom