Linux 管理员 - 为 CentOS Linux 设置 Perl

Perl已经存在很长时间了。它最初被设计为用于解析文本文件的报告语言。随着越来越受欢迎，Perl 添加了模块支持或 CPAN、套接字、线程以及强大的脚本语言所需的其他功能。

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）

  • 线程- 启用 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]#

简单的 perl 脚本打印在我们的 perlbrew 环境上下文中运行的 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

启动子 shell，并使用 perl-5.24.1 作为激活的 perl。运行“退出”来完成它。

[root@CentOS ~]#

步骤 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 的最佳实践。