50、Perl编程：深入示例与函数详解

Perl编程：深入示例与函数详解

1. 长示例代码分析

在实际的编程中，我们常常会遇到需要将特定格式的日期转换为Perl自1900年以来的秒数格式的情况。下面是一段实现此功能的代码：

375: # convert this format back into Perl’s seconds-since-1900 format. 376: # the Time::Local module and the timelocal func do this. 377: sub date2time { 378: my $date = shift; 379: if ($date =~ /^\*\*\*/) { # error formatting, sort to top 380: return 0; 381: } else { 382: my ($m,$d,$y) = split(/\//,$date); 383: $m--; # months start from 0 in perl’s time format 384: return timelocal(0,0,0,$d,$m,$y); 385: } 386: }

这段代码定义了一个名为date2time的子例程，其功能是将日期字符串转换为Perl自1900年以来的秒数格式。具体步骤如下：
1.获取输入日期：通过shift