Now, I know that month_name() returns a UTF-8 flagged string.
Thank you and also good morning, Miyagawa-san.
On 8/28/06, Dave Rolsky <[EMAIL PROTECTED]> wrote:
my $m = DateTime->now(locale=>"fr")->month_name;
Why do you think it's Latin-1?
A clever output by calling "print $m" made me misunderstood.
The following code displays what I've wanted exactly.
----
use Encode;
use DateTime;
foreach my $lang (qw( de el en es fr ja nl no pl pt sv tr vi )) {
my $fmt = DateTime::Locale->load($lang)->full_date_format();
my $date = DateTime->now(locale => $lang)->strftime($fmt);
my $line = "$lang : $date\n";
print encode_utf8($line);
}
----
The previous code below rises some "Wide character in print" warnings.
On 8/28/06, Kawasaki Yusuke <[EMAIL PROTECTED]> wrote:
use DateTime;
foreach my $lang (qw( de el en es fr ja nl no pl pt sv tr vi )) {
my $fmt = DateTime::Locale->load($lang)->full_date_format();
my $date = DateTime->now(locale => $lang)->strftime($fmt);
my $line = "$lang : $date\n";
print $line;
}
Kawasaki Yusuke
http://www.kawa.net/
