use5.010;running_sum(5,6);running_sum(1..3);running_sum(4);sub running_sum{my$sum=0;my@numbers;foreachmy$number(@_){push@numbers,$number;$sum+=$number;}say"the sum of (@numbers) is $sum";}
这段code产生的结果是:
123
thesumof(56)is11thesumof(123)is6thesumof(4)is4
下面是state:
123456789101112131415
use5.010;running_sum(5,6);running_sum(1..3);running_sum(4);sub running_sum{state$sum=0;state@numbers;foreachmy$number(@_){push@numbers,$number;$sum+=$number;}say"The sum of (@numbers) is $sum";}