Linux Admin 设置Perl
Perl 已经存在很长时间了。它最初被设计为一种用于解析文本文件的报告语言。随着越来越流行，Perl 增加了一个模块支持或 CPAN、sockets、线程和其他强大的脚本语言所需的功能。
Perl 相对于 PHP、Python 或 Ruby 的最大优势是：它以最少的麻烦完成工作。 Perl 的这种哲学并不总是意味着它以正确的方式完成工作。但是，对于 Linux 上的管理任务，Perl 被认为是脚本语言的首选。
Perl 相对于 Python 或 Ruby 的一些优势是-
强大的文本处理
Perl 使编写脚本变得又快又脏（通常，Perl 脚本比 Python 或 Ruby 中的等价脚本要短几十行）
Perl 可以做任何事情（几乎）
Perl 的一些缺点是-
语法可能令人困惑
Perl 中的编码风格可以是独一无二的，并且会使协作陷入困境
Perl 并不是真正的面向对象
通常，在使用 Perl 时，不会对标准化和最佳实践进行太多思考。
在决定使用 Perl、Python 还是 PHP 时；应该问以下问题-
此应用程序是否需要版本控制？
其他人是否需要修改代码？
其他人是否需要使用此应用程序？
此应用程序是否会在另一台机器或 CPU 架构上使用？
如果以上所有问题的答案都是"否"，Perl 是一个不错的选择，并且可能会加快最终结果的处理速度。
提到这一点，让我们配置 CentOS 服务器以使用最新版本的 Perl。
在安装 Perl 之前，我们需要了解对 Perl 的支持。正式地，Perl 仅作为最后两个稳定版本得到支持。因此，我们希望确保我们的开发环境与 CentOS 版本隔离。
隔离的原因是：如果有人向 CentOS 社区发布 Perl 工具，它很可能会被修改为在 CentOS 附带的 Perl 上工作。但是，我们也希望为开发目的安装最新版本。与 Python 一样，CentOS 提供的 Perl 专注于可靠性而非前沿。
让我们在 CentOS 7 上检查我们当前的 Perl 版本。
[root@CentOS]# perl-v
this is perl 5, version 16, subversion 3 (v5.16.3) built for x86_64-linux-thread-multi
我们目前运行的是 Perl 5.16.3、撰写本文时的最新版本是：
perl-5.24.0
我们肯定希望升级我们的版本，以便能够在我们的代码中使用最新的 Perl 模块。幸运的是，有一个很好的工具可以维护 Perl 环境并保持我们的 CentOS 版本的 Perl 隔离。它被称为
perlbrew。
让我们安装 Perl Brew。
[root@CentOS]# curl-L https://install.perlbrew.pl | bash
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
100 170 100 170 0 0 396 0--:--:----:--:----:--:-- 397
100 1247 100 1247 0 0 1929 0--:--:----:--:----:--:-- 1929
现在我们已经安装了 Perl Brew，让我们为最新版本的 Perl 创建一个环境。
首先，我们需要当前安装的 Perl 版本来引导 perlbrew 安装。因此，让我们从 CentOS 存储库中获取一些所需的 Perl 模块。
注意-如果可用，我们总是希望在 CentOS Perl 安装中使用 CentOS Perl 模块而不是 CPAN。
第 1 步-安装 CentOS Perl Make::Maker 模块。
[root@CentOS]# yum-y install perl-ExtUtils-MakeMaker.noarch
第 2 步-安装最新版本的 perl。
[root@CentOS build]# source ~/perl5/perlbrew/etc/bashrc
[root@CentOS build]# perlbrew install-n-j4--threads perl-5.24.1
我们为 Perl 安装选择的选项是-
n-无测试
j4-为安装例程并行执行 4 个线程（我们使用的是四核 CPU）
threads-为 Perl 启用线程支持
安装成功后，让我们切换到最新的 Perl 环境。
[root@CentOS]# ~/perl5/perlbrew/bin/perlbrew use perl-5.24.1
A sub-shell is launched with perl-5.24.1 as the activated perl. Run 'exit' to finish it.
[root@CentOS]# perl-v
this is perl 5, version 24, subversion 1 (v5.24.1) built for x86_64-linuxthread-multi
(with 1 registered patch, see perl-V for more detail)
Copyright 1987-2017, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the GNU General
public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on this system
using "man perl" or "perldoc perl". if you have access to the Internet, point your
browser at http://www.perl.org/, the Perl Home Page.
[root@CentOS]#
在我们的 perlbrew 环境上下文中运行的简单 perl 脚本打印 perl 版本-
[root@CentOS]# cat ./ver.pl
#!/usr/bin/perl
print $^V . "\n";
[root@CentOS]# perl ./ver.pl
v5.24.1
[root@CentOS]#
一旦安装了 perl，我们就可以使用 perl brew 的 cpanm 加载 cpan 模块-
[root@CentOS]# perl-brew install-cpanm
现在让我们使用
cpanm 安装程序在 perl brew 中使用我们当前的 Perl 版本 5.24.1 制作 LWP 模块。
第 1 步-切换到我们当前 Perl 版本的上下文。
[root@CentOS ~]# ~/perl5/perlbrew/bin/perlbrew use perl-5.24.1
使用 perl-5.24.1 作为激活的 perl 启动子 shell。运行"退出"以完成它。
第 2 步-安装 LWP 用户代理 Perl 模块。
[root@CentOS ~]# ~/perl5/perlbrew/bin/cpanm-i LWP::UserAgent
第 3 步-现在让我们使用新的 CPAN 模块测试我们的 Perl 环境。
[root@CentOS ~]# cat ./get_header.pl
#!/usr/bin/perl
use LWP;
my $browser = LWP::UserAgent->new();
my $response = $browser->get("http://www.slcc.edu/");
unless(!$response->is_success) {
print $response->header("Server");
}
[root@CentOS ~]# perl ./get_header.pl
Microsoft-IIS/8.5 [root@CentOS ~]#
给你！ Perl Brew 使隔离 perl 环境变得轻而易举，随着 Perl 的发展，可以将其视为最佳实践。
