Question

CPAN (The Comprehensive Perl Archive Network) 镜像源的配置文件为 MyConfig.pm（一般位于 ~/.cpan/CPAN/MyConfig.pm），可使用包管理脚本 cpan 进行修改。

首先需确保 MyConfig.pm 配置文件存在，在命令行中执行：

# 确保 MyConfig.pm 配置文件存在，如不存在则自动生成
PERL_MM_USE_DEFAULT=1 perl -MCPAN -e 'mkmyconfig'

# 不使用默认配置，手动确认各个配置选项
perl -MCPAN -e 'mkmyconfig'

在 CPAN Shell 中手动设置镜像

在命令行中执行 cpan 进入 cpan shell：

cpan shell -- CPAN exploration and modules installation
Enter 'h' for help.

# 列出当前的镜像设置
cpan[1]> o conf urllist

# 将本站镜像加入镜像列表首位
# 注：若已在列表中则可跳过本步直接退出，修改列表不会执行自动去重
cpan[2]> o conf urllist unshift https://mirrors.tuna.tsinghua.edu.cn/CPAN/

# 或将本站镜像加入镜像列表末尾
# 注：本命令和上面的命令执行一个即可，修改列表不会执行自动去重
cpan[3]> o conf urllist push https://mirrors.tuna.tsinghua.edu.cn/CPAN/

# 或清空镜像列表，仅保留本站
cpan[4]> o conf urllist https://mirrors.tuna.tsinghua.edu.cn/CPAN/

# 保存修改后的配置至 MyConfig.pm
cpan[5]> o conf commit

# 退出 cpan shell
cpan[6]> quit

在命令行中使用脚本设置

在命令行中执行：

# 若本站不在镜像列表中则将其加入列表首位
if ! (
    perl -MCPAN -e 'CPAN::HandleConfig->load();' \
        -e 'CPAN::HandleConfig->prettyprint("urllist")' |
    grep -qF 'https://mirrors.tuna.tsinghua.edu.cn/CPAN/'
); then
    perl -MCPAN -e 'CPAN::HandleConfig->load();' \
        -e 'CPAN::HandleConfig->edit("urllist", "unshift", "https://mirrors.tuna.tsinghua.edu.cn/CPAN/");' \
        -e 'CPAN::HandleConfig->commit()'
fi