Python version 3.7版本
00.命令行交互
| Perl | Python |
| perl -e <Perl代码> #Unix/Linux/Windows/DOS | 直接命令行输入Python回车，就可以编码运行代码 |
0.变量
区别：Python变量前没有区分是普通变量还是列表（数组）的符号，Perl有区分,$bianliang @shuzu %hash
相同：命名要求一致，字母数字下划线
1.print输出
二者通用格式：print（“字符串”）；
Perl：
print（“字符串1”."字符串2".$bianliang(任何变量都可以)."\n"）； #无自带换行符
Python：
print（“字符串1”+“字符串2”+字符变量1+str（非字符变量2））； #a="map" 字符变量 a=1非字符变量 #自带换行符
对于列表和字典，print（块1，块2，块3） #可以用逗号隔开一起输出，输出结果为各模块之间是空格
2.注释
二者相同都用#
3.Perl的数组 <=> Python的列表
| Perl数组(@arr) | Python列表 | |
| 定义 | @shuzu=(1,5,'trek','amil'); @shuzu0=(3..18); #3到18，步长为1 #创建数值数组 |
list1=[1,5,'trek','amil'] numbers=list(range(1,6)) #创建数值列表，默认步长为1，数值为[1,6）左闭右开表，即1,2,3,4,5 even_numbers=list(range(2,11,2)) #创建数值列表，步长为2，数值为，2,4,6,8,10 函数range()几乎能够创建任何需要的数字集，eg:5**2=25 平方计算等 |
| 字符串互转数组（列表） | #转字符串为数组 $var_names = "google,taobao,runoob,weibo"; @names = split(',', $var_names); #转数组为字符串 $string2 = join( ',', @names ); |
str= list('trek') #['t','r','e','k'] #转字符串为列表
|
| 索引 | 从0开始，索引-1指定为列表最后一个元素，eg: $shuzu[-1] $max_index=$#shuzu; #数组最后一个元素的索引值 |
从0开始，索引-1指定为列表最后一个元素，eg:list1[-1]
|
| 排序 | @shuzu = sort(@shuzu); #数组排序是根据 ASCII 数字值来排序。所以我们在对数组进 @shuzu1= sort {lc($a) cmp lc($b)} @shuzu #将每个元素转换为小写后再按字母顺排序， 调整$a与$b位置为倒序排序 @shuzu1= sort {$a <=>$b} @shuzu #对数字从小到大排序，调整$a与$b位置为从大到 小排序 @shuzu = reverse(@shuzu); #逆序，不改变原列表 |
sorted(list1) #按字母顺序临时性排序，不改变原列表排序 #必须用这种格式，list1.sorted()行不通 sorted(list1，reverse=True) #按字母倒序临时性排序，不改变原列表排序 #必须用这种格式，list1.sorted()行不通
list1.reverse() #逆序，永久性排序 list1.sort() #按字母顺序永久性排序，无法恢复到原来的排序 #必须用这种格式，sort（list1）行不通 list1.sort(reverse=True) #按字母倒序永久性排序，无法恢复到原来的排序 |
| 计算 | $size_arr=@shuzu; #计算数组元素个数 |
len(list1) #计算列表元素个数 min(numbers) #求最小值 max(numbers) #求最大值 sum(numbers) #求和 |
| 输出 | print($shuzu[0]); | print(list1[0]); print(list1[0],list[1]) #结果为：1 5 |
| 末尾添加元素 | push(@shuzu,"字符串"or变量or数组or1..100) | list1.append（'tool'） |
| 合并 | @numbers = (1,3,(4,5,6)); @arr0=(@shuzu,@shuzu0); |
|
| 末尾删除元素 | $num=pop(@shuzu) #弹出数组最后一个元素，并返回它 | name=list1.pop() #删除列表末尾元素，并让你能接着使用此元素 |
| 删除索引位置元素 | pop不能； splice (@array, 2, 1) #索引2处，替换一个为空，即删除索引2处元素，后边元素自动向前补充 delete $array[2] #删除数组第3个元素，当index大于数组长度时，函数delete对数组没影响； |
name=list1.pop(2)#删除列表任意索引位置的元素，并让你能接着使用此元素; list1[2:3]='' #将索引2处元素替换为空，后边远元素前移 del list1[2] #删除列表第3个元素 |
| 删除指定元素 |
|
name=list1.remove(‘tool’) #删除列表中的某个指定元素（如果有重复元素， 只删除索引位置靠前的那个），并返回它可以使用 |
| 开头删除元素 | $num=shift(@shuzu) #弹出数组第一个值，并返回它。数组的索引值也依次减一 | 没有对应的类似函数 |
| 开头添加元素 | unshift(@shuzu,"字符串"or变量or数组or1..100) #将元素放在数组前面，并返回新数组的元素个数 |
没有对应的类似函数 |
| 索引位置添加元素 | splice (@array, 1, 0, "Hello") #在1索引位置插入Hello，其他元素一次后移 | list1.insert（0,'tool'）#列表索引0处插入元素，原0,1等都往后移动一位 str1 = ["a","b","c"] ；str1[2:2] = "f" #插入新的索引2，原索引2依次往后推 print("插入新的索引2结果 :",str1) #结果：插入新的索引2结果 : ['a', 'b', 'f', 'd', 'e'] |
| 修改元素 | $shuzu[1]="8" ;#单个位置替换（修改）元素 | list1[1]="8" ； #单个位置替换（修改）元素 |
| 修改元素（切片|拼接） | splice(@shuzu0, 5, 5, 21..25); #从数组索引值为5（即第6个元素）开始（包含替换 的起始位置）替换5个元素，为21..25； #1个或多个替换（修改）元素
@retval = splice (@array, skipelements, length, @newlist); 拼接函数可以向列表（数组）中间插入元素、删除子列表或替换子列表。 参数skipelements是拼接前跳过的元素数目，length是被替换的元素数，newlist是将要拼接进来的列表。 当newlist的长度大于length时，后面的元素自动后移，反之则向前缩进。 当length=0时，就相当于向列表中插入元素，而形如语句 splice (@array, -1, 0, "Hello"); 即向数组末尾添加元素。 当newlist为空时，就相当于删除子列表，这时，如果length为空，就从第skipelements个元素后全部 删除。所以删除最后一个元素则为：splice (@array, -1);这种情况下，返回值为被删去的元素列表。 splice（@array，0,0） #删除数组所有元素 |
#替换索引2到最后一个索引为'd', 'e' str1 = ["a","b","c"]；str1[2:] = list("de") print("替换索引>=2结果 :",str1) #结果：替换索引>=2结果 : ['a', 'b', 'd', 'e'] #替换索引2-3（索引2-3替换为"g","h","i"，原索引4到最后依次往后推） str1=['a', 'b', 'f', 'd', 'e']；str1[2:4] = ["g","h","i"] print(str1) #结果：['a', 'b', "g","h","i", 'e'] #删除列表所有元素 |
| 切片 |
切片，处理列表部分元素，如下 @shuzu2=@shuzu[2,4,6,7,-3,-1] #数组索引需要指定有效的索引值，可以是正数后负数， 每个索引值使用逗号隔开。 @shuzu3=@shuzu[2..-1] #如果是连续的索引，可以使用 .. 来表示指定范围。#左闭右闭 |
切片，处理列表部分元素，如下 list2=list1[:] #等价于list1 #可用于复制列表，因为list2=list1 不是复制，只是同 list2=list1[0:-3] #左闭右开，切取列表第1位，到倒数第4位 list2=list1[1:] #从列表第2位到最后 list2=list1[:-1] #从列表第1位开始到倒数第2位 |
| 元组 |
不可变的列表=》“元组”“tuple”，元组比列表更简单的数据结构，如下 tuple1=(250,50) #tuple1[0]=400 不允许，会报错 tuple1=(400,50) #给元组变量赋值是合法的，不会报错，之前元素被覆盖 |
|
| 唯一元素数组（列表） |
每个元素都唯一的列表=》集合 set(list1),不改变原列表 |
4.for循环
Perl：
for( $a = 0; $a < 10; $a = $a + 1 ){
print "a 的值为: $a\n";
}
Python：
for list_v in list1: #遍历列表
print(list_v);
#break #退出while循环，不再运行循环中余下代码
#continue #终断单次循环，进入下一个循环
print("thank you,everyone\n");
列表解析
squares=[value**2 for value in range(1,11)] #[1,4,9,16,25,36,49,64,81,100]
for key1,value1 in alien.items(): #遍历字典所有键值对
print("\nKey: "+ key1)
print(Value: " + value1)
for key1 in alien.keys(): #遍历字典中的所有键
#for key1 in alien: #遍历字典中的所有键，遍历字典时，默认遍历所有的键
print(key1.title())
for key1 in sorted(alien.keys()): #按顺序遍历字典中的所有键
print(key1.title())
for value1 in alien.values(): #遍历字典中所有值，没有删除重复，都列出
print(value1.title())
for value1 in set（alien.values()）: #遍历字典中所有值，删除重复，值唯一，set（集合）类似于列表
print(value1.title())
注意：for能遍历列表，但不能修改列表，否则Python难以跟踪其中元素；
5.if条件判断
注意：Perl和Python都是只要一个在if整体模块中，只要有一个if 或者elsif|elif判断是真，下边的条件判断就会跳过去，不在运行；
Perl：
if(条件判断){
}
if(条件判断){
}else{ #可省略
}
if(条件判断){
}elsif（条件判断）{
}else{ #可省略
}
条件判断常用：
True #布尔值
not True #布尔值
! True #布尔值
False #布尔值
数字 0、字符串 '0' 、 "" 、空数组list () 和 undef 为 false
> ; >= ; < ; <= ; ==；!=；<=>比较，返回0或者 1或者 -1； #数值比较大小 == #判断是否相等； ！= #判断是否不相等；
bt ; be ; lt ; le ; eq ; ne ; cmp比较，返回0或者 1或者 -1； #字符串比较大小
=~ #匹配
&& #且
|| #或者
Python：
if 条件判断：
执行语句1
执行语句2
if 条件判断：
执行语句
else： #可省略
执行语句
if 条件判断：
执行语句
elif 条件判断：
执行语句
else： #可省略
执行语句
条件判断常用：
bianliang1=True #直接布尔值
bianliang2=False #直接布尔值
列表为空，即list1=[],则 if list1 ： 判断为False
== #判断是否相等； #区分字母大小 #适用于字符串、数值
!= #判断是否不等； #区分字母大小 #适用于字符串、数值
car=“Audi”; car.lower()=="audi" #都转化为小写，再比较；
< ; <=; >; >=; ==；!= ; #比较数值大小
4 % 3 == 1 #求模运算符%，两个数相除返回余数
and #且
or #或
list1=['1','buht','4']; "buht" in list1 #True #判断某元素是否在列表中
list1=['1','buht','4']; "8" not in list1 #True #判断某元素是否在列表中
6.Perl的哈希hash<=> Python字典
Perl：
%data= ('google'=>'google.com', 'runoob'=>'runoob.com', 'taobao'=>'taobao.com');
print "\$data{'google'} = $data{'google'}\n";
Python：
alien_0={'color':'green','points':5} #定义字典，方式1
alien_0={ #定义字典，方式2，多了个最后的逗号，大括号位置必须这样放，注意缩进格式固定
'color':'green',
'points':5，
}
print("alien_0['color'] = "+alien_0['color']);
print("alien_0['points'] = "+alien_0['points']);
print(alien_0['color'],alien_0['points']) #结果为：green 5
一个键对应一个值，值可以是Python中任何对象（eg:数字、字符串、列表、字典）；所有的键之间必须唯一，所有的值可不唯一；
alien_0['x_position']=0 #添加键值对 #键值对的添加顺序跟添加顺序不同，因为字典关注的是键值关联关系
alien_0={} #创建空字典
alien_0['color']='yellow' #修改字典中的值，由green变yellow
del alien_0['color'] #删除键值对
#嵌套
#嵌套-字典列表（列表中嵌套字典）------------------------------>经常需要在列表中包含大量的字典，而其中每个字典都包含特定对象的众多信息
alien_0={'color':'green','points':5}
alien_1={'color':'yellow','points':7}
alien_2={'color':'red','points':8}
aliens=[alien_0,alien_1,alien_3]
for alien in aliens:
print(alien)
#嵌套-列表字典（字典中嵌套列表）------------------------------->每当需要在字典中将一个键关联到多个值时，都可以在字典中嵌套一个列表【即，字典是键值一对一，值用列表，就相当于键值一对多】
pizza={ #一个物体，对应多个方面的信息
‘crust’：‘thick’， #披萨皮厚薄
‘toppings’:['mushrooms','extra cheese'], #披萨配料
}
#嵌套-字典字典（字典中嵌套字典） -------------------------------->内部嵌套的众多字典，一般结构都相同，因为，这样使得后续的处理（eg:for循环）简单，否则会很复杂
users ={
'A':{
'first':'albert',
'last':'einstein',
'loacation':'paris',
},
'B':{
'first':'marie',
'last':'curie'
'location':'princeton',
},
}
7.指引用户输入、获取用户输入
Perl：
获取用户命令行输入:
$input=<STDIN>
@ARGV#命令行输入的东西，按空格分开，一次存入数组
输出：
print STDOUT << "EOF"; #EOF 是一个标记的名字，自定义标记名称
Python：
message = input（"Tell me something,and I will repeat it back to you: "） #将获取内容存储为字符串；#冒号后面，包含一个空格，可将提示与用户输入分开，让用户清楚的知道其输入始于何处
print(message)
message = int（message） #如果message获取的内容是数值，则可以用int（）转为数值
8.while循环
Perl：
Python：
while 条件判断：
执行语句
#break #退出while循环，不再运行循环中余下代码
#continue #终断单次循环，进入下一个循环
while能遍历列表同时修改列表；for能遍历列表，但不能修改列表，否则Python难以跟踪其中元素；
while能将列表和字典结合起来使用，可收集、存储并组织大量输入，供以后查阅和显示；
9.python函数