一般性的语法：
#!/usr/bin/perl
use strict;
use warnings;
main(@ARGV);
sub main
{
message("This is the template.pl exercise file from Perl 5 Essential Training.");
}
sub message
{
my $m = shift or return;
print("$m\n");
}
sub error
{
my $e = shift || 'unkown error';
print("$0: $e\n");
exit 0;
}
1. write space in perl are: new line, space charactor andtab.
write space可以放在任意位置， 解释器会自动忽略write space的作用。
2. semicolon：
作为一行语句的结束判断符， 不需要加在大括号的后面；
3. comment:
#!/usr/bin/perl
# template.pl by Bill Weinman <http://bw.org/contact/>
# Copyright (c) 2010 The BearHeart Group, LLC
#
use strict;
use warnings;
main(@ARGV);
sub main
{
my $n = shift ||5;
my $r = factorial($n);
message("$n factorial is $r");
}
#factorial(n)
#return the product of all integers up to and including n
# computed recursively
sub factorial{
my $n = shift or return 0; #return 0 if no n
if($n>1){ #only compute for n>1
return $n * factorial($n-1); #recursion
}else{
return 1; #return 1 for n =1
}
}
sub message
{
my $m = shift or return;
print("$m\n");
}
sub error
{
my $e = shift || 'unkown error';
print("$0: $e\n");
exit 0;
}
我们添加了一个子函数叫做factorial, 并且对main函数进行了修正， 可以看到， 注释在此时的作用： 提示说明子函数的功能；
另： 还有其他的注释方式， 我们在这里暂时不涉及 ，如__END__来对所有的文件结尾部分进行注释， 和=begin开始到=end结束中间的代码块都是会被注释掉。
4. General syntax. 概述整个程序的各部分： shabang，use statement， subroutine