今天看啥
热点:

CentOS 5下安装perl module以支持IPV6


在我们的产品中用到了LWP::UserAgent,用于在perl代码中进行http请求,测试发现在纯V6环境下会返回下面的错误:

Can't connect to [2001:db8:0:1:10:208:135:232]:8002 (Bad hostname '[2001:db8:0:1:10:208:135:232]')

调查了以后发现一些perl应用依赖于IO::Socket::INET,由于这个模块本身不支持IPV6,所以在纯V6环境下可能需要做一些工作才能work。搜索CPAN,模块Net::INET6Glue::INET_is_INET6提供了对这个问题的解决方案,在应用代码中只需要引用一下就可以。

[plain]view plaincopy在CODE上查看代码片派生到我的代码片
  1. useNet::INET6Glue::INET_is_INET6;
但是CentOS 5最新版本的perl是5.8.8,默认并没有这个模块,下面的问题就是如何安装呢?

如果有网络环境,比如在开发机上,最简单的办法就是从CPAN直接安装,shell中命令如下:

[plain]view plaincopy在CODE上查看代码片派生到我的代码片
  1. cpanApp::cpanminus
  2. cpanmNet::INET6Glue::INET_is_INET6
第一个命令会执行比较长时间,需要耐性等待一下,中间还会问你y/n,全部默认。

第二个命令执行后,会显示出同时安装的依赖模块:

[plain]view plaincopy在CODE上查看代码片派生到我的代码片
  1. Fetchinghttp://www.cpan.org/authors/id/S/SU/SULLR/Net-INET6Glue-0.603.tar.gz...OK
  2. ConfiguringNet-INET6Glue-0.603...OK
  3. ==>Founddependencies:IO::Socket::IP
  4. -->WorkingonIO::Socket::IP
  5. Fetchinghttp://www.cpan.org/authors/id/P/PE/PEVANS/IO-Socket-IP-0.37.tar.gz...OK
  6. ConfiguringIO-Socket-IP-0.37...OK
  7. ==>Founddependencies:Socket
  8. -->WorkingonSocket
  9. Fetchinghttp://www.cpan.org/authors/id/P/PE/PEVANS/Socket-2.018.tar.gz...OK
  10. ==>Founddependencies:ExtUtils::Constant
  11. -->WorkingonExtUtils::Constant
  12. Fetchinghttp://www.cpan.org/authors/id/N/NW/NWCLARK/ExtUtils-Constant-0.23.tar.gz...OK
  13. ConfiguringExtUtils-Constant-0.16...OK
  14. BuildingandtestingExtUtils-Constant-0.23...OK
  15. SuccessfullyinstalledExtUtils-Constant-0.23(upgradedfrom0.17)
  16. ConfiguringSocket-2.018...OK
  17. BuildingandtestingSocket-2.018...OK
  18. SuccessfullyinstalledSocket-2.018(upgradedfrom1.78)
  19. BuildingandtestingIO-Socket-IP-0.37...OK
  20. SuccessfullyinstalledIO-Socket-IP-0.37
  21. BuildingandtestingNet-INET6Glue-0.603...OK
  22. SuccessfullyinstalledNet-INET6Glue-0.603
  23. 4distributionsinstalled

在产品中,需要将perl模块做成rpm来安装,搜索了一下找到一个比较方便的工具:cpan2rpm,在CPAN中可以下载。

下来的是tgz包,通过make安装,命令会报这样一个错:

Can't locate object method "interpolate" via package "Pod::Text" at ./cpan2rpm line 519.

原因是Pod::Text中interpolate这个方法已经迁移到Pod::Parser模块中,需要将代码中的Pod::Text替换为Pod::Parser,然后make、make install就OK了。

cpan2rpm安装好以后,就可以将Net::INET6Glue::INET_is_INET6模块以及它的依赖做成rpm了,步骤如下:

1.下载tgz(包括依赖),从上面通过CPAN安装的过程可以看出共有3个依赖,分别是:ExtUtils-Constant、Socket和IO-Socket-IP。以ExtUtils-Constant举例:

[plain]view plaincopy在CODE上查看代码片派生到我的代码片
  1. wgethttp://www.cpan.org/authors/id/N/NW/NWCLARK/ExtUtils-Constant-0.23.tar.gz
2.执行cpan2rpm[plain]view plaincopy在CODE上查看代码片派生到我的代码片
  1. cpan2rpm--no-sign./ExtUtils-Constant-0.23.tar.gz
结果显示如下:[plain]view plaincopy在CODE上查看代码片派生到我的代码片
  1. --cpan2rpm-Ver:2.028--
  2. Upgradecheck
  3. Fetch:HTTP
  4. --module:./ExtUtils-Constant-0.23.tar.gz--
  5. Metadataretrieval
  6. ...
  7. ...
  8. +umask022
  9. +cd/usr/src/redhat/BUILD
  10. +rm-rfExtUtils-Constant-0.23
  11. +exit0
  12. RPM:/usr/src/redhat/RPMS/noarch/perl-ExtUtils-Constant-0.23-1.noarch.rpm
  13. SRPM:/usr/src/redhat/SRPMS/perl-ExtUtils-Constant-0.23-1.src.rpm
  14. --Done--

可以看到生成出所需要的rpm和source rpm。

Done!

其实使用cpan2rpm不必先下载tgz包,只要将上面的文件名替换为模块名就可以。

另外,估计cpan2rpm可能已经很久没人维护了,在编译不同rpm时还遇到过下面的问题,一并将补丁发出来。

错误1:

[plain]view plaincopy
  1. get_meta():Notadirectoryat/usr/bin/cpan2rpmline396.
补丁:

[plain]view plaincopy
  1. diff-rucpan2rpm-2.028/cpan2rpmcpan2rpm-new/cpan2rpm
  2. ---cpan2rpm-2.028/cpan2rpm2005-06-1722:06:54.000000000-0700
  3. +++cpan2rpm-new/cpan2rpm2005-06-3009:35:49.000000000-0700
  4. @@-26,6+26,[email protected]@
  5. usestrict;
  6. usewarnings;
  7. +useFile::Basename;
  8. useGetopt::Long;
  9. useSys::Hostname;
  10. usePod::Text;
  11. @@-387,6+388,[email protected]@
  12. $info->{buildarch}="noarch"if$xs==0;
  13. }
  14. +if(not-d$info->{evaldir}){
  15. +$info->{evaldir}=dirname($info->{evaldir});
  16. +}
  17. chdir$info->{evaldir}||die"get_meta():$!";
  18. $_="$info->{evaldir}/Build.PL";

错误2:

[plain]view plaincopy
  1. /usr/lib/rpm/brp-compress:line8:cd:/var/tmp/perl-Crypt-Random-Source-0.10-root:Nosuchfileordirectory
补丁:

801行在destdir前面加上“--”

[plain]view plaincopy
  1. $info->{"make-install"}="--destdir=%{buildroot}"

www.bkjia.comtruehttp://www.bkjia.com/Linuxjc/1000688.htmlTechArticleCentOS 5下安装perl module以支持IPV6 在我们的产品中用到了LWP::UserAgent,用于在perl代码中进行http请求,测试发现在纯V6环境下会返回下面的错误...

相关文章

相关搜索: CentOS 5下 安装 perl module 支持 IP

帮客评论

视觉看点