curl کو Perl میں تبدیل کریں

LWP (Library for WWW in Perl) پرل کے لیے معیاری HTTP کلائنٹ لائبریری ہے۔ LWP::UserAgent ماڈیول کوکی ہینڈلنگ، ری ڈائریکٹس، پراکسی سپورٹ، اور SSL کے ساتھ ایک مکمل خصوصیات والا کلائنٹ فراہم کرتا ہے۔ اسے cpan LWP یا apt install libwww-perl کے ساتھ انسٹال کریں۔ curl2code پرل کنورژنز کے لیے 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 auth کے لیے: $ua->credentials('host:port', 'realm', 'user', 'pass')۔ یا HTTP::Request آبجیکٹ پر فی درخواست ہیڈرز سیٹ کریں۔ curl2code خود بخود -u اور -H 'Authorization' فلیگز کو پرل سنٹیکس میں تبدیل کر دیتا ہے۔

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 ٹوکنز کا پتہ لگاتا ہے۔ 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 کے ساتھ میپ کرتا ہے۔