如何在Perl中声明一个数组的子集？

Question

我即将做这样的事情：

my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time); 

但我并不需要所有这些变量（只分钟，$小时，$星期一，$年被通缉）。

是否有一个简单的解决方案来声明perl中只有必填字段？

一个简单的解决方案，我是这样的，但它不是真的“性感”：

my @day = localtime(time); 
my $min = $day[1]; 
my $hour = $day[2]; 
my $day = $day[3]; 
... 

预先感谢您的任何一个谁可能是能够给我一些想法:)

Answer 1

您可以指定要使用slices其中数组的元素。

my ($min,$hour,$mon,$year) = (localtime(time))[1,2,4,5]; 

Answer 2

好， “性感”是有点主观的，但我认为这是你的意思：

my (undef,$min,$hour,undef,$mon,$year) = localtime(time);