use strict; use warnings; my @array = (-1,0,1..5); while (@array) { my $e = pop @array; print "$e\n"; }.
確定! 回上一頁