日付の形式をmm/dd/yyyyからyyyy-mm-ddに変更します

Question

02/01/1999を1999-02-01に変更するにはどうすればよいですか？ Iveはこれを試しましたが、返されています。日付-00-00

sub changeDate{ 
    my $date = shift; 
    my @adate=split (/\//, $date); 
    my $ndate=$adate[2]."-".sprintf("%02d", $adate[1])."-".sprintf("%02d",$adate[0]); 
    say "DATE IS $ndate"; 
    return $ndate; 
} 

Answer 1

あなたが持っているものは正しいですか？

$ perl -e' 
    use feature qw(say); 

    sub changeDate{ 
     my $date = shift; 
     my @adate=split (/\//, $date); 
     my $ndate=$adate[2]."-".sprintf("%02d", $adate[1])."-".sprintf("%02d",$adate[0]); 
     return $ndate; 
    } 

    say changeDate("02/01/1999"); 
' 
1999-01-02 

あなたはchangeDateに02/01/1999以外の何かに合格している必要があります。 changeDateは、以下に減らすことができることを

注：

sub changeDate { sprintf '%3$d-%1$02d-%2$02d', split /\//, shift }