Javascript 如何在AngularJS中将JSON数据发送到CGI Perl脚本并在Perl中读回

我使用以下代码将JSON数据发送到perl脚本

ProductService.AddNewProduct = function(NewProduct)  {

    var ProductData = {};
    ProductData = NewProduct;
    ProductData = JSON.stringify(ProductData);
    alert (ProductData);

    var req = {
        method: 'POST',
        url: "cgi-bin/AddNewProduct2.pl",
        params: { NewProduct: ProductData }
    };

    $http(req).success(function()
    {
        alert ('New Product Added!');
    })
    .error(function()
    {
        alert ('New Product Add Error!');
    });

}

警报正在警告此数据

{"ProductID":873,"ProductName":"sds","ProductImagePath":"/images/adidas/873.png","SubCategoryID":"153","SubCategoryName":"Cream Biscuits","BrandID":"162","BrandName":"Adidas","Variants":[]}

在perl脚本中，尝试获取以下数据：

my $cgi = CGI->new();
my $DecodedData = decode_json($cgi->param("NewProduct"));

my $product_id = $DecodedData->{'ProductID'};
my $product_name = $DecodedData->{'ProductName'};
my $product_description = 'Desc';
my $image_path = $DecodedData->{'ProductImagePath'};
my $brand_id = $DecodedData->{'BrandID'};
my $subcatty_id = $DecodedData->{'SubCategoryID'}; 

但是没有一个Perl变量被数据填充

---

问题是什么？有人能帮我一下吗。

你的错误检查在哪里？请看：还有谁还在使用CGI？@NeilHWatson CGI的替代方案是什么。框架是预期的web工具。Mojolicious（我的最爱）、Dancer和Catalyst是Perl的主要功能。@DeveshAgrawal看看你的错误检查在哪里？请看：还有谁还在使用CGI？@NeilHWatson CGI的替代方案是什么。框架是预期的web工具。Mojolicious（我最喜欢的）、Dancer和Catalyst是Perl的主要功能