HTML CSS JAVASCRIPT PYTHON PYTHON2 JAVA C C++ C# SQL Excel Linux AI BOOTSTRAP PHP 教程库 参考手册 技术文章 测验 练习 HOWTO FAQ
❮ 上一节 下一节 ❯

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 的支持。官方仅支持最后两个稳定版本。因此，我们希望确保我们的开发环境与 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 . "
";


[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。运行"exit"以完成它。

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

❮ 上一节 下一节 ❯