perl函数的返回值为何是hash类型

andyhau791010

碰到以下问题
my $date = getTime();
print $date;
sub getTime                    #日期函数
{
    my $time = shift || time();
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);

    $year += 1900;
    $mon ++;

    $min  = '0'.$min  if length($min)  < 2;
    $sec  = '0'.$sec  if length($sec)  < 2;
    $mon  = '0'.$mon  if length($mon)  < 2;
    $mday = '0'.$mday if length($mday) < 2;
    $hour = '0'.$hour if length($hour) < 2;
   
    my $weekday = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday];

    return { 'second' => $sec,
             'minute' => $min,
             'hour'   => $hour,
             'day'    => $mday,
             'month'  => $mon,
             'year'   => $year,
             'weekNo' => $wday,
             'wday'   => $weekday,
             'yday'   => $yday,
             'date'   => "$year-$mon-$mday"
          };
}




为啥print $date的结果为HASH(0x27a224)，我如何得到想要的结果，就是返回日期值。

hitsubunnu

你return的是一个匿名hash的引用

while(my ($key,$value) = each %$date){
        print "$key => $value\n";
}

forlorngenius

Ls正解

andyhau791010

谢谢