JavaScript抓取：無法從Perl腳本

Question

我試圖得到迴應數據從一個Perl CGI腳本後退POST響應數據：

我有以下的JavaScript代碼：

fetch('/test.pl', { 
     method: 'POST', 
     headers: { 
     'Accept': 'application/json', 
     'Content-Type': 'application/json' 
     }, 
     body: JSON.stringify({ 
     name: this.state.msgName, 
     email: this.state.msgEmail 
     }) 
    }) 
    .then((response) => { 
     console.log("been here"); 
     console.log(response); 
    }) 
    .then((responseData) => { 
     console.log("been here 2"); 
     console.log(responseData); 
    }) 
    .then((data) => { 
     console.log("been here 3"); 
     console.log(data); 
    }) 
    .catch((error) => { 
     console.log("Failed!", error) 
    }); 

這個perl腳本：

#/usr/bin/env perl 
use strict; 
use CGI; 
use JSON; 

my $q = new CGI; 
my $json = new JSON; 

if ($q->param) 
{ 
    print $q->header(); 
    my $hash = $json->decode($q->param('POSTDATA')); 
    print $q->header('application/json'); 
    my $msg = [ sprintf "data from %s received ok", $hash->{name} ]; 
    print $json->encode($msg); 
} 

，但我只得到這個（我使用Chrome的Web開發工具），並沒有數據：

been here 
Response {type: "basic", url: "http://localhost/test.pl", status: 200, ok: true, statusText: "OK"…} 
been here 2 
undefined 
been here 3 
undefined 

我敢肯定，perl腳本工程確定，這裏的命令行測試它的輸出：

# curl -H "Accept: application/json" -H "Content-Type: application/json" -X POST -d '{"name":"uvw","email":"xyz"}' http://localhost/test.pl 
Content-Type: application/json; charset=ISO-8859-1 

["data from uvw received ok"]% 

任何人知道如何獲取數據響應返回給JS腳本？預先感謝任何幫助！

Answer 1

我終於解決了這個問題，我在這裏發佈我的解決方案，因爲它可能與其他人有類似的問題相關。

的問題是雙重的：

1. 我打印從Perl腳本的HTML額外的頭，使JSON數據錯誤
2. 我沒有前提內使用response.json（）來獲得JSON數據

這裏的固定碼：

JavaScript代碼：

fetch('/test.pl', { 
     method: 'POST', 
     headers: { 
     'Accept': 'application/json', 
     'Content-Type': 'application/json' 
     }, 
     body: JSON.stringify({ 
     name: this.state.msgName, 
     email: this.state.msgEmail 
     }) 
    }) 
    .then((response) => { 
     response.json().then((data) => { 
      console.log(data); 
     }); 

     return(response); 
     } 
    }) 

Perl代碼：

#/usr/bin/env perl 
use strict; 
use CGI; 
use JSON; 

my $q = new CGI; 
my $json = new JSON; 

if ($q->param) 
{ 
    print $q->header(); 
    my $hash = $json->decode($q->param('POSTDATA')); 
    # NEXT LINE REMOVED, IT WAS WRONG!! 
    #print $q->header('application/json'); 
    my $msg = [ sprintf "data from %s received ok", $hash->{name} ]; 
    print $json->encode($msg); 
} 

Answer 2

您沒有將數據傳遞給回調鏈。如果您希望在then()以下，則您必須從then()處理程序中扣除return。

function promiseOne() { 
    return Promise.resolve(1) 
}  

promiseOne() 
    .then(one => { console.log(one) }) # 1 
    .then(one => { console.log(one) }) # undefined 

promiseOne() 
    .then(one => { console.log(one); return one }) # 1 
    .then(one => { console.log(one) })    # 1 

因爲第一then()處理程序沒有return聲明，它含蓄地返回undefined，這就是你的下一個處理程序見。

如果你沒有做任何額外的異步工作，你通常不需要多次調用then()。