CPAN下载的PM能在windows activeperl上正常使用么

woodyzhm

如果不能，到哪里下载可在activeperl上使用的pm?

zhlong8

不需要你下载，直接在命令行用 cpan 这个命令就可以了，它会自动下载编译解决依赖。

比如你想安装 Moose 直接 C:\>cpan Moose

ppm 更高级一点 ActiveState 公司替你做了编译和 test 这一步安装速度更快，优先推荐用 ppm 它上没有的才需要用 cpan 安装。

C:\> ppm install Moose
C:\> ppm update Moose

mcshell

当你遇到这个源中没有的模块时候，可以去网上下载ppd。它是在win下编译好的。。不用make了

1. ppm xxx.ppd

复制代码

woodyzhm

zhlong8 发表于 2013-01-16 19:51
不需要你下载，直接在命令行用 cpan 这个命令就可以了，它会自动下载编译解决依赖。

比如你想安装 Moose ...

多谢指点，
我用cpan 下载安装Image:NG, 提示下面的错误，好像连不上服务器，这怎么办呢？
我是用代理联网的


c:\>cpan Image:NG
Set up gcc environment - 3.4.2 (mingw-special)
CPAN: Storable loaded ok (v2.16)
Going to read C:\Perl\cpan\Metadata
Warning: Found only 0 objects in C:\Perl\cpan\Metadata
CPAN: LWP::UserAgent loaded ok (v2.036)
CPAN: Time::HiRes loaded ok (v1.9707)
Fetching with LWP:
  http://ppm.activestate.com/CPAN/authors/01mailrc.txt.gz
LWP failed with code[500] message[Can't connect to ppm.activestate.com:80 (conne
ct: Unknown error)]
Fetching with LWP:
  http://cpan.perl.org/authors/01mailrc.txt.gz
LWP failed with code[500] message[Can't connect to cpan.perl.org:80 (connect: Unknown error)]

woodyzhm

完整的log file。
c:\>cpan Image:NG
Set up gcc environment - 3.4.2 (mingw-special)
CPAN: Storable loaded ok (v2.16)
Going to read C:\Perl\cpan\Metadata
Warning: Found only 0 objects in C:\Perl\cpan\Metadata
CPAN: LWP::UserAgent loaded ok (v2.036)
CPAN: Time::HiRes loaded ok (v1.9707)
Fetching with LWP:
  http://ppm.activestate.com/CPAN/authors/01mailrc.txt.gz
LWP failed with code[500] message[Can't connect to ppm.activestate.com:80 (conne
ct: Unknown error)]
Fetching with LWP:
  http://cpan.perl.org/authors/01mailrc.txt.gz
LWP failed with code[500] message[Can't connect to cpan.perl.org:80 (connect: Un
known error)]
Fetching with LWP:
  http://www.perl.org/CPAN/authors/01mailrc.txt.gz
LWP failed with code[500] message[Can't connect to www.perl.org:80 (connect: Unk
nown error)]
Fetching with LWP:
  ftp://ftp.perl.org/pub/CPAN/authors/01mailrc.txt.gz
LWP failed with code[500] message[LWP:rotocol::MyFTP: connect: Unknown error]
Fetching with Net::FTP:
  ftp://ftp.perl.org/pub/CPAN/authors/01mailrc.txt.gz
  Could not connect to host 'ftp.perl.org' with Net::FTP
Fetching with Net::FTP
  ftp://ftp.perl.org/pub/CPAN/authors/01mailrc.txt.gz.gz
  Could not connect to host 'ftp.perl.org' with Net::FTP
No external ftp command available

Please check, if the URLs I found in your configuration file
(http://ppm.activestate.com/CPAN, http://cpan.perl.org) are valid. The
urllist can be edited. E.g. with 'o conf urllist push ftp://myurl/'

Could not fetch authors/01mailrc.txt.gz
Fetching with LWP:
  http://ppm.activestate.com/CPAN/modules/02packages.details.txt.gz
LWP failed with code[500] message[Can't connect to ppm.activestate.com:80 (conne
ct: Unknown error)]
Fetching with LWP:
  http://cpan.perl.org/modules/02packages.details.txt.gz
LWP failed with code[500] message[Can't connect to cpan.perl.org:80 (connect: Un
known error)]
Fetching with LWP:
  http://www.perl.org/CPAN/modules/02packages.details.txt.gz
LWP failed with code[500] message[Can't connect to www.perl.org:80 (connect: Unk
nown error)]
Fetching with LWP:
  ftp://ftp.perl.org/pub/CPAN/modules/02packages.details.txt.gz
LWP failed with code[500] message[LWP:rotocol::MyFTP: connect: Unknown error]
Fetching with Net::FTP:
  ftp://ftp.perl.org/pub/CPAN/modules/02packages.details.txt.gz
  Could not connect to host 'ftp.perl.org' with Net::FTP
Fetching with Net::FTP
  ftp://ftp.perl.org/pub/CPAN/modules/02packages.details.txt.gz.gz
  Could not connect to host 'ftp.perl.org' with Net::FTP
No external ftp command available

Please check, if the URLs I found in your configuration file
(http://ppm.activestate.com/CPAN, http://cpan.perl.org) are valid. The
urllist can be edited. E.g. with 'o conf urllist push ftp://myurl/'

Could not fetch modules/02packages.details.txt.gz
Fetching with LWP:
  http://ppm.activestate.com/CPAN/modules/03modlist.data.gz
LWP failed with code[500] message[Can't connect to ppm.activestate.com:80 (conne
ct: Unknown error)]
Fetching with LWP:
  http://cpan.perl.org/modules/03modlist.data.gz
LWP failed with code[500] message[Can't connect to cpan.perl.org:80 (connect: Un
known error)]
Fetching with LWP:
  http://www.perl.org/CPAN/modules/03modlist.data.gz
LWP failed with code[500] message[Can't connect to www.perl.org:80 (connect: Unk
nown error)]
Fetching with LWP:
  ftp://ftp.perl.org/pub/CPAN/modules/03modlist.data.gz
LWP failed with code[500] message[LWP:rotocol::MyFTP: connect: Unknown error]
Fetching with Net::FTP:
  ftp://ftp.perl.org/pub/CPAN/modules/03modlist.data.gz
  Could not connect to host 'ftp.perl.org' with Net::FTP
Fetching with Net::FTP
  ftp://ftp.perl.org/pub/CPAN/modules/03modlist.data.gz.gz
  Could not connect to host 'ftp.perl.org' with Net::FTP
No external ftp command available

Please check, if the URLs I found in your configuration file
(http://ppm.activestate.com/CPAN, http://cpan.perl.org) are valid. The
urllist can be edited. E.g. with 'o conf urllist push ftp://myurl/'

Could not fetch modules/03modlist.data.gz
Going to write C:\Perl\cpan\Metadata
Warning: Cannot install Image:NG, don't know what it is.
Try the command

    i /Image:NG/

to find objects with matching identifiers.

woodyzhm

用PPM 安装，不成功，
大侠帮我看看。

c:\>ppm install Image:NG
Downloading ActiveState Package Repository packlist...failed 500 Can't connect t
o ppm4.activestate.com:80 (connect: Unknown error)
ppm install failed: Can't find any package that provide Image:NG

mcshell

用Image-Magick我觉得对你处理图片更好。

1. ppm http://www.bribes.org/perl/ppm/Image-Magick.ppd

复制代码

http://www.imagemagick.org/script/perl-magick.php
{:3_199:}

zhlong8

回复 4# woodyzhm


    代理需要些额外的设置，我没弄过你可以自己查看 cpan 的文档或者 google: cpan proxy。这里有刚搜出来的本版的一个帖子
http://bbs.chinaunix.net/thread-816900-1-1.html

woodyzhm

mcshell 发表于 2013-01-17 10:56
用Image-Magick我觉得对你处理图片更好。http://www.imagemagick.org/script/perl-magick.php

我改用Image-Magick做，
已知图片的height, width, 和 原始数据（类似 255 0 255 ...），
用这些数据怎么生成Png的图片文件？ 望指点

我这样写，生成的$png文件没数据。

                        my $image = Image::Magick->new;
                        for (my $h=0;$h<$height;$h++){
                                        for (my $w=0;$w<$width;$w++)
                                        {
                                                $image->SetPixel(x=>$w,y=>$h,color=>$$data[$height][$width]);
                                        }
                        }
                             open(IMAGE, ">$png");  
                             $image->Write("$png");
                              close(IMAGE);

mcshell

1. $image->Read(file=>\*IMAGE);

复制代码

回复 9# woodyzhm
具体请看官方说明。我觉得已经很详细了。