curl को Perl में बदलें

LWP (Library for WWW in Perl) Perl के लिए मानक HTTP क्लाइंट लाइब्रेरी है। LWP::UserAgent मॉड्यूल कुकी हैंडलिंग, रीडायरेक्ट, प्रॉक्सी सपोर्ट और SSL के साथ एक पूर्ण-विशेषताओं वाला क्लाइंट प्रदान करता है। cpan LWP या apt install libwww-perl के साथ इंस्टॉल करें। curl2code Perl कन्वर्जन के लिए डिफ़ॉल्ट के रूप में LWP का उपयोग करता है।

LWP फीचर-रिच और पारंपरिक विकल्प है। HTTP::Tiny एक कोर मॉड्यूल है (इंस्टॉल की आवश्यकता नहीं) — सरल रिक्वेस्ट के लिए बढ़िया है। Mojo::UserAgent async सपोर्ट और WebSocket के साथ आधुनिक है। त्वरित स्क्रिप्ट के लिए, HTTP::Tiny का उपयोग करें। पूर्ण फीचर्स के लिए, LWP का उपयोग करें। इसी तरह की स्क्रिप्टिंग भाषाओं के लिए, curl to Python या curl to Ruby देखें।

LWP के साथ: $ua->default_header('Authorization' => 'Bearer token')। Basic ऑथेंटिकेशन के लिए: $ua->credentials('host:port', 'realm', 'user', 'pass')। या HTTP::Request ऑब्जेक्ट पर प्रति-रिक्वेस्ट हेडर सेट करें। curl2code -u और -H 'Authorization' फ्लैग्स को Perl सिंटैक्स में बदल देता है।

HTTP::Request::Common का उपयोग करें: POST($url, Content_Type => 'form-data', Content => [file => ['path/file.pdf']])। LWP मल्टीपार्ट बाउंड्रीज़ को स्वचालित रूप से संभालता है। अतिरिक्त फ़ील्ड्स के लिए, Content एरे में की-वैल्यू पेयर्स जोड़ें। curl2code -F फ्लैग्स को इस फॉर्मेट में बदल देता है।

प्रत्येक रिक्वेस्ट के बाद $response->is_success चेक करें। एरर विवरण के लिए: $response->status_line स्टेटस कोड और संदेश लौटाता है। LWP एरर्स पर भी एक रिस्पॉन्स ऑब्जेक्ट लौटाता है — HTTP स्टेटस के लिए $response->code चेक करें। एरर रिपोर्टिंग के लिए die या warn का उपयोग करें।

JSON मॉड्यूल का उपयोग करें: my $data = decode_json($response->content)। एनकोडिंग के लिए: my $json = encode_json($hashref)। cpan JSON के साथ इंस्टॉल करें। Perl 5.14+ के लिए, JSON::PP (कोर मॉड्यूल, कोई इंस्टॉल नहीं) पर विचार करें। अधिक JSON-केंद्रित टूल्स के लिए, curl to Go देखें।

UserAgent पर सेट करें: my $ua = LWP::UserAgent->new(timeout => 30)। यह सेकंड में कुल रिक्वेस्ट टाइमआउट सेट करता है। विशेष रूप से कनेक्शन टाइमआउट के लिए, IO::Socket::SSL विकल्पों का उपयोग करें। LWP रिट्राय बिल्ट-इन नहीं हैं — मैन्युअल रूप से लागू करें या LWP::UserAgent::Determined का उपयोग करें।

UserAgent पर सेट करें: $ua->proxy(['http', 'https'], 'http://proxy:8080')। या एनवायरनमेंट वेरिएबल्स का उपयोग करें: $ua->env_proxy HTTP_PROXY और HTTPS_PROXY को पढ़ता है। नो-प्रॉक्सी अपवादों के लिए: $ua->no_proxy('localhost', '.internal')। curl2code -x फ्लैग्स को LWP प्रॉक्सी कॉल्स में बदल देता है।

curl2code का उपयोग करके curl -X POST -H "Content-Type: application/json" -d '{"key":"value"}' URL जैसे curl POST कमांड को Perl में बदलें। जेनरेट किया गया कोड $ua->post($url, Content_Type => 'application/json', Content => encode_json($data)) का उपयोग करता है। curl2code स्वचालित रूप से JSON कंटेंट वाले -d/--data फ्लैग्स का पता लगाता है और LWP::UserAgent कोड में उपयुक्त Content-Type हेडर सेट करता है।

curl2code को curl -H "Authorization: Bearer YOUR_TOKEN" URL पास करें और यह auth हेडर के साथ LWP::UserAgent कोड जेनरेट करता है: $req->header('Authorization' => 'Bearer YOUR_TOKEN')। curl2code -H "Authorization: Bearer ..." और --oauth2-bearer दोनों फ्लैग्स से Bearer tokens का पता लगाता है। 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 पर मैप करता है।