curl-ის კონვერტაცია Perl-ში

LWP (Library for WWW in Perl) არის სტანდარტული HTTP კლიენტის ბიბლიოთეკა Perl-ისთვის. LWP::UserAgent მოდული უზრუნველყოფს სრულყოფილ კლიენტს cookie-ების მართვით, გადამისამართებებით, proxy-ს მხარდაჭერით და SSL-ით. დააინსტალირეთ cpan LWP ან apt install libwww-perl-ით. curl2code იყენებს LWP-ს, როგორც ნაგულისხმევს Perl კონვერტაციებისთვის.

LWP არის ფუნქციებით მდიდარი და ტრადიციული არჩევანი. HTTP::Tiny არის ბირთვის მოდული (ინსტალაცია არ სჭირდება) — შესანიშნავია მარტივი მოთხოვნებისთვის. Mojo::UserAgent არის თანამედროვე, ასინქრონული მხარდაჭერით და 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'). ან დააყენეთ header-ები თითოეულ მოთხოვნაზე HTTP::Request ობიექტზე. curl2code აკონვერტირებს -u და -H 'Authorization' დროშებს Perl სინტაქსში.

გამოიყენეთ HTTP::Request::Common: POST($url, Content_Type => 'form-data', Content => [file => ['path/file.pdf']]). LWP ავტომატურად მართავს multipart boundary-ებს. დამატებითი ველებისთვის დაამატეთ key-value წყვილები Content მასივში. curl2code აკონვერტირებს -F დროშებს ამ ფორმატში.

შეამოწმეთ $response->is_success თითოეული მოთხოვნის შემდეგ. შეცდომის დეტალებისთვის: $response->status_line აბრუნებს სტატუსის კოდს და შეტყობინებას. LWP აბრუნებს პასუხის ობიექტს შეცდომების დროსაც — შეამოწმეთ $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 to Go.

დააყენეთ UserAgent-ზე: my $ua = LWP::UserAgent->new(timeout => 30). ეს აყენებს მოთხოვნის მთლიან timeout-ს წამებში. კონკრეტულად კავშირის timeout-ისთვის გამოიყენეთ 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 proxy გამოძახებებად.

გადაიყვანეთ 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 ტოკენებს როგორც -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-სთან აკავშირებს.