不能使用未定義的值作爲文件句柄參考

Question

首先我已經搜索論壇，並沒有發現確切的我的問題。 我使用安裝了perl 5.10的Ubuntu。

我執行我的劇本後收到以下錯誤：

"Can't use an undefined value as filehandle reference at scraper.pl line 17" 

這裏是我的腳本....

#!/usr/bin/perl -W 
use strict; 
use warnings; 

use WWW::Curl::Easy; 


my $curl = WWW::Curl::Easy->new; 

$curl->setopt(CURLOPT_HEADER, 1); 
$curl->setopt(CURLOPT_URL, 'http://something.com'); 


my $response_body; 
$curl->setopt(CURLOPT_WRITEDATA,\$response_body); 

my $return_code = $curl->perform; 

if ($return_code == 0) 
{ 
    my $response_code = $curl->getinfo(CURLINFO_HTTP_CODE); 
    print ("Success ".$response_code); 
} 
else 
{ 
    # Error Code 
    print ("An error occured: ".$return_code." ".$curl->strerror($return_code)." ".$curl->errbuf."\n"); 
} 

# EOF 

這裏任何幫助將非常感激。

感謝，

本

Answer 1

在地方：

my $response_body; 
$curl->setopt(CURLOPT_WRITEDATA,\$response_body); 

做：

my $response_body = ''; 
open(my $fileb, ">", \$response_body); 
$curl->setopt(CURLOPT_WRITEDATA,$fileb); 

如果你檢查你實際上已經安裝了WWW捲曲的版本的文檔，我想你會看到它通過一個文件句柄，而不是標量引用。

或者，升級WWW-Curl。

另請注意，-W通常不可取;通常模塊會禁用特定範圍的警告，並且大寫W開關會阻止該警告。使用-w代替（或僅爲use warnings;爲您自己的代碼，你已經在做）。

Answer 2

有惡意代碼在：

print ("Success ".$response_code); 

看那文檔print：由於當您使用括號參數解析的方式，第一個參數將被解釋爲文件句柄，即而不是你的意圖。在你的代碼中，括號是不必要的;只是傳遞一個連接字符串，或更好，避免串聯，並通過字符串列表：

print 'Success ', $response_code; 

另外，請請始終包括use strict; use warnings;在頂部每隔腳本編寫。你會發現許多錯誤被突出顯示，否則這些錯誤可能會在相當長一段時間內隱藏起來，並且在你必須詢問堆棧溢出之前捕獲錯誤時，它也可以節省每個人的時間。 :)

Answer 3

my $response_body; 
$curl->setopt(CURLOPT_WRITEDATA,\$response_body); 

您已經聲明$response_body，但還沒有賦值給它。我認爲如果你將它設爲一個字符串，這將起作用。

my $response_body = ""; 

這就是說，我不能確定，因爲我不能重現錯誤。也許安裝更新版本的模塊也會有幫助。

Answer 4

#!/usr/bin/perl 
use strict; 
use warnings; 

use WWW::Curl::Easy; 
use File::Temp qw/tempfile/; 

my $response_body = tempfile(); 

my $curl = WWW::Curl::Easy->new; 

$curl->setopt(CURLOPT_HEADER, 1); 
$curl->setopt(CURLOPT_URL, 'http://yiddele.com/categoryindex.aspx'); 

#$curl->setopt(CURLOPT_WRITEDATA,\$response_body); 
$curl->setopt(CURLOPT_WRITEDATA, \$response_body); 

my $return_code = $curl->perform; 

if ($return_code == 0) 
{ 
    my $response_code = $curl->getinfo(CURLINFO_HTTP_CODE); 
    print ("Success ".$response_code); 
} 
else 
{ 
    # Error Code 
    print ("An error occured: ".$return_code." ".$curl->strerror($return_code)." ".$curl->errbuf."\n"); 
} 

# EOF 

輸出是：

Success 200

Answer 5

 use Data::Printer ; 
     use URI::Encode qw(uri_encode uri_decode); 
     use JSON(); 
     use JSON::Parse ':all' ; 
     use WWW::Curl; 
     use HTTP::Response ; 

     use utf8 ; 
     use Carp ; 
     use Cwd qw (abs_path) ; 
     use Getopt::Long; 

     use WWW::Curl::Easy; 

     my $curl = WWW::Curl::Easy->new; 
     $curl->setopt(WWW::Curl::Easy::CURLOPT_HEADER(),1); 
     $curl->setopt(WWW::Curl::Easy::CURLOPT_URL(), 'https://www.pivotaltracker.com/services/v5/me?fields=%3Adefault'); 
     $curl->setopt(WWW::Curl::Easy::CURLOPT_HTTPHEADER() , ['X-TrackerToken: ' . $TOKEN] ); 
     #$curl->setopt(WWW::Curl::Easy::CURLOPT_POST(), 1); 

     # A filehandle, reference to a scalar or reference to a typeglob can be used here. 
     my $response_body; 
     $curl->setopt(WWW::Curl::Easy::CURLOPT_WRITEDATA(),\$response_body); 

     # Starts the actual request 
     my $ret = $curl->perform; 


     if ($ret == 0) { 

       print("Transfer went ok\n"); 
       my $response_code = $curl->getinfo(CURLINFO_HTTP_CODE); 
       # judge result and next action based on $response_code 

       $response_body = HTTP::Response->parse($response_body); 
       print("Received response: $response_body\n"); 
       p($response_body); 
       my $json_data = $response_body->content ; 

       $json_data = JSON->new->utf8->decode($json_data); 
       p($json_data); 

     } else { 
      # Error code, type of error, error message 
       print("An error happened: $ret ".$curl->strerror($ret)." ".$curl->errbuf."\n"); 
     } 

     # my $cmd='curl -X GET -H "X-TrackerToken: ' . "$TOKEN" . '" "https://www.pivotaltracker.com/services/v5/me?fields=%3Adefault"' ; 
     # my $json_str = `$cmd`; 
     # p($json_str); 
     # my $json_data = JSON->new->utf8->decode($json_str); 
     # p($json_data);