一个简单的perl函数调用的例子

 

#!/usr/bin/perl

 

use warnings;

use strict;

 

sub a{

        my $arg1 = shift;     //接受入参

        my $arg2 = "Lynn";

 

        print "Hello $arg1, my name is $arg2./n";  

}

 

sub b{

        my $arg1 = "Buddy";

        my $arg2 = "Bad guy";

 

 & amp;nbsp;      &a($arg1);        //调用子例程a,向其传入参数$arg1

}

 

&b();    //执行子例程b

 

my $value = "world";

&a( $value);    //直接执行子例程a,传入参数$value