On Wed, 29 Jan 2003, Tim Bunce wrote:
> The code shown by the URL you posted generates two digit years:
>
> sub ymd {
> my ( $self, $sep ) = @_;
> $sep = '-' unless defined $sep;
> return sprintf( "%02d$sep%02d$sep%02d", $self->_as_greg );
> }
> *date = \&ymd;
>
> sub mdy {
> my ( $self, $sep ) = @_;
> $sep = '-' unless defined $sep;
> return sprintf( "%02d$sep%02d$sep%02d", ($self->_as_greg)[1,2,0] );
> }
>
> sub dmy {
> my ( $self, $sep ) = @_;
> $sep = '-' unless defined $sep;
> return sprintf( "%02d$sep%02d$sep%02d", reverse $self->_as_greg );
> }
>
> Maybe there's a later version.
[autarch@penguin ~]$ perl -le 'print sprintf("%02d", 1970)'
1970
[autarch@penguin ~]$ perl -le 'print sprintf("%02d", 1)'
01
Maybe it should be %04d though.
-dave
/*=======================
House Absolute Consulting
www.houseabsolute.com
=======================*/
