在下面的示例中,@DAYS
是一个月中的天数,并且 中的条目@DAYS_SINCE_RAIN
对应于 中的条目@DAYS
,例如$DAYS_SINCE_RAIN[4]
是自上次下雨以来的天数$DAYS[4]
。
在@DAYS_SINCE_RAIN
中,有雨的一天的值为 0。我想要最后一个出现 0 的实例。
#iii. Find the last day of rain in April 2013.
print "#iii. Find the last day of rain in April 2013.\n";
$i=0;
@getday=();
while(@DAYS_SINCE_RAIN[$i]=~ m/0/){
push @getday, @DAY[$i];
$i++;
if($i=$#DAYS_SINCE_RAIN){
last;
}
};
print "@DAYS_SINCE_RAIN";
print "\n day of last rain: @getday[$i] ";
似乎没有存储任何值:(