在Perl中,可以使用关键字sub
来定义子程序。具体语法如下:
sub subroutine_name {
# 子程序的代码
}
以下是一个简单的Perl子程序示例:
sub greet {
my $name = shift;
print "Hello, $name!\n";
}
greet("Alice");
在上面的示例中,greet
是一个子程序,它接受一个参数 $name
,并输出一个问候语。然后通过调用 greet("Alice")
来执行该子程序。