json 数据类型

[root@dr-mysql01 lwp]# perl yyget.pl

$content is {"succ":true,"err_msg":"","is_succ":true,"timeout":false,"overdue":false}

[root@dr-mysql01 lwp]# cat yyget.pl

use Encode;

use Encode::CN;

use URI::Escape;

use LWP::Simple;

#$host = "http://ip.taobao.com/service/getIpInfo.php?ip=202.101.172.35";

$host = "http://licai.yingyinglicai.com/user/smsVerifySend.do?mobile=180xxx2237";

$content = get($host);

print "\$content is $content\n";