LWP::UserAgent Protocol scheme 'http' is not supported

当我运行下面的脚本的时候,报错“Protocol scheme 'http' is not supported,_rc==>501”.

##!/bin/sh

# Source needed files

. /home/citminst/sqllib/db2profile

exec /opt/freeware/bin/perl5.8.8 -x $0 $@

#!perl
#line 9

use strict;
use LWP;
use URI::Escape;

my $uid='test@cn.ibm.com';
my $browser = LWP::UserAgent->new;
my $response = $browser->get("http://bluepages.ibm.com/BpHttpApisv3/wsapi?byInternetAddr=" . uri_escape($uid));


while ( my ($key,$value) = each %$response ) {
print "$key => $value\n";
}

if ( $response->is_success ) {
print "--------success\n";
}else {
print"-------failed\n";
}


经过测试发现原来缺少安装Net::HTTP module.因为LWP::UserAgent 需要Net::HTTP.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值