python一些基础且常用的脚本整理(持续补充)

1.获取目录中的文件名（或者修改当前目录中的文件名）

# -*- coding: utf-8 -*-
import os
# 列出当前目录下所有的文件
files = os.listdir(".")       

for filename in files:
	print filename

# -*- coding: utf-8 -*-
import os

# 列出当前目录下所有的文件
files = os.listdir(".")       

for filename in files:
    portion = os.path.splitext(filename)   #返回的文件名
    # 如果后缀是.txt
print portion[0]
print '============'
print portion[1]
#portion[0]为文件名，portion[1]为文件名后缀
if portion[1] == ".rmvb":  
# 重新组合文件名和后缀名   
	newname = portion[0] + ".txt"
#os.rename()方法为重命名，os.rename(旧，新)	
	os.rename(filename,newname)

2. python中简单的map的使用

BD_AQmap = {
		"BD_COMMON_RR8503_C031A":['AQ_COMMON_512C_CS8563_4E5W','AQ_COMMON_8503_CS8563_4E3W'],
		"BD_COMMON_RR8503_C031B":['AQ_COMMON_512C_OB6220_8E5W'],
		"BD_COMMON_RR8503_C706A":['AQ_COMMON_512C_RDA3118_8E8W'],
		"BD_COMMON_RR8503_C801A":['AQ_COMMON_512C_RDA3118_8E8W'],
		"BD_COMMON_RR8503_C816A":['AQ_COMMON_512C_RDA3118_8E8W'],
		"BD_COMMON_RR52C_801A":['AQ_COMMON_512C_RDA3118_8E8W'],
		"BD_COMMON_RR52C_816A":['AQ_COMMON_512C_RDA3118_8E8W'],
		"BD_COMMON_RR52C_R241A":[]
     	   }
for i in BD_AQmap.keys():
#keys()函数返回一个列表的所有键  例如：i等于BD_COMMON_RR8503_C031A 则返回['AQ_COMMON_512C_CS8563_4E5W','AQ_COMMON_8503_CS8563_4E3W']所有键。
	if i == BD_NAME:
		list1 = BD_AQmap[i]
		for j in range(len(list1)):
			str1 = list1[j]
			print>>f,str("\tconfig CUSDEF_")+str1+str("\n\t\tbool \"")+str1+"\"\n\t\thelp\n\t\t\tdefine "+str1+str("\n")

3. python 带参数

BD_NAME = sys.argv[1]     默认为第一个参数  

sys.argv[0]   参数前面的即为脚本名字

4. 简单的perl脚本

	@Customers = ();   #perl脚本中的数组	
	my $str1 = "# This file is auto generated by ../CUS_FILE/gen_radisson_customer.pl, don't modify~~";
	my $str2 = 0;      #声明一个新的变量需要前面加 my
	open(DATA,"<../BUILD_RECORD/BUILD_NOW.h") or die "BUILD_NOW.h文件无法打开，$!";
	while(<DATA>)      #读打开的文件
	{
		$str2 = $_;  #读到的数据默认在$_中存放 
		@Customers = split /_/,$str2; #正则表达式 字符串的分割，分割后返回一个数组。
		$str2 = @Customers[-1];   #@Customers[-1]为分割后数组的最后一项                                      }
     system("python ../CUS_FILE/AQkconfig.py $str2 -C ../CUS_FILE");

4. perl脚本将多个字串压入数组中

@Customer = ();
$str1 = "1111111";
$str2 = "2222222";
$str3 = "3333333";
push(@Customer,$str1.$str2.$str3); #按括号中的顺序压入数组中