15、Perl编程：子程序、函数与正则表达式详解

Perl编程：子程序、函数与正则表达式详解

1. 子程序与函数基础

在编程中，子程序是一段有名称的代码，它能将程序划分为不同的组织单元，还能对数据进行计算和操作，并可能返回数据。子程序定义的基本格式为：

sub name BLOCK

若之前已定义子程序，可直接通过名称调用；若定义在程序靠后位置，可使用 name() 调用；也可使用前向定义告知Perl该名称为子程序名，常规表示法是 name() 。

以下是一个将秒转换为小时、分钟和秒的子程序示例：

#!/usr/bin/perl
# seconds2.pl
use warnings;
use strict;

my ($hours, $minutes, $seconds) = secs2hms(3723);
print "3723 seconds is $hours hours, $minutes minutes and $seconds seconds";
print "\n";

sub secs2hms {
    my ($h,$m);
    my $seconds = shift;    # defaults to shifting @_
    $h = int($seconds/(60*60));
    $seconds %= 60*60;
    $m = int($seconds/60);
    $seconds %= 60;  
    return($h,$m,$secon