如何从Perl脚本执行CURL命令？

Question

I want to warm up my service as soon as deployment is done, otherwise the first person hitting my service faces a big latency.

For this i want to execute a curl command similar to :

curl -v -H "Accept:text/x-html-parts,text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8" -H "Accept-Charset:UTF-8" -H "Accept-Encoding:identity" -H "Connection:Keep-Alive" -H "Via:HTTP/1.1 ShoppingArea" + + + something.. something....

This curl script will execute during the deployment process and will invoke the main spring controller of my service.

I want to write this command in a perl file.

But i am not very sure how to do this!

Any leads would be helpful :)

Answer 1

As a rough prototype of reproducing what curl does in pure Perl (Using https://corion.net/curl2lwp.psgi ), you can easily convert a Curl command line to a Perl script using LWP::UserAgent:

#!perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;


my $ua = LWP::UserAgent->new();
my $r  = HTTP::Request->new(
    'GET' => 'https://api.example.com/',
    [
        'Connection' => 'Keep-Alive',
        'Via'        => 'HTTP/1.1 ShoppingArea',
        'Accept' =>
'text/x-html-parts,text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8',
        'Accept-Charset'  => 'UTF-8',
        'Accept-Encoding' => 'identity',
        'Host'            => 'api.example.com:443',
        'User-Agent'      => 'curl/7.55.1',
    ],

);
my $res = $ua->request( $r, );


__END__

Created from curl command line
curl -v -H "Accept:text/x-html-parts,text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8" -H "Accept-Charset:UTF-8" -H "Accept-Encoding:identity" -H "Connection:Keep-Alive" -H "Via:HTTP/1.1 ShoppingArea" https://api.example.com/ 

This requires the LWP::UserAgent module, so shelling out to curl might still be a quicker approach to you. If you need to react on the result, like sending error mails on HTTP Error 500 or other notifications on HTTP Error 4xx, using pure Perl is more convenient as you get the status code directly back.

Answer 2

Bad practice, but using system (runs arbitrary shell code):

system "curl -v -H 'Accept:text/x-html-parts,text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8' -H 'Accept-Charset:UTF-8' -H 'Accept-Encoding:identity' -H 'Connection:Keep-Alive' -H 'Via:HTTP/1.1 ShoppingArea' + + + something.. something...."

also, from ( How do I write a Perl script to use curl to process a URL? ):

my $curl=`curl http://whatever`

Answer 3

if you want to use specific CURL only in your Perl Script. I would Recommend you to execute System call using backticks.

my $curlcomm = `curl -v -H "Accept:text/x-html-parts,text/html,application/xhtml+xml,applicatio/xml;q=0.9,image/webp,image/apng,*/*;q=0.8" -H "Accept-Charset:UTF-8" -H "Accept-Encoding:identity" -H "Connection:Keep-Alive" -H "Via:HTTP/1.1 ShoppingArea" + + + something.. something....`

but standard ways are also available that can be using LWP::UserAgent , LWP::Curl and similar.