Python 很酷，尤其对 C/C++ 程序员来说是这样，然而 Perl 却不是

WHY？！

看了以下例子你就明白:

例子1：读取整个文件

perl

my $text = do { local( @ARGV, $/ ) = $file ; <> } ;
我看了半天是没看懂啥意思，ARGV在这里是干嘛的，来看看我找的其他例子
local( *FH ) ;
open( FH, $file ) or die "Problem\n"
my $text = do { local( $/ ) ; } ;
另外一个
my $holdTerminator = $/;
undef $/;
my $buf = ;
$/ = $holdTerminator;
我该说什么了，perl你不尴尬嘛

python

fileContents = file("filename").read()

例子2：定义一个func函数，返回int值，第四个参数默认值为0

C++

int func(int parm1, int parm2, int parm3, int parm4 = 0);

perl

sub func
{
my $parm1 = shift;
my $parm2 = shift;
my $parm3 = shift;
die "Usage: func(parm1, parm2, parm3, parm4 = 0)"
unless defined($parm3);
my $parm4 = shift || 0;
...
}
看着是不是怪怪的，即使你会用perl。用如此笨拙的代码来实现这么简单的东西。die用来处理参数，
perl不担心你是否没有传入参数或者传了10个以上的参数。perl中函数中的变量默认是全局的，需要用my设置为局部变量。
要知道大部分c/c++ 程序猿可不习惯这个

python

def func(parm1, parm2, parm3, parm4 = 0):
...
python会自己处理参数个数，并且设置参数默认值，而且函数里默认的值是局部变量哦

例子3：打印当前的进程名，并跟随一个换行符

C++

cout < < argv[0] << ‘\n’;

Perl

print "$0\n";
看着挺顺眼的是不，$0是进程的名字。或许你会尝试用$ARGV[0]代替$[0]，要知道C++里我是能用ARGV[0]表示进程名的，但是结果却不是你要的
perl中ARGV仅仅包含要处理的参数，而不包括进程名（译者说，实际上shell一般默认$0也是进程名的

Python

print sys.argv[0]

#好吧，让你比较困惑的是还要加一个sys

例子4：文件迭代，代开一个in.txt文件，对每行进行迭代操作

C++

ifstream infile("in.txt");
const int MAX_LINE_LEN = 256;
char line[MAX_LINE_LEN];
while(infile.getline(line, MAX_LINE_LEN))
{
... do something with line
}
//要创建一个buffer来存放每一行

Perl

open(INFILE, "in.txt") || die 'Couldn't open "in.txt"';
while()
{
... do something with $_
}
open看起来挺好的。。加了个die代码之后变得丑了

Python

infile = open("in.txt")
for line in infile:
... do something with line
好简洁吧

例子5：检查字符串的开头是否以'H'开始，假设这个字符串是从文件迭代中获得的

C++

if(line[0] == 'H')
{
...

Perl

if(substr($_, 0, 1) eq 'H')
{
...
perl中没有字符串操作符，你要调用substr函数，而且等于是eq而不是==

Python

if line[0] == 'H':
...
c++程序猿更习惯这个吧
或者

if line.startswith('H'):

例子6：将一个列表传入函数中，使其能够在函数中修改它，而不是得到列表的拷贝

C++

void addItem(vector& theList)

{

  theList.push_back("xyz");

}

 

vector aList;

aList.push_back("abc");

addItem(aList);

这是通过C++中的引用传值进行的

Perl

sub addItem
{
  my $listRef = shift;

  push(@$listRef, 'xyz');
}

my @aList = ('abc');
addItem(\@aList);
这里用到了很多Perl特有的特点，用\表示alist是通过引用传值的等等。其实比较复杂

python

def addItem(theList):
  theList.append('xyz')

aList = ['abc']
addItem(aList)
python中一切是通过引用传递的

还有以下例子：

• Array and string length
• Print a list that belongs to a hash
• Trim whitespace from a string
• Classes
• Inheritance
• Magic
• Exceptions
• Assert
• Code Maintenance

来看看各路大神怎么推崇Python的吧

• "Perl? Ha, ha, ha. Try Python" O'Reilly ad.
• Bruce Eckel talks about Python当你发现Python的高效时，你会觉得我为什么要把生命中的其他时间浪费在其他语言上
• Why Hate Perl 为神马讨厌Perl
• Why I Promote Python
• 来看看Eric Raymond的意见Eric Raymond's "Why Python?"
• 原文在此：here

感谢 freetstar 投稿，关于 freetstar：

Twitter：http://twitter.com/freetstar
博客：http://www.freetstar.com/
关注和奉献Tianjin Linux User Group的建设,关注开源社区,Linux爱好者,python初学者,希望成为一名geek,爱好交流