Perl 学习手札之三： General syntax

最新推荐文章于 2019-02-11 16:20:37 发布

weixin_34056162

最新推荐文章于 2019-02-11 16:20:37 发布

阅读量108

点赞数

原文链接：http://www.cnblogs.com/hanleilei/archive/2011/12/05/2276280.html

版权

Perl 学习手札之三： General syntax

一般性的语法：

#!/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