即:
my @name = (
‘Damian’,
‘Matthew’
);
for my $name (@names) {
formy $word ( anagrams_of(lc $name) ) {
print“$wor\n”;
}
}
例如:
formy $result (@results) {
print_sep();
print$result;
}
while($min < $max) {
my$try = ($max - $min) / 2;
if($value[$try] < $target) {
$max= $try;
}
Else {
$min= $try;
}
}
即:
my@candiates = get_candidates($marker);
CANDIDATE:
formy $i (0..$#candidates) {
nextCANDIATE if open_region($i);
$candidates[$i]
=$incumbent{ $candidates[$i]{region} };
}
不要对内置函数和“名誉”内置函数使用不必要的小括号。
即:
while(my $record = <$results_file>) {
chomp$record;
my($name, $votes) = split “\t”, $record;
print‘Votes for ’,
substr($name,0, 10), # 为强加优先级所以需要小括号
“:$votes (verified)\n”;
}
例如:
$candidates[$i]= $incumbent{ $candidates[$i]{ get_region() } };
例如:
my $displacement
=$initial_velocity * $time + 0.5 * $acceleration * $time**2;
例如:
while (my $line = <>) {
chomp$line;
if( $line =~ s{\A (\s*) – (.*)}{$1#$2}xms ) {
push@comments, $2;
}
Print$line;
}
例如:
my @dwarves = (
‘Happy’,
‘Sleepy’,
‘Sneezy’
);
因为印刷文件、旧式VGA显示设备、展示软件和应用光学没有解除这些限制,以大于80列的宽度作为代码的格式安排并不合理。
“紧贴的”else看起来像这样:
} else {
正确的:
}
else{
例如:
$name =standardize_name($name);
$age =time - $birth_date;
$status =‘active’;
例如:
push @steps, $steps[-1]
+$radial_velocity * $elapsed_time
+$orbital_velocity * ($phase + $phase_shift)
-$DRAG_COEFF * $altitude
;
例如:
my $next_step = $steps[-1]
+$radial_velocity * $elapsed_time
+$orbital_velocity * ($phase + $phase_shift)
-$DRAG_COEEF * $altitue
;
add_step ( \@steps, $next_step,$elapsed_time );
一定要在最低可能优先级的运算符之处断开冗长表达式。
例如:
push @steps, $steps[-1]
+$radial_velocity * $elapsed_time
+$orbital_velocity
*($phase + $phase_shift)
-$DRAG_COEFF * $altitude
;
例如:
$predicted_val{$current_data_set}[$next_iteration]
=$average + $predicted_change * $fudge_factor;
例如:
my $name = defined $customer{name} ?$customer{name}
: ‘Sir or Madam’
;
例如:
print (
‘Processing’,
Scalar(@items),
‘items at ’,
time,
“\n”
);
Perl有可用的格式化工具:perltidy。
网址:http://perltidy.sourceforge.net
分享到:
相关推荐
官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装
perl-parent-0.225-244.el7.noarch perl-HTTP-Tiny-0.033-3.el7.noarch perl-podlators-2.5.1-3.el7.noarch perl-Pod-Perldoc-3.20-4.el7.noarch 1:perl-Pod-Escapes-1.04-286.el7.noarch perl-Text-...
perl-MailTools-1.53-1.noarch.rpm
perl-WWW-Curl4.17版本rpm包
Digest-Perl-MD5
linux 离线安装perl-IPC-Cmd
perl-PerlIO-via-QuotedPrint-0.08-396.module_el8.4.0+646+45e06e4a.noarch.rpm官方离线安装包,亲测可用
perl-DBI-1.52-2.el5.i386.rpm
perl-TimeDate-1.1301-1.noarch.rpm
刚刚下载的strawberry-perl-5.32.1.1-64bit 用于64位系统Perl 希望对你有用
RHEL 7.1安装MySQL 5.6的依赖包:perl-Data-Dumper-2.145-3.el7.x86_64.rpm ------------------------------------------------------------------------------------
perl-DBD-MySQL-4.013-3.el6.x86_64.rpm
官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装
官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装
官方离线安装包,亲测可用。使用rpm -ivh [rpm完整包名] 进行安装
strawberry-perl-5.32.1.1-64bit.msi离线安装包(官方),可避免从官网下载速度慢的问题。 windows环境的perl安装包,不用去官网下载了,测试好用。 strawberry-perl-5.32.1.1-64bit.msi离线安装包(官方),可避免...
perl-mingw32-0.1-x86
Perl最佳实践,很经典、很难得的一本书,O‘Reilly出版公司的又一畅销书。Perl最佳实践的目的是协助你编写出更好的Perl程序,书的内容涵盖编码技巧的众多方面,比如部署、名称选择、程序分解、接口设计与实现、模块...
Perl最佳实践中文版,并带有各章节目录。