如何保留住开头的 0 啊

sunzhiguolu

我的代码如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aDate = qw /2010 10 6/;
   
6. my $rhDate = {@{[split(' ',sprintf("Y %d M %02d D %02d",@aDate))]}};
   
7. print "|@$rhDate{'Y','M','D'}|\n";    #OUTPUT:|2010 10 6|
   

复制代码

怎样才能保留住 2010 10 06 中的 0 啊, 请大家指点, 谢谢大家...

jason680

回复 1# sunzhiguolu

每次看你的代码，头都很痛...
不是把一堆功能都写在一起，
就一定是高大上...

简单易懂，也有相同作用才是高大上...

my %hDate;
my @aDate = qw/2010 10 6/;
my @aDate_key = qw/Y M D/;

@hDate{@aDate_key}  = map{ sprintf("%02d",$_)} @aDate;



=================================
$hDate{'Y'} = 2010;
$hDate{'M'} = 10;
$hDate{'D'} = 6;
combine together
@hDate{'Y','M','D'} = qw/2010 10 6/;
@hDate{@aDate_key} = @aDate;
@hDate{@aDate_key} = map{ sprintf("%02d",$_)} @aDate;    # 6 => 06
or
@hDate{@aDate_key} = map{ s/^(\d)$/0$1/; $_} @aDate;

sunzhiguolu

回复 2# jason680
您说的非常对, 我离您那个水平还差的远呢 (写出简单易懂的代码, 还能解决问题, 需要水平啊), 我一定改正.
试了, 非常好用! 谢谢大神指点...