警告> {AA}

Question

私はHTTP::Bodyをテストしています、そして

my $body = HTTP::Body->new($ct, $cl); 
#.. 
use Data::Dumper; 
warn Dumper($body);     #A 
warn ref $body;      #B 
warn Dumper($body->param);   #C 
warn ref $body->param;    #D 
warn Dumper($body->param->{aa});  #E 
warn ref $body->param->{aa};   #F 

OUTPUT> paramは何かが間違っているのREFの$ body- STRINGではありませんか？それをSTRINGにする方法？

Answer 1

something's wrongは、空の文字列または入力がないときにwarn関数が出力するデフォルトのメッセージです。

$ perl -e warn 
Warning: something's wrong at -e line 1. 

$ perl -e 'warn ""' 
Warning: something's wrong at -e line 1. 

$ perl -e '$body={param=>{aa=>"b"}};warn ref($body->{param}{aa})' 
Warning: something's wrong at -e line 1. 

は、私はあなたにもrefは、文字列として、通常のスカラーに何をするかについて混乱していると思います。 refへの入力が参照でない場合、出力は空の文字列です。

print ref(42);     # no output 
print ref(undef);    # no output 
$foo="abc"; print ref($foo); # no output 
warn ref($foo);    # like warn "", so "something's wrong"