Perl DateTime:：Format:：CLDR解析长捷克日期时出现问题

我正在尝试使用CLDR long格式解析捷克日期，该格式由

DateTime:：Locale:：cs_CZ

指定。我看不出它失败的明显原因

my $locale2 = DateTime::Locale->load('cs_CZ');
my $cldr5 = DateTime::Format::CLDR->new(
    pattern     => $locale2->date_format_long,
    locale      => $locale2,
    );

print $cldr5->pattern, "\n";
print $cldr5->parse_datetime('17. listopad 1989');

输出是

d. MMMM y

Use of uninitialized value in print at ./test-cldr.pl line 54.

我做错了什么？为什么它不解析日期

更新

这就是我在命令行上实际用来测试的内容：

perl -MData::Dumper -MDateTime -MDateTime::Format::CLDR -wle'
    local $SIG{__DIE__} = sub { print( Carp::longmess (shift) ); };
    $x="19. září 1979";
    my $loc = DateTime::Locale->load("cs_CZ");
    print Dumper($loc), "\n";
    my $cldr = DateTime::Format::CLDR->new(
       pattern=>$loc->date_format_long, locale=>$loc, on_error => "croak");
    print Dumper($cldr->parse_datetime($x));
'

这是我得到的输出：

$VAR1 = bless( {
                 'en_language' => 'Czech',
                 'native_territory' => "\x{10c}esk\x{e1} republika",
                 'en_territory' => 'Czech Republic',
                 'native_language' => "\x{10d}e\x{161}tina",
                 'default_time_format_length' => 'medium',
                 'id' => 'cs_CZ',
                 'native_complete_name' => "\x{10d}e\x{161}tina \x{10c}esk\x{e1} republika",
                 'default_date_format_length' => 'medium',
                 'en_complete_name' => 'Czech Czech Republic'
               }, 'DateTime::Locale::cs_CZ' );


Could not get datetime for 19. září 1979 (Error marked by 'HERE-->'): '19.  HERE-->září 1979' at -e line 7.
 at /usr/share/perl5/DateTime/Format/CLDR.pm line 965.
    DateTime::Format::CLDR::_local_croak(DateTime::Format::CLDR=HASH(0x166bcd8), "Could not get datetime for 19. z\x{c3}\x{a1}\x{c5}\x{99}\x{c3}\x{ad} 1979 (Error marked by "...) called at /usr/share/perl5/DateTime/Format/CLDR.pm line 558
    DateTime::Format::CLDR::__ANON__("z\x{c3}\x{a1}\x{c5}\x{99}\x{c3}\x{ad} 1979") called at /usr/share/perl5/DateTime/Format/CLDR.pm line 582
    DateTime::Format::CLDR::parse_datetime(DateTime::Format::CLDR=HASH(0x166bcd8), "19. z\x{c3}\x{a1}\x{c5}\x{99}\x{c3}\x{ad} 1979") called at -e line 7

Could not get datetime for 19. září 1979 (Error marked by 'HERE-->'): '19.  HERE-->září 1979' at -e line 7.

17利斯托帕德1989

打印（转储程序（$self->_build_pattern（））提供了一个模块期望的概览。在这种情况下，它输出以下内容

$VAR1 = [
          [
            qr/(3[01]|[12]\d|0?[1-9])/,
            'd',
            1
          ],
          '\\.',
          '\\s+',
          [
            "(listopadu|\x{10d}ervence|prosince|b\x{159}ezna|kv\x{11b}tna|\x{10d}ervna|ledna|\x{fa}nora|dubna|srpna|\x{159}\x{ed}jna|z\x{e1}\x{159}\x{ed})",
            'M',
            4
          ],
          '\\s+',
          [
            qr/(-?\d{1,4})/,
            'y',
            1
          ]
        ];

它需要
listopadu
，但不需要
listopad
。我对捷克语一无所知，但该模块的行为似乎是。您可以在解析日期之前“确定”日期

$date_string =~ s/\blistopad\b\K/u/;

19září1979
您实际上没有通过
září
（
“z\x{e1}\x{159}\x{ed}”
）。您正在传递其UTF-8编码（
“z\x{c3}\x{a1}\x{c5}\x{99}\x{c3}\x{ad}”
）。添加
使用utf8
告诉Perl源代码是使用UTF-8编码的。
您定义
$locale2
，但使用
$locale
。你是否使用严格的代码和
使用警告？@glennjackman:你说得对。不幸的是，即使解决了这个问题，它仍然失败。好吧，但是我发布的第一个测试是没有使用ASCII以外的任何东西。我显然比我想象的更讨厌我自己的母语！我也不善于提出恰当的问题如果可以的话，我会给你10票。你最终在所有方面都是对的。这个月的属格形式实际上在我的日期来源中使用。不用担心。你添加的可执行部分太棒了：）我希望所有的问题都是可执行的。