1Date::Language::BulgariUasne(r3)Contributed Perl DocumenDtaattei:o:nLanguage::Bulgarian(3)
2
3
4
6 Date::Language::Bulgarian - localization for Date::Format
7
9 This is Bulgarian localization for Date::Format. It is important to
10 note that this module source code is in utf8. All strings which it
11 outputs are in utf8, so it is safe to use it currently only with
12 English. You are left alone to try and convert the output when using
13 different Date::Language::* in the same application. This should be
14 addresed in the future.
15
17 use strict;
18 use warnings;
19 use Date::Language;
20 local $\=$/;
21 my $template ='%a %b %e %T %Y (%Y-%m-%d %H:%M:%S)';
22 my $time=1290883821; #or just use time();
23 my @lt = localtime($time);
24 my %languages = qw(English GMT German EEST Bulgarian EET);
25 binmode(select,':utf8');
26
27 foreach my $l(keys %languages){
28 my $lang = Date::Language->new($l);
29 my $zone = $languages{$l};
30 print $/. "$l $zone";
31 print $lang->time2str($template, $time);
32 print $lang->time2str($template, $time, $zone);
33
34 print $lang->strftime($template, \@lt);
35 }
36
38 Krasimir Berov (berov@cpan.org)
39
41 Copyright (c) 2010 Krasimir Berov. This program is free software; you
42 can redistribute it and/or modify it under the same terms as Perl
43 itself.
44
45
46
47perl v5.26.3 2010-12-15 Date::Language::Bulgarian(3)