从框架开始
Perl有很多表达方式，我们可以选择一种自己熟悉、容易理解的方式来写Perl的程序。例如，你是一个经验丰富的C程序员，那么你可以选择以C的风格来写Perl程序。下面是一个小小的样板框架
#!/usr/bin/perl -w
use strict;
# 程序开始的第一行语句，调用main函数
main();
# 定义main函数
sub main
{
…
}
在这个框架下面，你几乎可以容易就开始你的Perl开发了。如果需要处理命令行参数，就可以稍微的扩展一下这个框架。
#!/usr/bin/perl -w
use strict;
use Getopt::Std;
main();
my $configfile;
sub ProcessOptions
{
my $VERSION = '1.0.0';
my $USAGE = "pp.pl [-v | -c configfile]\n";
my $opts={};
die $USAGE unless( getopts("c:v", $opts) );
die $VERSION if ($opts->{'v'});
$configfile=$opts->{'c'} ? $opts->{'c'} : 'config.xml' ;
}
sub main
{
ProcessOptions();
print $configfile;
…
}
实际上，剩余的工作和以往的工作差不多了，编写一个一个的函数，并实现你的业务逻辑。对于你这样一个聪明的程序员来说，学会Perl是一个很容易的事情。
更多内容请看PCdog.com--电脑入门教程专题
