深入探讨 Python 与 Perl 的争论 - 我应该学习 Python 还是 Perl？

通常，当引入一种新的编程语言时，业界的一些天才头脑中就会引发一场争论，将这种语言与已经广泛传播的语言进行比较。 IT 行业中经常流传着一种议论，新产品经常在各个方面与现有同类产品进行比较，无论是功能、语法还是核心 CPU 和内存方面（包括 GC 时间等）。

此类案例的例子有很多，包括Java与C#、C++等之间的争论。其中一个引起广泛关注的案例是两种语言之间的争论，这两种语言在很短的时间内相继出现，即Python和Perl。

而 Python 最初是作为 ABC 语言的继承者而发明的，只是作为作者的“爱好”编程项目（这会吸引 Unix/C 黑客），并以他最大的明星Monty Python系列。

建议阅读： Linux 中的 Python 编程和脚本编写入门

Perl 大约在 2 年前就出现了，它是一种 Unix 脚本语言，旨在使报表处理更加容易。它是多种语言的组合，包括 C、awk、sed 和 shell 脚本。

值得注意的是，这些不同意图演变而来的语言正在不断地进行比较，这让我研究并找出其中的原因，其中一些重要的原因如下：

1. 两者都针对 Unix 操作系统，其中一种供黑客和其他人处理报告。
2. 两者都是面向对象的（Python 更重要）和解释性的，其中一种是强类型的并且在编码时清晰，即 Python，而另一种允许使用大括号来表示块的丑陋类型，即 Perl
3. 当我们说 Perl 有多种方法来完成一项任务而 Python 只专注于一种方法时，两者在原则上是相反的。

Python 与 Perl – 功能比较

让我们深入探讨这场争论，并尝试找出这两种语言之间的总体差异。另外，让我们尝试找出许多陈词滥调的真相来源，这些陈词滥调在业界经常听到，“Python 是带辅助轮的 Perl”或“Python 与 Perl 相似但不同” ”这样我们就可以尝试为这场永无休止的争论提供准确的解决方案。

1. Python 的简洁语法与 Perl 的复杂语法

在代码可读性方面，Python 比 Perl 具有巨大优势。即使多年后阅读代码，Python 的代码也比 Perl 的代码更容易理解。

通过缩进表示代码块和正确的结构，Python 的代码更加简洁。另一方面，Perl 在正则表达式方面借鉴了各种编程语言的语法，例如 C、shell 脚本，甚至 awk 和 sed 过滤器。

建议阅读： 用于日常 Linux 系统管理任务的 15 个有用的“sed”命令

除此之外，用 '{' 和 '}' 表示一段代码并在每行末尾添加不必要的 ';'，Perl 中的代码可能会变成如果你在几个月或几年后阅读它，就会遇到一个难以理解的问题，因为它允许丑陋的脚本。

2. Perl 的内置与 Python 的第 3 方正则表达式和操作系统操作支持

Perl 语言借用了 C 和其他 UNIX 命令的语法，如 sed、awk 等。因此，它具有强大的内置正则表达式支持，无需导入任何第三方模块。

此外，Perl 可以使用内置函数处理操作系统操作。另一方面，Python 有用于这两种操作的第三方库，即用于 regex 的 re 和用于 os 操作的 os、sys ，这些操作需要在进行此类操作之前要确保。

Perl 的正则表达式操作具有类似于 'sed' 的语法，这不仅使搜索操作变得容易，而且还可以比需要了解的 Python 轻松、快速地完成字符串上的替换、替换和其他操作并记住满足需要的功能。

示例：考虑一个在 Perl 和 Python 中搜索字符串中数字的程序。

Import re
str = ‘hello0909there’
result = re.findall(‘\d+’,str)
print result

$string =  ‘hello0909there’;
$string =~ m/(\d+)/;
print “$& \n”

您会看到 Perl 的语法非常简单，并且受到 sed 命令的启发，该命令利用了 Python 语法（导入第三方模块're'）。

3. Python 的高级面向对象编程 vs Perl 的单行程序

Python 令 Perl 黯然失色的一项功能是其先进的 OO 编程。 Python 具有广泛的面向对象编程支持，具有干净且一致的语法，而 Perl 中的对象 OOP 已经过时，使用包作为替代品用于课程。

建议阅读： Python Django Web 框架入门

try:
with open(“data.csv”) as f:
for line in f:
print line,
except Exception as e:
print "Can't open file - %s"%e

open(FILE,”%lt;inp.txt”) or die “Can’t open file”;
while(<FILE>) {
print “$_”; }