perl定义函数

#!/usr/bin/perl

#define function

sub Hello(){

print "Hello,world\n"

}

#calling function

Hello();

#define G() function

sub G(){

print "Hello ,G\n"

}

#calling G() function

G();

sub add_a_b(){

$c=$a+$b;

print "$c\n"

}

$a=5;

$b=6;

add_a_b();

#再perl中，如果函数调用后面跟着一个用括号括起来的列表，则在函数调用期间该列表将被自动分配给以@_命名的特殊变量