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