Perl substr错误

Question

我有Perl substr函数的问题。这是如此简单，但无论如何......不知道是什么问题。

sub encode_date 
{ 
    $date = $_[0]; 
    $day = substr($date, 0, 2); 
    $month = substr($date, 2, 2); 
    $year = substr($date, 6, 4); 

    return "$year-$month-$day"; 
} 

Sub接受“DD.MM.YYYY”格式的字符串，必须将其转换为“YYYY-MM-DD”格式。

输入： 1993年9月9日
输出： 0-09-93-19 ???

有人可以解释什么是错的，请。

p.s .:我为解码日期编写了另一个子文件（从'yyyy-mm-dd'到'dd.mm.yyyy'），并且所有工作都正常。

sub decode_date 
{ 
    $date = $_[0]; 
    $year = substr $date, 0, 4; 
    $month = substr $date, 5, 2; 
    $day = substr $date, 8, 2; 
    return $day.".".$month.".".$year; 
} 

当然，我试图返回值的两个substr $date, 0, 2;和substr($date, 0, 2);和不同的组合。

Answer 1

月份从索引3开始，而不是2。

sub encode_date 
{ 
    my ($date) = @_; 
    my $day = substr($date, 0, 2); 
    my $month = substr($date, 3, 2); 
    my $year = substr($date, 6, 4); 

    return "$year-$month-$day"; 
} 

也许更好的方式是分割字符串非数字（.），反向号码，并用破折号加入他们-

sub encode_date 
{ 
    my ($date) = @_; 

    return join "-", reverse split /\D/, $date; 
} 

Answer 2

你的问题是，你的偏移量是错误的，因为他们不没有考虑到分隔符。 （例如，本月开始于偏移3，不2，因为它是两个字符的日期加上一段时间后。）

这么说，我觉得写这个功能最好的办法是：

sub encode_date($) { 
    if ($_[0] =~ /^(\d\d)\.(\d\d)\.(\d{4})$/) { 
     return "$3-$2-$1"; 
    } 
} 

Answer 3

sub encode_date 
{ 
    $date = $_[0]; 
    $day = substr($date, 0, 2); 
    $month = substr($date, 3, 2); 
    $year = substr($date, 6, 4); 

    return "$year-$month-$day"; 
} 

有2个问题。
我用encode_date(encode_date($date));（2次）
另一个是$month = substr($date, 2, 2);正确是$month = substr($date, 3, 2);