Good luck with that :)
rt://Date-Handler/Date::Handler
http://cpansearch.perl.org/src/BBEAUSEJ/Date-Handler-1.2/Handler.pm
I suggest as a general ideasub SetLocale { my $self = shift; my $locale = shift; croak "No locale passed to SetLocale()" if not defined $locale; my $locale_return = POSIX::setlocale(&POSIX::LC_TIME, $locale); if( defined $locale_return ) { $self->{locale} = $locale; $self->{locale_realname} = $locale_return; return $self->{locale}; } print STDERR "Locale $locale does not seem to be implemented on th +is system, keeping locale ".$self->{locale}."\n"; return undef; }
$self->WARNING( "Locale $locale does not seem to be implemented on thi +s system, keeping locale ".$self->{locale}."\n" ); sub WARNING { my( $self, $message ) = @_; if( $self->{WARNINGS} ){ print STDERR $message; } }
In reply to Re: Not quite a perl question
by Anonymous Monk
in thread Not quite a perl question
by jpn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |