perl编程规范

最新推荐文章于 2022-05-15 23:17:26 发布

iteye_2022

最新推荐文章于 2022-05-15 23:17:26 发布

阅读量245

点赞数

1命名规则

1.1文件命名

文件名称统一用英文字母（大小写）、数字和下划线的组合，长度一般不超过20个字符，文件命名体现功能的含义，正式发布版本不能加入作者信息。PerlScripts文件的扩展名必须是".pl"，PerlModule文件的扩展名必须是".pm"。

正确：

lucent_file_parser.pl

不是：

lucent_file.p

1.2标识符

采用语法模板来定义标识符的名字，命名必须有一定的实际意义，由英文字母组成，中间可以根据语义的连续性，使用下划线连接。

1.2.1变量

局部变量必须由小写字母和下划线组成，常量名必须由大写字母和下划线组成。由多个单词组成的名字里，使用下划线"_"把多个单词分开。全局变量以’g_’开头，其余部分的命名规则和局部变量相同。每个全局变量必须有注释说明其作用。

正确：

my$next_node;

不是：

my$node;

1.2.2包和类

包、类的命名采用大小写混合、首字母大写的方法。

正确：

IO::Controller

1.2.3标识符缩写

标识符缩写时要保留单词的开始字母，不是辅音字母的简写。

正确：

useList::Utilqw(max);

DESC:

formy$desc(@orig_strs){

my$len=length($desc);

nextDESCif($len>$UPPER_LIM);

$max_len=max($max_len,$len);

}

不是：

useList::Utilqw(max);

DSCN:

formy$dscn(@rgnl_strgs){

my$lngh=length$dscn;

nextDSCNif$lngh>$UPPR_LMT;

$mx_lngh=max($mx_lngh,$lngh);

}

1.2.4函数

由小写字母、下划线组成。

正确：

submax

{

……

}

subget_msc_name

{

……

}

不是：

subgetMscName

{

……

}

1.3布尔类型

boolean类型的变量，或返回boolean类型的值的函数，在命名时要反映其属性，必须用is或者has开头。

正确：

subis_valid;

subis_metadata_available_for;

subhas_end_tag;

my$has_loading_finished;

my$has_found_bad_record;

#andlater...

if(is_valid($next_record)&&!$has_loading_finished){

METADATA:

while(is_metadata_available_for($next_record)){

push@metadata,get_metadata_for($next_record);

lastMETADATAif(has_end_tag($next_record));

}

else{

$has_found_bad_record=1;

}

1.4数组和哈希

数组类型的变量采用复数，hash类型的变量采用单数。要用undef显式释放变量空间。

正确：

my%option;

my%title_of;

my%count_for;

my%is_available;

#andlater...

if($option{'count_all'}&&$title_of{$next_book}=~m/$target/xms){

$count_for{$next_book}++;

$is_available{$next_book}=1;

}

my@events;

my@handlers;

my@unknowns;

#andlater...

formy$event(@events){

push@unknowns,grep{!$_->handle($event)}@handlers;

}

printmap{$_->err_msg}@unknowns;

2注释

所有注释可用英文或中文书写，尽量使用英文注释。保持注释和代码的完全一致，修改程序时，必须修改相应的注释。注释的行数一般应在程序总行数的1/5到1/3。禁止出现错别字。注释应该语义明确，避免出现二义性。

2.1文件头部注释

格式为：

#*********************************************************

#FileName:lucent_file_parser.pl

#Creator:Phonix<phonix@gmail.com.cn>

#CreateTime:2006-01-09

#Description:Thisistheproof-of-conceptcodeforthe

#Windowsdenial-of-sericeattackdescribedby

#theRazorteam(NTBugtraq,19-May-00).

#Revision:V1.0.0

#ModifyList:

#Revision:V1.1.1

#Modifier:Phonix

#ModifyTime:2006-01-17

#ModifyReason:fixthebugof……

#Revision:V1.1.0

#Modifier:Phonix

#ModifyTime:2006-01-16

#ModifyReason:addmysql&oracledbsupport

#*********************************************************

不是简单的:

#========================================

#CreatedBy:Phonix

#CreatedTime:2006-01-09

#ModifiedTime:2006-01-17

#========================================

2.2文件中注释

建议在文件中标识出修改部分的起止位置。

正确：

#addmysql&oracledbsupportbegin

……

#addmysql&oracledbsupportend

2.3函数注释

在每个函数前必须写描述性注释。说明这个函数的功能、参数和函数的返回值。

格式为：

#*******************************************************************

#FunctionName:calc_time($datetime,$delta)

#Description:Thisfunctioncalculatethenewdatetime.

#Parameters:

#1.$datetimeisthebasetime,takingtheformatof'yyyy-mm-ddhh:mm:ss'

#2.$deltaisthetimewhichshouldbeaddtothe$datetime.Apositivevalueincreasethetime

#whilethenegativevaledecreasethetime

#Return:

#Anewtimestringisreturned,alsotakingtheformatof'yyyy-mm-ddhh:mm:ss'

#*********************************************************************

不是简单的:

##########################################

#functionname:get_ldap

#desc:getconfiginfofromldapserver

##########################################

2.4程序块注释

程序块注释用于说明程序中的关键算法、使用某种技巧的代码以及修改、测试、阅读时必须加以注意的代码。

格式为：

#*********************************************************************

#注释内容

#......

#********************************************************************

2.5语句注释

用于对特定程序语句进行说明，建议采取在语句行末尾说明的方法，同时注释换行后也要对齐。格式为：

my@names=(

'Damian',#Primarykey

#thekeyis

'Matthew',#Disambiguator

'Conway',#Generalclassorcategory

);

3代码布局

3.1括号

建议括号、插入语可以采用两种方式之一，但是在一个程序里选定那种方式之后，那么要至始至终保持一致。

3.1.1方式一

采用K&R风格。

格式为：

my@names=(

'Damian',#Primarykey

'Matthew',#Disambiguator

'Conway',#Generalclassorcategory

);

formy$name(@names){

formy$word(anagrams_of(lc$name)){

print"$word\n";

}

3.1.2方式二

括号对{}对必须位于同一列，独占一行，并且和{}之外的语句行对齐

my@names=

(

'Damian',#Primarykey

'Matthew',#Disambiguator

'Conway',#Generalclassorcategory

);

formy$name(@names)

{

formy$word(anagrams_of(lc$name))

{

print"$word\n";

}

3.2关键字

把关键字和其他的内容分开，关键字if,while,for,else…后面必须接一个空格。if和while语句必须使用’{‘和’}’括起语句体，即使只有一行代码。建议不使用单行的if语句。

正确：

formy$result(@results){

print_sep();

print$result;

}

while($min<$max){

my$try=($max-$min)/2;

if($value[$try]<$target){

$max=$try;

}

else{

$min=$try;

}

if($condition){

$i++;

}

不是：

for(@results){

print_sep();

print;

}

while($min<$max){

my$try=($max-$min)/2;

if($value[$try]<$target){

$max=$try;

}

else{

$min=$try;

}

if($condition){$i++;}

3.3子程序和变量

不要把子程序或变量和其后的括号部分分开。

正确：

my@candidates=get_candidates($marker);

CANDIDATE:

formy$i(0..$#candidates){

nextCANDIDATEifopen_region($i);

$candidates[$i]

=$incumbent{$candidates[$i]{region}};

}

不是：

my@candidates=get_candidates($marker);

CANDIDATE:

formy$i(0..$#candidates){

nextCANDIDATEifopen_region($i);

$candidates[$i]

=$incumbent{$candidates[$i]{region}};

}

3.4代码缩排

缩进采用四个空格，或一个TAB（1TAB设置成四个空格）。

3.5代码块

不要把两句话放在一行，每行只能写一个语句。

正确：

while(my$record=<$inventory_file>){

chomp$record;

nextRECORDif$recordeq$EMPTY_STR;

my@fields=split$FIELD_SEPARATOR,$record;

update_sales(\@fields);

$count++;

}

不是：

while(my$record=<$inventory_file>){

chomp$record;nextRECORDif$recordeq$EMPTY_STR;

my@fields=split$FIELD_SEPARATOR,$record;update_sales(\@fields);$count++;

}

3.6代码长度

每个函数体的语句行不能超过100行（不包括注释，一个分号算一行）。每行长度不要超过78个字符，超过该长度时，必须考虑换行，从低优先级的操作符处分割长表达式,在赋值符前断开长的语句。

正确：

push(@steps,$steps[-1]

+$radial_velocity*$elapsed_time

+$orbital_velocity*($phase+$phase_shift)

-$DRAG_COEFF*$altitude);

$predicted_val=$average+$predicted_change*$fudge_factor;

不是：

push(@steps,$steps[-1]+$radial_velocity

*$elapsed_time+$orbital_velocity

*($phase+$phase_shift)-$DRAG_COEFF

*$altitude);

$predicted_val=$average

+$predicted_change*$fudge_factor;

3.7操作符

二元运算符（算术运算符,赋值运算符等）的两边都要接空格，低级操作符（如：+-）两边各有两个空格，高级操作符（如：*%）两边各有一个空格。

在运算符'->'两边不要使用空格，在一元操作符和操作数两边不要使用空格。

可以使用括号来表示运算的先后顺序。

正确：

my$displacement

=$initial_velocity*$time+0.5*$acceleration*$time**2;

my$price

=$coupon_paid*$exp_rate+($face_val+$coupon_paid)*$exp_rate**2;

不是：

my$displacement=$initial_velocity*$time+0.5*$acceleration*$time**2;

my$price=$coupon_paid*$exp_rate+(($face_val+$coupon_val)*$exp_rate**2);

3.8语句结束符

在每个语句后边要填加分号。

正确：

while(my$line=<>){

chomp$line;

if($line=~s{\A(\s*)--(.*)}{$1#$2}xms){

push@comments,$2;

}

print$line;

}

3.9代码排列

数组或Hash的赋值采用垂直排列。

正确：

my@months=qw(

JanuaryFebruaryMarch

AprilMayJune

JulyAugustSeptember

OctoberNovemberDecember

);

my%expansion_of=(

q{it's}=>q{itis},

q{we're}=>q{weare},

q{didn't}=>q{didnot},

q{must've}=>q{musthave},

q{I'll}=>q{Iwill},

);

不是：

my@months=qw(

JanuaryFebruaryMarchAprilMayJuneJulyAugustSeptember

OctoberNovemberDecember

);

my%expansion_of=(

q{it's}=>q{itis},q{we're}=>q{weare},q{didn't}=>q{didnot},

q{must've}=>q{musthave},q{I'll}=>q{Iwill},

);

3.10非末端表达式

采用中间变量代替长表达式。

正确：

my$next_step=$steps[-1]

+$radial_velocity*$elapsed_time

+$orbital_velocity*($phase+$phase_shift)

-$DRAG_COEFF*$altitude

;

add_step(\@steps,$next_step,$elapsed_time);

不是:

add_step(\@steps,$steps[-1]

+$radial_velocity*$elapsed_time

+$orbital_velocity*($phase+$phase_shift)

-$DRAG_COEFF*$altitude

,$elapsed_time);

3.11功能块顺序

在每个PerlScripts中，每个功能块之间必须有一个空行。主程序为main()函数，功能块出现顺序如下：

usemodules;

globalvariable定义

main定义

subroutine定义

4数值和表达式

4.1字符串界定符

需要用变量替换的字符串用双引号，否则用单引号。

正确：

my$spam_name="$title$first_name$surname";

my$pay_rate="$minimalformaximalwork";

my$spam_name='DrLawrenceMwalle';

my$pay_rate='$minimalformaximalwork';

4.2常量

使用字符常量，而不要直接用数值。

正确：

useReadonly;

Readonlymy$MOLYBDENUM_ATOMIC_NUMBER=>42;

#andlater...

print$count*$MOLYBDENUM_ATOMIC_NUMBER;

不是：

print$count*42;

4.3字符串

4.3.1两行

对于两行的字符串，要用“.”进行连接。

正确：

$usage="Usage:$0<file>[-full]\n"

."(Use-fulloptionforfulldump)\n";

不是：

$usage="Usage:$0<file>[-full]

(Use-fulloptionforfulldump)";

4.3.2多于两行

对于多于两行，要采用如下格式：

正确：

$usage=<<"END_USAGE";

Usage:$0<file>[-full][-o][-beans]

Options:

-full:produceafulldump

-o:dumpinoctal

-beans:sourceisJava

END_USAGE

不是:

$usage="Usage:$0<file>[-full][-o][-beans]\n"

."Options:\n"

."-full:produceafulldump\n"

."-o:dumpinoctal\n"

."-beans:sourceisJava\n"

;

4.4哈希变量

Hash变量的定义采用双箭头(=>)方式。

正确：

%default_service_record=(

name=>'<unknown>',

rank=>'Recruit',

serial=>undef,

unit=>['Trainingplatoon'],

duty=>['Basictraining'],

);

不是：

%default_service_record=(

'name','<unknown>',

'rank','Recruit',

'serial',undef,

'unit',['Trainingplatoon'],

'duty',['Basictraining'],

);

5函数

5.1调用语法

调用时要使用圆括号，不管是否有参数。

正确：

fix();

coerce($input,$INTEGER,$ROUND_ZERO);

不是:

fix;

5.2函数返回

在函数中要进行显式的return返回。

正确：

subset_terseness{

my($terseness)=@_;

my$default_terseness=$terseness;

return;#Explicitlyreturnnothingmeaningful

}

不是:

subset_terseness{

my($terseness)=@_;

my$default_terseness=$terseness;

}

6编程惯例

6.1使用usestrict

所有PerlScripts文件中必须在开始使用“usestrict;”，进行严格的语法检查，便于查找错误。

6.2避免使用内部变量名称

避免使用Perl内部变量。使用“useEnglish;”装入Perl内部变量的符号名称。使用my来限定变量的作用域。下面是一些Perl内部变量名称的对应关系。

$_$ARG

@_@ARG

$!$ERRNO

$?$CHILD_ERROR

$$$PID

$0$PROGRAM_NAME

$.$INPUT_LINE_NUMBER

$|$OUTPUT_AUTOFLUSH

$@$EVEL_ERROR

$&$MATCH

$`$PREMATCH

$'$POSTMATCH

$+$LAST_PAREN_MATCH

$/$RS

$\$ORS

$<$UID

$>$EUID

$($GID

$)$EGID

$]$PERL_VERSION

$?$CHILD_ERROR

6.3避免使用goto

避免使用goto语句（只有在从多重循环的内部跳出时才可以使用）。除非能够特别有效的增加程序的效率并且不影响程序良好结构的特殊情况。

6.4语法检查（辅助工具）

使用-cw选项检查Perl程序的语法。

正确：

perl-cw-Mdiagnosticsfile.pl#checksyntaxwithwarningson

nt;#Perl5.004_04,defineconstants

useEnv;#insteadof$ENV{'HOME'};Shortenstheusage,butdonot

#mixnormalvariables

#withenvironmentvariables.

6.5useCarp;#Formodules:使用标准模块

尽量使用标准库函数、公共函数和开发库中已有的函数和模块，使用FileHandle模块来处理文件的读写。尽量使用以下的标准Perl模块：

usestrict;#helpsyoutolocatesyntaxerrorsoruncertainties.

useinteger;#ifyoudon'tneedfloatingpointmath，itwillspeedPerlup.

useconstagivesyou`carp'and`croak'

useEnglish;#givessymbolicnames,like$!==>$ERRNO

useGetopt::Long;#--posixcommandlineoptionhandling

useCwd;#platformindependentcwd()

useFile::Basename;#don'tinventyourownwheelofthis.

useFile::Find;#don'tusesystem("find.-name...")...

useFile::copy;#don'tusesystem("cpthisthat");

useFile::patch;#insteadofsystem("mkdir");

useFile::stat;#readable:$st=stat($file),$st->mode

useDirHandle;#OOformof`readdir'

useText::Tabs#un/expandtabsintext

useText::ParseWords;#Parsetextintotokens,understandsembedded

#quotes.@a="ewords("[+]",0,$_);

#a+b,"ab"+c

useSocket;#sockethandling

useSys::Hostname;#don'tinventyourownwheel

useNet::Ping#unixping,checkifhostisonline

useTime::Local#timemanipulations

6.6其他

1、编码、测试、注释，是程序员的三项基本工作，它们是同等重要的。

2、可靠性第一，可读性第二，效率第三。只有在极个别必须强调效率的部分，可以是可靠性第一，效率第二，可读性第三。

3、首先是正确，其次是优美。

4、无法证明你的程序没有错误。因此，在新编写完一段程序后，应该测试通过后再继续编码。

5、改正一个错误的同时，可能会引起新的错误。因此，在修改bug前，首先考虑对其他程序的影响。修改后，应该对程序进行完整的测试，而不是只对修改部分进行测试。

6、避免使用很多个参数的函数。

7、函数应该只有一个出口。

8、循环应该只有一个出口，避免多个出口。

9、尽量避免使用全局变量。

10、在尽可能小的作用域内定义和使用变量。

11、使用括号，表达复杂表达式中的操作符的优先顺序。

12、循环、分支不要超过五个层次。

13、循环、分支等语句后，即使只有一行代码时，也要使用{}将其括起来。

14、禁止elsegoto和elsereturn。

15、重复使用的、完成相对独立功能的算法、代码，应该抽象为公共模块。

iteye_2022

关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
perl编程规范

1命名规则1.1文件命名文件名称统一用英文字母（大小写）、数字和下划线的组合，长度一般不超过20个字符，文件命名体现功能的含义，正式发布版本不能加入作者信息。PerlScripts文件的扩展名必须是".pl"，PerlModule文件的扩展名必须是".pm"。正确：lucent_file_parser.pl不是：lucent_file.p1.2标识符采用语法模板...
复制链接

扫一扫