如何在Perl腳本中將變量傳遞給curl命令？

Question

我試圖在Perl腳本中將變量傳遞給curl命令。 但這是失敗的。

但是，當我從命令提示符運行相同的curl命令時，它正在工作。

my $id=3;

system('curl -D- -u username:password -X PUT --data {\"fields\":{\"priority\":{\"id\":\"${id}\"}}} -H "Content-Type: application/json" -k https:request);

當我在Perl腳本上執行時，出現如下錯誤。

{"errorMessages":[],"errors":{"priority":"The priority selected is invalid."}}after curl command 

當我在命令提示符處通過將id替換為值來運行上述命令時，它正在傳遞。

'curl -D- -u username:password -X PUT --data {\"fields\":{\"priority\":{\"id\":\"3 \"}}} -H "Content-Type: application/json" -k https:request

請在這里幫助我，讓我知道我的代碼出了什么問題。

Answer 1

您將命令放在單引號內。 Perl將其視為單引號內的內容。 當您通過命令傳遞$id變量時，建議您使用雙引號。 例如

system("curl ... $id... -k https:request");
       ^ double quote                   ^

或者，您可以通過使用串聯來做到這一點。

system('curl -D- -u ...' . $id . '... -k https:request');
                          ------ concatenation