explicitly
1、q{didn't}=>q{didnot},
2、$($GID
3、unit=>['Trainingplatoon'],
4、力争，力求：
5、lastMETADATAif(has_end_tag($next_record));
6、建议在文件中标识出修改部分的起止位置。
7、不要把两句话放在一行，每行只能写一个语句。
8、$+$LAST_PAREN_MATCH
9、1字符串界定符
10、=$incumbent{$candidates[$i]{region}};
11、由小写字母、下划线组成。
12、my@fields=split$FIELD_SEPARATOR,$record;
13、努力，尽力，奋斗：
14、formy$dscn(@rgnl_strgs){
15、+$radial_velocity*$elapsed_time
16、#Creator:Phonix
17、my($terseness)=@_;
18、#mixnormalvariables
19、$@$EVEL_ERROR
20、if($line=~s{\A(\s*)--(.*)}{$1#$2}xms){
21、#CopyRight:Copyright©BrightOceanInter-Telecomm，Allrightsreserved.
22、1.1方式一
23、缩进采用四个空格，或一个TAB（1TAB设置成四个空格）。
24、$max_len=max($max_len,$len);
25、#Return:
26、+$orbital_velocity*($phase+$phase_shift)
27、#FileName:lucent_file_parser.pl
28、1使用usestrict
29、if($option{'count_all'}&&$title_of{$next_book}=~m/$target/xms){
30、$$$PID
explicitly
31、1文件命名
32、if($condition){
33、3.2多于两行
34、subgetMscName
35、例句:Hestrovetomakehimselfunderstood./他尽力让别人理解他的意思。
36、#ModifyReason:fixthebugof……
37、3子程序和变量
38、#Description:Thisistheproof-of-conceptcodeforthe
39、#ModifiedTime:2006-01-17
40、*($phase+$phase_shift)-$DRAG_COEFF
41、#ModifyList:
42、$|$OUTPUT_AUTOFLUSH
43、代码布局
44、DESC:
45、."-beans:sourceisJava\n"
46、$/$RS
47、$count++;
48、duty=>['Basictraining'],
49、$0$PROGRAM_NAME
50、push@metadata,get_metadata_for($next_record);
51、while($min<$max){
52、$has_found_bad_record=1;
53、5useCarp;#Formodules:使用标准模块
54、可靠性第一，可读性第二，效率第三。只有在极个别必须强调效率的部分，可以是可靠性第一，效率第二，可读性第三。
55、3布尔类型
56、Usage:$0
57、2关键字
58、改正一个错误的同时，可能会引起新的错误。因此，在修改bug前，首先考虑对其他程序的影响。修改后，应该对程序进行完整的测试，而不是只对修改部分进行测试。
59、斗争；对抗
60、需要用变量替换的字符串用双引号，否则用单引号。
explicitly
61、my$lngh=length$dscn;
62、nextDSCNif$lngh>$UPPR_LMT;
63、5代码块
64、add_step(\@steps,$steps[-1]
65、#theRazorteam(NTBugtraq,19-May-00).
66、OctoberNovemberDecember
67、print;
68、#Description:Thisfunctioncalculatethenewdatetime.
69、采用K&R风格。
70、useFile::patch;#insteadofsystem("mkdir");
71、my$spam_name='DrLawrenceMwalle';
72、#thekeyis
73、print_sep();
74、print$count*42;
75、2.1变量
76、#ModifyReason:addmysql&oracledbsupport
77、my$node;
78、useTime::Local#timemanipulations
79、数组类型的变量采用复数，hash类型的变量采用单数。要用undef显式释放变量空间。
80、formy$name(@names)
81、nextRECORDif$recordeq$EMPTY_STR;
82、my$price
83、boolean类型的变量，或返回boolean类型的值的函数，在命名时要反映其属性，必须用is或者has开头。
84、函数应该只有一个出口。
85、#whilethenegativevaledecreasethetime
86、避免使用Perl内部变量。使用“useEnglish;”装入Perl内部变量的符号名称。使用my来限定变量的作用域。下面是一些Perl内部变量名称的对应关系。
87、my$has_found_bad_record;
88、#addmysql&oracledbsupportbegin
89、useList::Utilqw(max);
90、禁止elsegoto和elsereturn。
explicitly
91、'duty',['Basictraining'],
92、my$default_terseness=$terseness;
93、."-o:dumpinoctal\n"
94、my$next_step=$steps[-1]
95、formy$event(@events){
96、#2.$deltaisthetimewhichshouldbeaddtothe$datetime.Apositivevalueincreasethetime
97、#desc:getconfiginfofromldapserver
98、print$line;
99、fix;
100、my%title_of;
101、#ModifyTime:2006-01-17
102、$predicted_val=$average
103、useDirHandle;#OOformof`readdir'
104、if($condition){$i++;}
105、my$next_node;
106、8语句结束符
107、3字符串
108、$>$EUID
109、usemodules;
110、#a+b,"ab"+c
111、lucent_file.p
112、不要把子程序或变量和其后的括号部分分开。
113、my$has_loading_finished;
114、数组或Hash的赋值采用垂直排列。
115、useFile::copy;#don'tusesystem("cpthisthat");
116、[n.]
117、$]$PERL_VERSION
118、while(my$line=<>){
119、$is_available{$next_book}=1;
120、2.4函数
explicitly
121、尽量使用标准库函数、公共函数和开发库中已有的函数和模块，使用FileHandle模块来处理文件的读写。尽量使用以下的标准Perl模块：
122、q{it's}=>q{itis},
123、push@comments,$2;
124、coerce($input,$INTEGER,$ROUND_ZERO);
125、my$pay_rate="$minimalformaximalwork";
126、格式为：
127、每个含有源代码的文件必须在文件开始有关于该文件的介绍性注释。其中列出文件名、创建者、创建日期、功能描述、版本信息、版权声明；如果对文件进行了修改，应该在文件头中说明修改人、修改日期、修改原因，并变更文件的版本信息，最新版本信息放到最前面。
128、push@unknowns,grep{!$_->handle($event)}@handlers;
129、#Revision:V1.0.0
130、#......
131、所有注释可用英文或中文书写，尽量使用英文注释。保持注释和代码的完全一致，修改程序时，必须修改相应的注释。注释的行数一般应在程序总行数的1/5到1/3。禁止出现错别字。注释应该语义明确，避免出现二义性。
132、print$count*$MOLYBDENUM_ATOMIC_NUMBER;
133、避免使用很多个参数的函数。
134、Hash变量的定义采用双箭头(=>)方式。
135、$)$EGID
136、useNet::Ping#unixping,checkifhostisonline
137、=$initial_velocity*$time+0.5*$acceleration*$time**2;
138、'rank','Recruit',
139、striving['straiviŋ]
140、q{must've}=>q{musthave},
141、printmap{$_->err_msg}@unknowns;
142、首先是正确，其次是优美。
143、$&$MATCH
144、使用括号，表达复杂表达式中的操作符的优先顺序。
145、6代码长度
146、$!$ERRNO
147、命名规则
148、nextCANDIDATEifopen_region($i);
149、在每个函数前必须写描述性注释。说明这个函数的功能、参数和函数的返回值。
150、尽量避免使用全局变量。
explicitly
151、my@fields=split$FIELD_SEPARATOR,$record;update_sales(\@fields);$count++;
152、(Use-fulloptionforfulldump)";
153、#********************************************************************
154、循环、分支不要超过五个层次。
155、$min=$try;
156、$predicted_val=$average+$predicted_change*$fudge_factor;
157、#andlater...
158、JanuaryFebruaryMarchAprilMayJuneJulyAugustSeptember
159、perl-cw-Mdiagnosticsfile.pl#checksyntaxwithwarningson
160、2标识符
161、JanuaryFebruaryMarch
162、#CreatedBy:Phonix
163、2函数返回
164、例句:tostriveforsuccess/力争成功
165、while(my$record=<$inventory_file>){
166、$mx_lngh=max($mx_lngh,$lngh);
167、$\$ORS
168、不是简单的:
169、*$elapsed_time+$orbital_velocity
170、'unit',['Trainingplatoon'],
171、useFile::stat;#readable:$st=stat($file),$st->mode
172、对于多于两行，要采用如下格式：
173、subis_valid;
174、my$displacement=$initial_velocity*$time+0.5*$acceleration*$time**2;
175、把关键字和其他的内容分开，关键字if,while,for,else…后面必须接一个空格。if和while语句必须使用’{‘和’}’括起语句体，即使只有一行代码。建议不使用单行的if语句。
176、文件名称统一用英文字母（大小写）、数字和下划线的组合，长度一般不超过20个字符，文件命名体现功能的含义，正式发布版本不能加入作者信息。PerlScripts文件的扩展名必须是".pl"，PerlModule文件的扩展名必须是".pm"。
177、2.2包和类
178、AprilMayJune
179、useFile::Find;#don'tusesystem("find.-name...")...
180、#functionname:get_ldap
explicitly
181、my%is_available;
182、my%option;
183、循环应该只有一个出口，避免多个出口。
184、对于两行的字符串，要用“.”进行连接。
185、formy$result(@results){
186、反抗，抗争：
187、#*******************************************************************
188、#Parameters:
189、formy$word(anagrams_of(lc$name))
190、用于对特定程序语句进行说明，建议采取在语句行末尾说明的方法，同时注释换行后也要对齐。格式为：
191、."-full:produceafulldump\n"
192、3避免使用goto
193、在函数中要进行显式的return返回。
194、my@names=(
195、=$coupon_paid*$exp_rate+($face_val+$coupon_paid)*$exp_rate**2;
196、usestrict;#helpsyoutolocatesyntaxerrorsoruncertainties.
197、#FunctionName:calc_time($datetime,$delta)
198、subroutine定义
199、formy$name(@names){
200、useconstagivesyou`carp'and`croak'
201、useFile::Basename;#don'tinventyourownwheelofthis.
202、,$elapsed_time);
203、my@months=qw(
204、nextDESCif($len>$UPPER_LIM);
205、globalvariable定义
206、使用-cw选项检查Perl程序的语法。
207、使用字符常量，而不要直接用数值。
208、#withenvironmentvariables.
209、#Revision:V1.1.1
210、my@unknowns;
explicitly
211、5语句注释
212、subget_msc_name
213、."Options:\n"
214、$count_for{$next_book}++;
215、$'$POSTMATCH
216、my%expansion_of=(
217、my@names=
218、1文件头部注释
219、my$len=length($desc);
220、subset_terseness{
221、main定义
222、+$predicted_change*$fudge_factor;
223、标识符缩写时要保留单词的开始字母，不是辅音字母的简写。
224、while(is_metadata_available_for($next_record)){
225、10非末端表达式
226、例句:Shelikestostrivewithmeinargument./她总爱和我争论。
227、-$DRAG_COEFF*$altitude);
228、#addmysql&oracledbsupportend
229、chomp$record;
230、#quotes.@a="ewords("[+]",0,$_);
231、my$pay_rate='$minimalformaximalwork';
232、DSCN:
233、useText::Tabs#un/expandtabsintext
234、my@events;
235、#*********************************************************
236、METADATA:
237、编码、测试、注释，是程序员的三项基本工作，它们是同等重要的。
238、else{
239、$?$CHILD_ERROR
240、4程序块注释
explicitly
241、4哈希变量
242、$usage=<<"END_USAGE";
243、my@candidates=get_candidates($marker);
244、$`$PREMATCH
245、subhas_end_tag;
246、[废语]争夺；与…匹敌
247、@_@ARG
248、serial=>undef,
249、my$displacement
250、#ModifyTime:2006-01-16
251、$usage="Usage:$0
252、update_sales(\@fields);
253、编程惯例
254、-full:produceafulldump
255、$usage="Usage:$0
256、."(Use-fulloptionforfulldump)\n";
257、useText::ParseWords;#Parsetextintotokens,understandsembedded
258、'name','
259、二元运算符（算术运算符,赋值运算符等）的两边都要接空格，低级操作符（如：+-）两边各有两个空格，高级操作符（如：*%）两边各有一个空格。
260、nt;#Perl5.004_04,defineconstants
261、useEnv;#insteadof$ENV{'HOME'};Shortenstheusage,butdonot
262、submax
263、useGetopt::Long;#--posixcommandlineoptionhandling
264、例句:Iamstrivingtoexplainexplicitly./我力争做出详尽的说明。
265、$<$UID
266、避免使用goto语句（只有在从多重循环的内部跳出时才可以使用）。除非能够特别有效的增加程序的效率并且不影响程序良好结构的特殊情况。
267、*$altitude);
268、例句:tostriveagainstdifficulty/同困难做斗争
269、'Matthew',#Disambiguator
270、'Damian',#Primarykey
explicitly
271、#*********************************************************************
272、q{must've}=>q{musthave},q{I'll}=>q{Iwill},
273、11功能块顺序
274、Usually,itisnotnecessaryforyourcodetoexplicitlymodifythisstateinformation.通常，您的代码不必显式修改此状态信息。
275、'Conway',#Generalclassorcategory
276、#Modifier:Phonix
277、if($value[$try]<$target){
278、Readonlymy$MOLYBDENUM_ATOMIC_NUMBER=>42;
279、$max=$try;
280、$candidates[$i]
281、4数组和哈希
282、my%count_for;
283、print"$word\n";
284、括号对{}对必须位于同一列，独占一行，并且和{}之外的语句行对齐
285、3函数注释
286、q{we're}=>q{weare},
287、采用语法模板来定义标识符的名字，命名必须有一定的实际意义，由英文字母组成，中间可以根据语义的连续性，使用下划线连接。
288、return;#Explicitlyreturnnothingmeaningful
289、每个函数体的语句行不能超过100行（不包括注释，一个分号算一行）。每行长度不要超过78个字符，超过该长度时，必须考虑换行，从低优先级的操作符处分割长表达式,在赋值符前断开长的语句。
290、push(@steps,$steps[-1]+$radial_velocity
291、my$price=$coupon_paid*$exp_rate+(($face_val+$coupon_val)*$exp_rate**2);
292、程序块注释用于说明程序中的关键算法、使用某种技巧的代码以及修改、测试、阅读时必须加以注意的代码。
293、4代码缩排
294、建议括号、插入语可以采用两种方式之一，但是在一个程序里选定那种方式之后，那么要至始至终保持一致。
295、在尽可能小的作用域内定义和使用变量。
296、$_$ARG
297、重复使用的、完成相对独立功能的算法、代码，应该抽象为公共模块。
298、$usage="Usage:$0
299、$i++;
300、7操作符
explicitly
301、lucent_file_parser.pl
302、$.$INPUT_LINE_NUMBER
303、%default_service_record=(
304、my$try=($max-$min)/2;
305、useReadonly;
306、-o:dumpinoctal
307、调用时要使用圆括号，不管是否有参数。
308、END_USAGE
309、useCwd;#platformindependentcwd()
310、JulyAugustSeptember
311、q{I'll}=>q{Iwill},
312、fix();
313、1.2方式二
314、包、类的命名采用大小写混合、首字母大写的方法。
315、所有PerlScripts文件中必须在开始使用“usestrict;”，进行严格的语法检查，便于查找错误。
316、在每个语句后边要填加分号。
317、#Windowsdenial-of-sericeattackdescribedby
318、IO::Controller
319、#CreateTime:2006-01-09
320、chomp$line;
321、在每个PerlScripts中，每个功能块之间必须有一个空行。主程序为main()函数，功能块出现顺序如下：
322、9代码排列
323、#1.$datetimeisthebasetime,takingtheformatof'yyyy-mm-ddhh:mm:ss'
324、1调用语法
325、-$DRAG_COEFF*$altitude
326、斗争，竞争：
327、strive的变形
328、#========================================
329、循环、分支等语句后，即使只有一行代码时，也要使用{}将其括起来。
330、my@handlers;
explicitly
331、for(@results){
332、useEnglish;#givessymbolicnames,like$!==>$ERRNO
333、#注释内容
334、formy$desc(@orig_strs){
335、在运算符'->'两边不要使用空格，在一元操作符和操作数两边不要使用空格。
336、#Revision:V1.1.0
337、##########################################
338、my$spam_name="$title$first_name$surname";
339、2避免使用内部变量名称
340、#CreatedTime:2006-01-09
341、无法证明你的程序没有错误。因此，在新编写完一段程序后，应该测试通过后再继续编码。
342、useSys::Hostname;#don'tinventyourownwheel
343、[vi.]
344、useSocket;#sockethandling
345、push(@steps,$steps[-1]
346、if(is_valid($next_record)&&!$has_loading_finished){
347、subis_metadata_available_for;
348、采用中间变量代替长表达式。
349、print$result;
350、Options:
351、2文件中注释
352、strive[straiv]
353、add_step(\@steps,$next_step,$elapsed_time);
354、formy$i(0..$#candidates){
355、chomp$record;nextRECORDif$recordeq$EMPTY_STR;
356、3.1两行
357、name=>'
358、4语法检查（辅助工具）
359、努力，奋斗
360、useinteger;#ifyoudon'tneedfloatingpointmath，itwillspeedPerlup.
explicitly
361、数值和表达式
362、q{it's}=>q{itis},q{we're}=>q{weare},q{didn't}=>q{didnot},
363、-beans:sourceisJava
364、可以使用括号来表示运算的先后顺序。
365、局部变量必须由小写字母和下划线组成，常量名必须由大写字母和下划线组成。由多个单词组成的名字里，使用下划线"_"把多个单词分开。全局变量以’g_’开头，其余部分的命名规则和局部变量相同。每个全局变量必须有注释说明其作用。
366、CANDIDATE:
367、2.3标识符缩写
368、例句:tostriveagainstfate/同命运抗争
369、#Anewtimestringisreturned,alsotakingtheformatof'yyyy-mm-ddhh:mm:ss'
370、formy$word(anagrams_of(lc$name)){
371、'serial',undef,
372、rank=>'Recruit',
373、ItisnotnecessarytobealwaysspeakingtoGodoralwayshearingfromGod,tohavecommunionwithHim;与上帝交流不必总是向他倾述，或总是倾听他的话语；