• 1. 问题
• 2. 手工下载模块
• 3. 安装模块到本地目录
• 4. 使用模块

1. 问题

在工作站内网, 安装perl模块会有两个问题:

1. 没有网络, 需要手工下载模块.
2. 没有perl目录权限, 需要把模块安装到本地.

2. 手工下载模块

1. 在外网进入cpan网站: https://metacpan.org/.
2. 在搜索框输入要下载的模块, 比如Devel::Size.
3. 在搜索出来的列表中点击想要的模块链接, 进入模块主页.
4. 主页中部是模块的名称和用法等说明.
5. 主页左侧->TOOLS->Download(73.6K), 点击可下载该模块.
6. 在下载目录找到Devel-Size-0.84.tar.gz.

3. 安装模块到本地目录

1. 把下载的Devel-Size-0.84.tar.gz 传送到内网.
2. 传送到内网.
3. 解压解包文件: tar -zxvf Devel-Size-0.84.tar.gz, 得到目录Devel-Size-0.84.
4. 进入目录Devel-Size-0.84, 目录中有个MakeFile.PL文件, 它是用来生成安装makefile文件的.
5. 执行: perl Makefile.PL PREFIX=~/perl_lib, 会在当前目录生成Makefile文件, 用来安装模块到指定的本地目录~/perl_lib.
6. 执行: make; 是什么?
7. 执行: make test; 测试状态
8. 执行: make install; 安装模块到本地目录, 在~/perl_lib目录下生成lib64和share两个目录.

4. 使用模块

1. 在脚本中写: use lib '~/perl_lib/lib64/perl5'; 因为Devel/Size.pm放在这个目录了, 写上后, @INC中就会包含这个目录.
2. 在脚本中写: use Devel::Size qw(size total_size);
3. 使用size和total_size函数: my $size0 = size(%data0);