Poor Man's strftime()

[liz]

Some people need strftime() but can't use POSIX::strftime for some reason. This subroutine will handle most cases. Adapt, augment the conversion hash if you need more features.

sub strftime ($@) {
    my ($format,$second,$minute,$hour,$day,$month,$year) = @_;
    my %convert = (
     Y => $year + 1900,
     m => sprintf( '%02d',$month + 1 ),
     d => sprintf( '%02d',$day ),
     H => sprintf( '%02d',$hour ),
     M => sprintf( '%02d',$minute ),
     S => sprintf( '%02d',$second ),
    );
    $format =~ s#%(.)#$convert{$1}#sg;
    $format;
}

print strftime( '%Y%m%d.%H%M%S', localtime() );

[Juerd]

See also Date::Format.

Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }